host/vb_net_test/nettest.frm

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0"; "SysTray.ocx"
Begin VB.Form Form1 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "i-scream Winhost"
   ClientHeight    =   5655
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   5670
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5655
   ScaleWidth      =   5670
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Hide 
      Caption         =   "Hide"
      Height          =   495
      Left            =   1800
      TabIndex        =   7
      Top             =   2160
      Width           =   1215
   End
   Begin SysTray.SystemTray SystemTray 
      Left            =   3600
      Top             =   1200
      _ExtentX        =   847
      _ExtentY        =   847
      SysTrayText     =   "i-scream Winhost"
      IconFile        =   0
   End
   Begin VB.Timer Timer1 
      Left            =   4200
      Top             =   1200
   End
   Begin VB.TextBox Text4 
      Height          =   1575
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Text            =   "nettest.frx":0000
      Top             =   3000
      Width           =   5055
   End
   Begin VB.CommandButton Reconfigure 
      Caption         =   "Reconfigure with FilterManager"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2895
   End
   Begin MSWinsockLib.Winsock TCPSock 
      Left            =   5160
      Top             =   1200
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin MSWinsockLib.Winsock UDPSock 
      Left            =   4680
      Top             =   1200
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      Protocol        =   1
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      Caption         =   "Next heartbeat:"
      Height          =   255
      Left            =   3360
      TabIndex        =   6
      Top             =   480
      Width           =   1455
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "Next UDP packet:"
      Height          =   255
      Left            =   3360
      TabIndex        =   5
      Top             =   120
      Width           =   1455
   End
   Begin VB.Label Label4 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      Height          =   255
      Left            =   4920
      TabIndex        =   4
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label3 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      Height          =   255
      Left            =   4920
      TabIndex        =   3
      Top             =   120
      Width           =   615
   End
   Begin VB.Label Status 
      Caption         =   "Status:"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   840
      Width           =   5415
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

Dim filterManagerHostname As String
Dim filterManagerTCPPort As Integer

Dim filterHostname As String
Dim filterTCPPort As Integer
Dim filterUDPPort As Integer
Dim fileList As String
Dim lastModified As String

Dim UDPUpdateTime As Integer
Dim TCPUpdateTime As Integer

Dim protocolVersion As String
Dim connected As Boolean
Dim responseNumber As Integer


Private Sub Command1_Click()

    ' build the contents of the XML packet.
    xml = "<packet></packet>"

    ' Use the first winsock control to send a UDP packet.
    UDPSock.RemoteHost = filterHostname
    UDPSock.RemotePort = filterUDPPort
    UDPSock.SendData xml
    Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."

End Sub


Private Sub Command3_Click()
    ' establish a TCP connection to a filter
    TCPSock.Close
    TCPSock.Connect filterHostname, filterTCPPort
End Sub

Private Sub Form_Load()
    protocolVersion = "1.1"
       
    Status.Caption = "Loading"
    Form1.Caption = "i-scream Winhost " & protocolVersion
    
    ''''TEMP
    filterManagerHostname = "killigrew.ukc.ac.uk"
    filterManagerTCPPort = 4567
    Reconfigure_Click
    Exit Sub
    ''' ENDTEMP
    
    On Error GoTo iniError
    Dim buf As String * 256
    Dim length As Long
    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
    filterManagerHostname = Left$(buf, length)
    length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
    filterManagerTCPPort = Left$(buf, length)
    
    Status.Caption = "Connecting to Filter Manager"
    
    Exit Sub
    
iniError:
    x = MsgBox("The i-scream Winhost could not read the correct settings from the winhost.ini file.  Please correct these and try again.", 48, "Configuration not found")
    End
    
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    x = MsgBox("Are you sure you want to shut down the Winhost?  This will stop your computer sending information to the i-scream Central Monitoring System.", vbYesNo, "i-scream Winhost")
    If x = 7 Then
        Cancel = True
    End If

End Sub

Private Sub Hide_Click()
    Form1.Visible = False
    SystemTray.Icon = Val(Form1.Icon)
    SystemTray.Action = 0
End Sub

Private Sub Reconfigure_Click()
    ' establish a TCP connection to a filtermanager
    connected = False
    TCPSock.Close
    TCPSock.Connect filterManagerHostname, filterManagerTCPPort
End Sub


Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)

    Form1.Visible = True
    Form1.SetFocus

End Sub

Private Sub TCPSock_Connect()
    
    responseNumber = 0
   
    ' Send something as soon as we connect to the server.
    If connected = False Then
        ' contact the FilterManager
        TCPSock.SendData "STARTCONFIG" & vbCrLf
    Else
       ' Contact the Filter
       TCPSock.SendData "HEARTBEAT" & vbCrLf
    End If
   
End Sub

Private Sub TCPSock_DataArrival(ByVal bytesTotal As Long)
    
    responseNumber = responseNumber + 1
    
    ' Get the line from the server.
    TCPSock.GetData response, vbString, bytesTotal
    
    ' Remove linefeeds and returns from the line.
    response = Replace(response, Chr(13), "")
    response = Replace(response, Chr(10), "")
    Text4.Text = Text4.Text & vbCrLf & response
    
    If connected = False Then
        ' Perform TCP configuration (1.1)
        On Error GoTo configError
        Select Case responseNumber
            Case 1:
                If Not response = "OK" Then GoTo configError
                TCPSock.SendData "LASTMODIFIED" & vbCrLf
            Case 2:
                If response = "ERROR" Then GoTo configError
                lastModified = response
                TCPSock.SendData "FILELIST" & vbCrLf
            Case 3:
                If response = "ERROR" Then GoTo configError
                fileList = response
                TCPSock.SendData "UDPUpdateTime" & vbCrLf
            Case 4:
                If response = "ERROR" Then GoTo configError
                UDPUpdateTime = response
                TCPSock.SendData "TCPUpdateTime" & vbCrLf
            Case 5:
                If response = "ERROR" Then GoTo configError
                TCPUpdateTime = response
                TCPSock.SendData "ENDCONFIG" & vbCrLf
            Case 6:
                If Not response = "OK" Then GoTo configError
                TCPSock.SendData "FILTER" & vbCrLf
            Case 7:
                'we got a filter list here.
                readTo = 0
                ' get hostname
                readTo = InStr(1, response, ";", vbBinaryCompare)
                filterHostname = Mid(response, 1, readTo - 1)
                response = Mid(response, readTo + 1, Len(response))
                ' get UDP Port number
                readTo = InStr(1, response, ";")
                filterUDPPort = Mid(response, 1, readTo - 1)
                response = Mid(response, readTo + 1, Len(response))
                ' get TCP Port number
                filterTCPPort = response
                TCPSock.SendData "END" & vbCrLf
            Case 8:
                If Not response = "OK" Then GoTo configError
                connected = True
                responseNumber = 0
                TCPSock.Close
                Text4.Text = Text4.Text & vbCrLf & "  <closed>"
                Status.Caption = "Configuration successful"
                Label3.Caption = UDPUpdateTime
                Label4.Caption = TCPUpdateTime
                Timer1.Interval = 1000
        End Select
    Else
        ' Perform a heartbeat (1.1)
        On Error GoTo heartbeatError
        Select Case responseNumber
            Case 1:
                If Not response = "OK" Then GoTo heartbeatError
                TCPSock.SendData "CONFIG" & vbCrLf
            Case 2:
                If Not response = "OK" Then GoTo heartbeatError
                TCPSock.SendData fileList & vbCrLf
            Case 3:
                If Not response = "OK" Then GoTo heartbeatError
                TCPSock.SendData lastModified & vbCrLf
            Case 4:
                If Not response = "OK" Then GoTo heartbeatError
                TCPSock.SendData "ENDHEARTBEAT" & vbCrLf
            Case 5:
                If Not response = "OK" Then GoTo heartbeatError
                TCPSock.Close
                Status.Caption = "Heartbeat sent successfully."
        End Select
    
    End If
    
    
    Exit Sub
    
configError:
    Status.Caption = "FAILED to get configuration"
    Exit Sub
heartbeatError:
    Status.Caption = "Heatbeat FAILED"
    Exit Sub
End Sub

Private Sub Timer1_Timer()

    Label3.Caption = Label3.Caption - 1
    Label4.Caption = Label4.Caption - 1
    
    Status.Caption = ""
    
    If Label3.Caption < 1 Then
        ' build the contents of the XML packet.
        xml = "<packet></packet>"

        ' Use the first winsock control to send a UDP packet.
        UDPSock.RemoteHost = filterHostname
        UDPSock.RemotePort = filterUDPPort
        UDPSock.SendData xml
        Status.Caption = "UDP packet sent"
        Label3.Caption = UDPUpdateTime
    End If
    
    If Label4.Caption < 1 Then
        ' establish a TCP connection to a filter
        TCPSock.Close
        TCPSock.Connect filterHostname, filterTCPPort
        Label4.Caption = TCPUpdateTime
    End If

End Sub
Revision:	1.11
Committed:	Fri Feb 23 11:56:43 2001 UTC (23 years, 9 months ago) by pjm2
Branch:	MAIN
Changes since 1.10:	+33 -2 lines
Log Message:	Program can now be minimised to the system tray ;)
#	User	Rev	Content
1	pjm2	1.1	VERSION 5.00
2			Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
3	pjm2	1.11	Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0"; "SysTray.ocx"
4	pjm2	1.1	Begin VB.Form Form1
5	pjm2	1.10	BorderStyle = 4 'Fixed ToolWindow
6			Caption = "i-scream Winhost"
7	pjm2	1.1	ClientHeight = 5655
8			ClientLeft = 45
9	pjm2	1.10	ClientTop = 285
10	pjm2	1.1	ClientWidth = 5670
11			LinkTopic = "Form1"
12			MaxButton = 0 'False
13			ScaleHeight = 5655
14			ScaleWidth = 5670
15			ShowInTaskbar = 0 'False
16			StartUpPosition = 3 'Windows Default
17	pjm2	1.11	Begin VB.CommandButton Hide
18			Caption = "Hide"
19			Height = 495
20			Left = 1800
21			TabIndex = 7
22			Top = 2160
23			Width = 1215
24			End
25			Begin SysTray.SystemTray SystemTray
26			Left = 3600
27			Top = 1200
28			_ExtentX = 847
29			_ExtentY = 847
30			SysTrayText = "i-scream Winhost"
31			IconFile = 0
32			End
33	pjm2	1.8	Begin VB.Timer Timer1
34	pjm2	1.10	Left = 4200
35			Top = 1200
36	pjm2	1.1	End
37			Begin VB.TextBox Text4
38	pjm2	1.6	Height = 1575
39	pjm2	1.1	Left = 240
40			MultiLine = -1 'True
41			ScrollBars = 2 'Vertical
42	pjm2	1.10	TabIndex = 1
43	pjm2	1.1	Text = "nettest.frx":0000
44			Top = 3000
45			Width = 5055
46			End
47	pjm2	1.10	Begin VB.CommandButton Reconfigure
48			Caption = "Reconfigure with FilterManager"
49			Height = 495
50			Left = 120
51			TabIndex = 0
52			Top = 120
53			Width = 2895
54	pjm2	1.1	End
55	pjm2	1.5	Begin MSWinsockLib.Winsock TCPSock
56	pjm2	1.10	Left = 5160
57			Top = 1200
58	pjm2	1.1	_ExtentX = 741
59			_ExtentY = 741
60			_Version = 393216
61			End
62	pjm2	1.5	Begin MSWinsockLib.Winsock UDPSock
63	pjm2	1.10	Left = 4680
64			Top = 1200
65	pjm2	1.1	_ExtentX = 741
66			_ExtentY = 741
67			_Version = 393216
68			Protocol = 1
69			End
70	pjm2	1.9	Begin VB.Label Label2
71			Alignment = 1 'Right Justify
72			Caption = "Next heartbeat:"
73	pjm2	1.8	Height = 255
74	pjm2	1.10	Left = 3360
75			TabIndex = 6
76	pjm2	1.9	Top = 480
77			Width = 1455
78	pjm2	1.8	End
79	pjm2	1.9	Begin VB.Label Label1
80			Alignment = 1 'Right Justify
81			Caption = "Next UDP packet:"
82	pjm2	1.8	Height = 255
83	pjm2	1.10	Left = 3360
84			TabIndex = 5
85	pjm2	1.9	Top = 120
86			Width = 1455
87	pjm2	1.8	End
88	pjm2	1.9	Begin VB.Label Label4
89	pjm2	1.10	BorderStyle = 1 'Fixed Single
90	pjm2	1.9	Caption = "0"
91	pjm2	1.7	Height = 255
92	pjm2	1.10	Left = 4920
93			TabIndex = 4
94	pjm2	1.9	Top = 480
95			Width = 615
96	pjm2	1.7	End
97	pjm2	1.9	Begin VB.Label Label3
98	pjm2	1.10	BorderStyle = 1 'Fixed Single
99	pjm2	1.9	Caption = "0"
100	pjm2	1.7	Height = 255
101	pjm2	1.10	Left = 4920
102			TabIndex = 3
103	pjm2	1.9	Top = 120
104			Width = 615
105	pjm2	1.7	End
106	pjm2	1.6	Begin VB.Label Status
107			Caption = "Status:"
108	pjm2	1.1	Height = 255
109	pjm2	1.6	Left = 120
110	pjm2	1.10	TabIndex = 2
111			Top = 840
112	pjm2	1.6	Width = 5415
113	pjm2	1.1	End
114			End
115			Attribute VB_Name = "Form1"
116			Attribute VB_GlobalNameSpace = False
117			Attribute VB_Creatable = False
118			Attribute VB_PredeclaredId = True
119			Attribute VB_Exposed = False
120	pjm2	1.4	Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
121			Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
122
123			Dim filterManagerHostname As String
124			Dim filterManagerTCPPort As Integer
125
126	pjm2	1.2	Dim filterHostname As String
127	pjm2	1.3	Dim filterTCPPort As Integer
128			Dim filterUDPPort As Integer
129			Dim fileList As String
130			Dim lastModified As String
131	pjm2	1.2
132	pjm2	1.7	Dim UDPUpdateTime As Integer
133			Dim TCPUpdateTime As Integer
134
135	pjm2	1.2	Dim protocolVersion As String
136			Dim connected As Boolean
137	pjm2	1.1	Dim responseNumber As Integer
138
139
140			Private Sub Command1_Click()
141
142	pjm2	1.5	' build the contents of the XML packet.
143	pjm2	1.4	xml = "<packet></packet>"
144
145	pjm2	1.2	' Use the first winsock control to send a UDP packet.
146	pjm2	1.5	UDPSock.RemoteHost = filterHostname
147			UDPSock.RemotePort = filterUDPPort
148			UDPSock.SendData xml
149	pjm2	1.6	Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
150	pjm2	1.1
151			End Sub
152
153
154			Private Sub Command3_Click()
155	pjm2	1.3	' establish a TCP connection to a filter
156	pjm2	1.5	TCPSock.Close
157			TCPSock.Connect filterHostname, filterTCPPort
158	pjm2	1.1	End Sub
159
160	pjm2	1.2	Private Sub Form_Load()
161			protocolVersion = "1.1"
162	pjm2	1.10
163			Status.Caption = "Loading"
164			Form1.Caption = "i-scream Winhost " & protocolVersion
165	pjm2	1.6
166	pjm2	1.4	''''TEMP
167			filterManagerHostname = "killigrew.ukc.ac.uk"
168			filterManagerTCPPort = 4567
169	pjm2	1.10	Reconfigure_Click
170	pjm2	1.4	Exit Sub
171			''' ENDTEMP
172
173			On Error GoTo iniError
174			Dim buf As String * 256
175			Dim length As Long
176			length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
177			filterManagerHostname = Left$(buf, length)
178			length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
179			filterManagerTCPPort = Left$(buf, length)
180
181	pjm2	1.10	Status.Caption = "Connecting to Filter Manager"
182	pjm2	1.6
183	pjm2	1.4	Exit Sub
184
185			iniError:
186			x = MsgBox("The i-scream Winhost could not read the correct settings from the winhost.ini file. Please correct these and try again.", 48, "Configuration not found")
187			End
188
189			End Sub
190
191	pjm2	1.10	Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
192	pjm2	1.11	x = MsgBox("Are you sure you want to shut down the Winhost? This will stop your computer sending information to the i-scream Central Monitoring System.", vbYesNo, "i-scream Winhost")
193	pjm2	1.10	If x = 7 Then
194			Cancel = True
195			End If
196
197			End Sub
198
199	pjm2	1.11	Private Sub Hide_Click()
200			Form1.Visible = False
201			SystemTray.Icon = Val(Form1.Icon)
202			SystemTray.Action = 0
203			End Sub
204
205	pjm2	1.10	Private Sub Reconfigure_Click()
206			' establish a TCP connection to a filtermanager
207			connected = False
208			TCPSock.Close
209			TCPSock.Connect filterManagerHostname, filterManagerTCPPort
210	pjm2	1.11	End Sub
211
212
213
214			Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)
215
216			Form1.Visible = True
217			Form1.SetFocus
218
219	pjm2	1.10	End Sub
220
221	pjm2	1.5	Private Sub TCPSock_Connect()
222	pjm2	1.6
223			responseNumber = 0
224	pjm2	1.1
225	pjm2	1.3	' Send something as soon as we connect to the server.
226			If connected = False Then
227			' contact the FilterManager
228	pjm2	1.5	TCPSock.SendData "STARTCONFIG" & vbCrLf
229	pjm2	1.3	Else
230			' Contact the Filter
231	pjm2	1.5	TCPSock.SendData "HEARTBEAT" & vbCrLf
232	pjm2	1.3	End If
233	pjm2	1.1
234			End Sub
235
236	pjm2	1.5	Private Sub TCPSock_DataArrival(ByVal bytesTotal As Long)
237	pjm2	1.1
238			responseNumber = responseNumber + 1
239
240			' Get the line from the server.
241	pjm2	1.5	TCPSock.GetData response, vbString, bytesTotal
242	pjm2	1.1
243			' Remove linefeeds and returns from the line.
244			response = Replace(response, Chr(13), "")
245			response = Replace(response, Chr(10), "")
246			Text4.Text = Text4.Text & vbCrLf & response
247
248	pjm2	1.2	If connected = False Then
249			' Perform TCP configuration (1.1)
250			On Error GoTo configError
251			Select Case responseNumber
252			Case 1:
253			If Not response = "OK" Then GoTo configError
254	pjm2	1.5	TCPSock.SendData "LASTMODIFIED" & vbCrLf
255	pjm2	1.2	Case 2:
256			If response = "ERROR" Then GoTo configError
257	pjm2	1.3	lastModified = response
258	pjm2	1.5	TCPSock.SendData "FILELIST" & vbCrLf
259	pjm2	1.2	Case 3:
260			If response = "ERROR" Then GoTo configError
261	pjm2	1.3	fileList = response
262	pjm2	1.5	TCPSock.SendData "UDPUpdateTime" & vbCrLf
263	pjm2	1.2	Case 4:
264			If response = "ERROR" Then GoTo configError
265	pjm2	1.7	UDPUpdateTime = response
266	pjm2	1.5	TCPSock.SendData "TCPUpdateTime" & vbCrLf
267	pjm2	1.2	Case 5:
268			If response = "ERROR" Then GoTo configError
269	pjm2	1.7	TCPUpdateTime = response
270	pjm2	1.5	TCPSock.SendData "ENDCONFIG" & vbCrLf
271	pjm2	1.2	Case 6:
272			If Not response = "OK" Then GoTo configError
273	pjm2	1.5	TCPSock.SendData "FILTER" & vbCrLf
274	pjm2	1.2	Case 7:
275			'we got a filter list here.
276			readTo = 0
277			' get hostname
278			readTo = InStr(1, response, ";", vbBinaryCompare)
279			filterHostname = Mid(response, 1, readTo - 1)
280			response = Mid(response, readTo + 1, Len(response))
281			' get UDP Port number
282			readTo = InStr(1, response, ";")
283			filterUDPPort = Mid(response, 1, readTo - 1)
284			response = Mid(response, readTo + 1, Len(response))
285			' get TCP Port number
286			filterTCPPort = response
287	pjm2	1.5	TCPSock.SendData "END" & vbCrLf
288	pjm2	1.2	Case 8:
289			If Not response = "OK" Then GoTo configError
290			connected = True
291			responseNumber = 0
292	pjm2	1.5	TCPSock.Close
293	pjm2	1.2	Text4.Text = Text4.Text & vbCrLf & " <closed>"
294	pjm2	1.10	Status.Caption = "Configuration successful"
295	pjm2	1.8	Label3.Caption = UDPUpdateTime
296			Label4.Caption = TCPUpdateTime
297			Timer1.Interval = 1000
298	pjm2	1.2	End Select
299			Else
300			' Perform a heartbeat (1.1)
301			On Error GoTo heartbeatError
302			Select Case responseNumber
303			Case 1:
304	pjm2	1.3	If Not response = "OK" Then GoTo heartbeatError
305	pjm2	1.5	TCPSock.SendData "CONFIG" & vbCrLf
306	pjm2	1.2	Case 2:
307	pjm2	1.3	If Not response = "OK" Then GoTo heartbeatError
308	pjm2	1.5	TCPSock.SendData fileList & vbCrLf
309	pjm2	1.2	Case 3:
310	pjm2	1.3	If Not response = "OK" Then GoTo heartbeatError
311	pjm2	1.5	TCPSock.SendData lastModified & vbCrLf
312	pjm2	1.2	Case 4:
313	pjm2	1.3	If Not response = "OK" Then GoTo heartbeatError
314	pjm2	1.5	TCPSock.SendData "ENDHEARTBEAT" & vbCrLf
315	pjm2	1.2	Case 5:
316	pjm2	1.3	If Not response = "OK" Then GoTo heartbeatError
317	pjm2	1.5	TCPSock.Close
318	pjm2	1.10	Status.Caption = "Heartbeat sent successfully."
319	pjm2	1.2	End Select
320
321			End If
322
323
324			Exit Sub
325
326			configError:
327	pjm2	1.10	Status.Caption = "FAILED to get configuration"
328	pjm2	1.8	Exit Sub
329	pjm2	1.2	heartbeatError:
330	pjm2	1.10	Status.Caption = "Heatbeat FAILED"
331	pjm2	1.8	Exit Sub
332	pjm2	1.1	End Sub
333	pjm2	1.5
334	pjm2	1.8	Private Sub Timer1_Timer()
335
336			Label3.Caption = Label3.Caption - 1
337			Label4.Caption = Label4.Caption - 1
338
339	pjm2	1.10	Status.Caption = ""
340	pjm2	1.8
341			If Label3.Caption < 1 Then
342			' build the contents of the XML packet.
343			xml = "<packet></packet>"
344
345			' Use the first winsock control to send a UDP packet.
346			UDPSock.RemoteHost = filterHostname
347			UDPSock.RemotePort = filterUDPPort
348			UDPSock.SendData xml
349	pjm2	1.10	Status.Caption = "UDP packet sent"
350	pjm2	1.8	Label3.Caption = UDPUpdateTime
351			End If
352
353			If Label4.Caption < 1 Then
354			' establish a TCP connection to a filter
355			TCPSock.Close
356			TCPSock.Connect filterHostname, filterTCPPort
357			Label4.Caption = TCPUpdateTime
358			End If
359
360			End Sub