ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/experimental/host/vb_net_test/nettest.frm

Comparing experimental/host/vb_net_test/nettest.frm (file contents):
Revision 1.4 by pjm2, Fri Feb 23 10:29:16 2001 UTC vs.
Revision 1.8 by pjm2, Fri Feb 23 11:25:35 2001 UTC

#	Line 14 | Line 14 | Begin VB.Form Form1
14		ScaleWidth      =   5670
15		ShowInTaskbar   =   0   'False
16		StartUpPosition =   3  'Windows Default
17	+	Begin VB.Timer Timer1
18	+	Left            =   3840
19	+	Top             =   120
20	+	End
21		Begin VB.CommandButton Command3
22		Caption         =   "TCP to Filter"
23		Height          =   375
24		Left            =   3720
25	<	TabIndex        =   5
25	>	TabIndex        =   3
26		Top             =   2520
27		Width           =   1575
28		End
29		Begin VB.TextBox Text4
30	<	Height          =   2535
30	>	Height          =   1575
31		Left            =   240
32		MultiLine       =   -1  'True
33		ScrollBars      =   2  'Vertical
34	<	TabIndex        =   4
34	>	TabIndex        =   2
35		Text            =   "nettest.frx":0000
36		Top             =   3000
37		Width           =   5055
#	Line 36 | Line 40 | Begin VB.Form Form1
40		Caption         =   "TCP to FilterManager"
41		Height          =   375
42		Left            =   3360
43	<	TabIndex        =   3
43	>	TabIndex        =   1
44		Top             =   2040
45		Width           =   1935
46		End
47	<	Begin MSWinsockLib.Winsock Winsock2
47	>	Begin MSWinsockLib.Winsock TCPSock
48		Left            =   4920
49		Top             =   120
50		_ExtentX        =   741
#	Line 51 | Line 55 | Begin VB.Form Form1
55		Caption         =   "Send UDP"
56		Height          =   375
57		Left            =   4320
58	<	TabIndex        =   2
58	>	TabIndex        =   0
59		Top             =   1560
60		Width           =   975
61		End
62	<	Begin VB.TextBox Text1
59	<	Height          =   855
60	<	Left            =   360
61	<	TabIndex        =   0
62	<	Text            =   "<packet></packet>"
63	<	Top             =   600
64	<	Width           =   4935
65	<	End
66	<	Begin MSWinsockLib.Winsock Winsock1
62	>	Begin MSWinsockLib.Winsock UDPSock
63		Left            =   4320
64		Top             =   120
65		_ExtentX        =   741
#	Line 71 | Line 67 | Begin VB.Form Form1
67		_Version        =   393216
68		Protocol        =   1
69		End
70	+	Begin VB.Label Label4
71	+	Caption         =   "Label4"
72	+	Height          =   255
73	+	Left            =   1920
74	+	TabIndex        =   8
75	+	Top             =   1320
76	+	Width           =   615
77	+	End
78	+	Begin VB.Label Label3
79	+	Caption         =   "Label3"
80	+	Height          =   255
81	+	Left            =   1920
82	+	TabIndex        =   7
83	+	Top             =   960
84	+	Width           =   615
85	+	End
86	+	Begin VB.Label Label2
87	+	Caption         =   "Label2"
88	+	Height          =   255
89	+	Left            =   120
90	+	TabIndex        =   6
91	+	Top             =   600
92	+	Width           =   3375
93	+	End
94		Begin VB.Label Label1
95	<	Caption         =   "Packet contents"
95	>	Caption         =   "Label1"
96		Height          =   255
97	<	Left            =   360
98	<	TabIndex        =   1
99	<	Top             =   360
100	<	Width           =   2895
97	>	Left            =   120
98	>	TabIndex        =   5
99	>	Top             =   240
100	>	Width           =   3375
101		End
102	+	Begin VB.Label Status
103	+	Caption         =   "Status:"
104	+	Height          =   255
105	+	Left            =   120
106	+	TabIndex        =   4
107	+	Top             =   5280
108	+	Width           =   5415
109	+	End
110		End
111		Attribute VB_Name = "Form1"
112		Attribute VB_GlobalNameSpace = False
#	Line 97 | Line 125 | Dim filterUDPPort As Integer
125		Dim fileList As String
126		Dim lastModified As String
127
128	+	Dim UDPUpdateTime As Integer
129	+	Dim TCPUpdateTime As Integer
130	+
131		Dim protocolVersion As String
132		Dim connected As Boolean
133		Dim responseNumber As Integer
#	Line 104 | Line 135 | Dim responseNumber As Integer
135
136		Private Sub Command1_Click()
137
138	+	' build the contents of the XML packet.
139		xml = "<packet></packet>"
140
141		' Use the first winsock control to send a UDP packet.
142	<	Winsock1.RemoteHost = filterHostname
143	<	Winsock1.RemotePort = filterUDPPort
144	<	Winsock1.SendData xml
142	>	UDPSock.RemoteHost = filterHostname
143	>	UDPSock.RemotePort = filterUDPPort
144	>	UDPSock.SendData xml
145	>	Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
146
147		End Sub
148
149		Private Sub Command2_Click()
150
151		' establish a TCP connection to a filtermanager
152	<	Winsock2.Close
153	<	Winsock2.Connect filterManagerHostname, filterManagerTCPPort
152	>	TCPSock.Close
153	>	TCPSock.Connect filterManagerHostname, filterManagerTCPPort
154
155		End Sub
156
157		Private Sub Command3_Click()
158		' establish a TCP connection to a filter
159	<	Winsock2.Close
160	<	Winsock2.Connect filterHostname, filterTCPPort
159	>	TCPSock.Close
160	>	TCPSock.Connect filterHostname, filterTCPPort
161		End Sub
162
163		Private Sub Form_Load()
164		protocolVersion = "1.1"
165
166	+	Status.Caption = "i-scream Winhost " & protocolVersion
167	+
168		''''TEMP
169		filterManagerHostname = "killigrew.ukc.ac.uk"
170		filterManagerTCPPort = 4567
#	Line 144 | Line 179 | Private Sub Form_Load()
179		length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
180		filterManagerTCPPort = Left$(buf, length)
181
182	+	Status.Caption = "i-scream Winhost " & protocolVersion & " connecting to Filter Manager"
183	+
184		Exit Sub
185
186		iniError:
#	Line 152 | Line 189 | iniError:
189
190		End Sub
191
192	<	Private Sub Label2_Click()
193	<
194	<	End Sub
158	<
159	<	Private Sub Winsock2_Connect()
160	<
161	<	responseNumber = 0
192	>	Private Sub TCPSock_Connect()
193	>
194	>	responseNumber = 0
195
196		' Send something as soon as we connect to the server.
197		If connected = False Then
198		' contact the FilterManager
199	<	Winsock2.SendData "STARTCONFIG" & vbCrLf
199	>	TCPSock.SendData "STARTCONFIG" & vbCrLf
200		Else
201		' Contact the Filter
202	<	Winsock2.SendData "HEARTBEAT" & vbCrLf
202	>	TCPSock.SendData "HEARTBEAT" & vbCrLf
203		End If
204
205		End Sub
206
207	<	Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
207	>	Private Sub TCPSock_DataArrival(ByVal bytesTotal As Long)
208
209		responseNumber = responseNumber + 1
210
211		' Get the line from the server.
212	<	Winsock2.GetData response, vbString, bytesTotal
212	>	TCPSock.GetData response, vbString, bytesTotal
213
214		' Remove linefeeds and returns from the line.
215		response = Replace(response, Chr(13), "")
#	Line 189 | Line 222 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
222		Select Case responseNumber
223		Case 1:
224		If Not response = "OK" Then GoTo configError
225	<	Winsock2.SendData "LASTMODIFIED" & vbCrLf
225	>	TCPSock.SendData "LASTMODIFIED" & vbCrLf
226		Case 2:
227		If response = "ERROR" Then GoTo configError
228		lastModified = response
229	<	Winsock2.SendData "FILELIST" & vbCrLf
229	>	TCPSock.SendData "FILELIST" & vbCrLf
230		Case 3:
231		If response = "ERROR" Then GoTo configError
232		fileList = response
233	<	Winsock2.SendData "UDPUpdateTime" & vbCrLf
233	>	TCPSock.SendData "UDPUpdateTime" & vbCrLf
234		Case 4:
235		If response = "ERROR" Then GoTo configError
236	<	Winsock2.SendData "TCPUpdateTime" & vbCrLf
236	>	UDPUpdateTime = response
237	>	TCPSock.SendData "TCPUpdateTime" & vbCrLf
238		Case 5:
239		If response = "ERROR" Then GoTo configError
240	<	Winsock2.SendData "ENDCONFIG" & vbCrLf
240	>	TCPUpdateTime = response
241	>	TCPSock.SendData "ENDCONFIG" & vbCrLf
242		Case 6:
243		If Not response = "OK" Then GoTo configError
244	<	Winsock2.SendData "FILTER" & vbCrLf
244	>	TCPSock.SendData "FILTER" & vbCrLf
245		Case 7:
246		'we got a filter list here.
247		readTo = 0
#	Line 220 | Line 255 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
255		response = Mid(response, readTo + 1, Len(response))
256		' get TCP Port number
257		filterTCPPort = response
258	<	Winsock2.SendData "END" & vbCrLf
258	>	TCPSock.SendData "END" & vbCrLf
259		Case 8:
260		If Not response = "OK" Then GoTo configError
261		connected = True
262		responseNumber = 0
263	<	Winsock2.Close
263	>	TCPSock.Close
264		Text4.Text = Text4.Text & vbCrLf & "  <closed>"
265	<	x = MsgBox("got config okay")
265	>	Label1.Caption = "TCP hearbeat interval: " & UDPUpdateTime
266	>	Label2.Caption = "UDP packet interval: " & TCPUpdateTime
267	>	Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay"
268	>	Label3.Caption = UDPUpdateTime
269	>	Label4.Caption = TCPUpdateTime
270	>	Timer1.Interval = 1000
271		End Select
272		Else
273		' Perform a heartbeat (1.1)
#	Line 235 | Line 275 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
275		Select Case responseNumber
276		Case 1:
277		If Not response = "OK" Then GoTo heartbeatError
278	<	Winsock2.SendData "CONFIG" & vbCrLf
278	>	TCPSock.SendData "CONFIG" & vbCrLf
279		Case 2:
280		If Not response = "OK" Then GoTo heartbeatError
281	<	Winsock2.SendData fileList & vbCrLf
281	>	TCPSock.SendData fileList & vbCrLf
282		Case 3:
283		If Not response = "OK" Then GoTo heartbeatError
284	<	Winsock2.SendData lastModified & vbCrLf
284	>	TCPSock.SendData lastModified & vbCrLf
285		Case 4:
286		If Not response = "OK" Then GoTo heartbeatError
287	<	Winsock2.SendData "ENDHEARTBEAT" & vbCrLf
287	>	TCPSock.SendData "ENDHEARTBEAT" & vbCrLf
288		Case 5:
289		If Not response = "OK" Then GoTo heartbeatError
290	<	Winsock2.Close
291	<	x = MsgBox("heartbeat sent okay.")
290	>	TCPSock.Close
291	>	Status.Caption = "i-scream Winhost " & protocolVersion & " - heartbeat sent okay."
292		End Select
293
294		End If
#	Line 257 | Line 297 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
297		Exit Sub
298
299		configError:
300	<	x = MsgBox("error doing configuration")
300	>	Status.Caption = "i-scream Winhost " & protocolVersion & " - FAILED to get configuration " & Err.Description
301	>	Exit Sub
302		heartbeatError:
303	<	x = MsgBox("error doing configuration")
303	>	Status.Caption = "i-scream Winhost " & protocolVersion & " - Heatbeat FAILED " & Err.Description
304	>	Exit Sub
305	>	End Sub
306	>
307	>	Private Sub TCPTimer_Timer()
308	>
309	>	' establish a TCP connection to a filter
310	>	TCPSock.Close
311	>	TCPSock.Connect filterHostname, filterTCPPort
312	>
313	>	End Sub
314	>
315	>	Private Sub UDPTimer_Timer()
316	>
317	>	' build the contents of the XML packet.
318	>	xml = "<packet></packet>"
319	>
320	>	' Use the first winsock control to send a UDP packet.
321	>	UDPSock.RemoteHost = filterHostname
322	>	UDPSock.RemotePort = filterUDPPort
323	>	UDPSock.SendData xml
324	>	Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
325	>
326	>	End Sub
327	>
328	>	Private Sub Timer1_Timer()
329	>
330	>	Label3.Caption = Label3.Caption - 1
331	>	Label4.Caption = Label4.Caption - 1
332	>
333	>	Status.Caption = "i-scream Winhost " & protocolVersion
334	>
335	>	If Label3.Caption < 1 Then
336	>	' build the contents of the XML packet.
337	>	xml = "<packet></packet>"
338	>
339	>	' Use the first winsock control to send a UDP packet.
340	>	UDPSock.RemoteHost = filterHostname
341	>	UDPSock.RemotePort = filterUDPPort
342	>	UDPSock.SendData xml
343	>	Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
344	>	Label3.Caption = UDPUpdateTime
345	>	End If
346	>
347	>	If Label4.Caption < 1 Then
348	>	' establish a TCP connection to a filter
349	>	TCPSock.Close
350	>	TCPSock.Connect filterHostname, filterTCPPort
351	>	Label4.Caption = TCPUpdateTime
352	>	End If
353	>
354		End Sub

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines