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.10 by pjm2, Fri Feb 23 11:42:06 2001 UTC

#	Line 1 | Line 1
1		VERSION 5.00
2		Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
3		Begin VB.Form Form1
4	<	BorderStyle     =   3  'Fixed Dialog
5	<	Caption         =   "TCP/UDP Test program"
4	>	BorderStyle     =   4  'Fixed ToolWindow
5	>	Caption         =   "i-scream Winhost"
6		ClientHeight    =   5655
7		ClientLeft      =   45
8	<	ClientTop       =   330
8	>	ClientTop       =   285
9		ClientWidth     =   5670
10		LinkTopic       =   "Form1"
11		MaxButton       =   0   'False
#	Line 14 | Line 14 | Begin VB.Form Form1
14		ScaleWidth      =   5670
15		ShowInTaskbar   =   0   'False
16		StartUpPosition =   3  'Windows Default
17	<	Begin VB.CommandButton Command3
18	<	Caption         =   "TCP to Filter"
19	<	Height          =   375
20	<	Left            =   3720
21	<	TabIndex        =   5
22	<	Top             =   2520
23	<	Width           =   1575
17	>	Begin VB.Timer Timer1
18	>	Left            =   4200
19	>	Top             =   1200
20		End
21		Begin VB.TextBox Text4
22	<	Height          =   2535
22	>	Height          =   1575
23		Left            =   240
24		MultiLine       =   -1  'True
25		ScrollBars      =   2  'Vertical
26	<	TabIndex        =   4
26	>	TabIndex        =   1
27		Text            =   "nettest.frx":0000
28		Top             =   3000
29		Width           =   5055
30		End
31	<	Begin VB.CommandButton Command2
32	<	Caption         =   "TCP to FilterManager"
33	<	Height          =   375
34	<	Left            =   3360
35	<	TabIndex        =   3
40	<	Top             =   2040
41	<	Width           =   1935
42	<	End
43	<	Begin MSWinsockLib.Winsock Winsock2
44	<	Left            =   4920
31	>	Begin VB.CommandButton Reconfigure
32	>	Caption         =   "Reconfigure with FilterManager"
33	>	Height          =   495
34	>	Left            =   120
35	>	TabIndex        =   0
36		Top             =   120
37	+	Width           =   2895
38	+	End
39	+	Begin MSWinsockLib.Winsock TCPSock
40	+	Left            =   5160
41	+	Top             =   1200
42		_ExtentX        =   741
43		_ExtentY        =   741
44		_Version        =   393216
45		End
46	<	Begin VB.CommandButton Command1
47	<	Caption         =   "Send UDP"
48	<	Height          =   375
53	<	Left            =   4320
54	<	TabIndex        =   2
55	<	Top             =   1560
56	<	Width           =   975
57	<	End
58	<	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
67	<	Left            =   4320
68	<	Top             =   120
46	>	Begin MSWinsockLib.Winsock UDPSock
47	>	Left            =   4680
48	>	Top             =   1200
49		_ExtentX        =   741
50		_ExtentY        =   741
51		_Version        =   393216
52		Protocol        =   1
53		End
54	+	Begin VB.Label Label2
55	+	Alignment       =   1  'Right Justify
56	+	Caption         =   "Next heartbeat:"
57	+	Height          =   255
58	+	Left            =   3360
59	+	TabIndex        =   6
60	+	Top             =   480
61	+	Width           =   1455
62	+	End
63		Begin VB.Label Label1
64	<	Caption         =   "Packet contents"
64	>	Alignment       =   1  'Right Justify
65	>	Caption         =   "Next UDP packet:"
66		Height          =   255
67	<	Left            =   360
68	<	TabIndex        =   1
69	<	Top             =   360
70	<	Width           =   2895
67	>	Left            =   3360
68	>	TabIndex        =   5
69	>	Top             =   120
70	>	Width           =   1455
71		End
72	+	Begin VB.Label Label4
73	+	BorderStyle     =   1  'Fixed Single
74	+	Caption         =   "0"
75	+	Height          =   255
76	+	Left            =   4920
77	+	TabIndex        =   4
78	+	Top             =   480
79	+	Width           =   615
80	+	End
81	+	Begin VB.Label Label3
82	+	BorderStyle     =   1  'Fixed Single
83	+	Caption         =   "0"
84	+	Height          =   255
85	+	Left            =   4920
86	+	TabIndex        =   3
87	+	Top             =   120
88	+	Width           =   615
89	+	End
90	+	Begin VB.Label Status
91	+	Caption         =   "Status:"
92	+	Height          =   255
93	+	Left            =   120
94	+	TabIndex        =   2
95	+	Top             =   840
96	+	Width           =   5415
97	+	End
98		End
99		Attribute VB_Name = "Form1"
100		Attribute VB_GlobalNameSpace = False
#	Line 97 | Line 113 | Dim filterUDPPort As Integer
113		Dim fileList As String
114		Dim lastModified As String
115
116	+	Dim UDPUpdateTime As Integer
117	+	Dim TCPUpdateTime As Integer
118	+
119		Dim protocolVersion As String
120		Dim connected As Boolean
121		Dim responseNumber As Integer
#	Line 104 | Line 123 | Dim responseNumber As Integer
123
124		Private Sub Command1_Click()
125
126	+	' build the contents of the XML packet.
127		xml = "<packet></packet>"
128
129		' Use the first winsock control to send a UDP packet.
130	<	Winsock1.RemoteHost = filterHostname
131	<	Winsock1.RemotePort = filterUDPPort
132	<	Winsock1.SendData xml
130	>	UDPSock.RemoteHost = filterHostname
131	>	UDPSock.RemotePort = filterUDPPort
132	>	UDPSock.SendData xml
133	>	Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
134
135		End Sub
136
116	–	Private Sub Command2_Click()
117	–
118	–	' establish a TCP connection to a filtermanager
119	–	Winsock2.Close
120	–	Winsock2.Connect filterManagerHostname, filterManagerTCPPort
137
122	–	End Sub
123	–
138		Private Sub Command3_Click()
139		' establish a TCP connection to a filter
140	<	Winsock2.Close
141	<	Winsock2.Connect filterHostname, filterTCPPort
140	>	TCPSock.Close
141	>	TCPSock.Connect filterHostname, filterTCPPort
142		End Sub
143
144		Private Sub Form_Load()
145		protocolVersion = "1.1"
146	+
147	+	Status.Caption = "Loading"
148	+	Form1.Caption = "i-scream Winhost " & protocolVersion
149
150		''''TEMP
151		filterManagerHostname = "killigrew.ukc.ac.uk"
152		filterManagerTCPPort = 4567
153	+	Reconfigure_Click
154		Exit Sub
155		''' ENDTEMP
156
#	Line 144 | Line 162 | Private Sub Form_Load()
162		length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
163		filterManagerTCPPort = Left$(buf, length)
164
165	+	Status.Caption = "Connecting to Filter Manager"
166	+
167		Exit Sub
168
169		iniError:
#	Line 152 | Line 172 | iniError:
172
173		End Sub
174
175	<	Private Sub Label2_Click()
175	>	Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
176	>	x = MsgBox("Are you sure you want to shut down the Winhost?", vbYesNo, "i-scream Winhost")
177	>	If x = 7 Then
178	>	Cancel = True
179	>	End If
180
181		End Sub
182
183	<	Private Sub Winsock2_Connect()
184	<
185	<	responseNumber = 0
183	>	Private Sub Reconfigure_Click()
184	>	' establish a TCP connection to a filtermanager
185	>	connected = False
186	>	TCPSock.Close
187	>	TCPSock.Connect filterManagerHostname, filterManagerTCPPort
188	>	End Sub
189	>
190	>	Private Sub TCPSock_Connect()
191	>
192	>	responseNumber = 0
193
194		' Send something as soon as we connect to the server.
195		If connected = False Then
196		' contact the FilterManager
197	<	Winsock2.SendData "STARTCONFIG" & vbCrLf
197	>	TCPSock.SendData "STARTCONFIG" & vbCrLf
198		Else
199		' Contact the Filter
200	<	Winsock2.SendData "HEARTBEAT" & vbCrLf
200	>	TCPSock.SendData "HEARTBEAT" & vbCrLf
201		End If
202
203		End Sub
204
205	<	Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
205	>	Private Sub TCPSock_DataArrival(ByVal bytesTotal As Long)
206
207		responseNumber = responseNumber + 1
208
209		' Get the line from the server.
210	<	Winsock2.GetData response, vbString, bytesTotal
210	>	TCPSock.GetData response, vbString, bytesTotal
211
212		' Remove linefeeds and returns from the line.
213		response = Replace(response, Chr(13), "")
#	Line 189 | Line 220 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
220		Select Case responseNumber
221		Case 1:
222		If Not response = "OK" Then GoTo configError
223	<	Winsock2.SendData "LASTMODIFIED" & vbCrLf
223	>	TCPSock.SendData "LASTMODIFIED" & vbCrLf
224		Case 2:
225		If response = "ERROR" Then GoTo configError
226		lastModified = response
227	<	Winsock2.SendData "FILELIST" & vbCrLf
227	>	TCPSock.SendData "FILELIST" & vbCrLf
228		Case 3:
229		If response = "ERROR" Then GoTo configError
230		fileList = response
231	<	Winsock2.SendData "UDPUpdateTime" & vbCrLf
231	>	TCPSock.SendData "UDPUpdateTime" & vbCrLf
232		Case 4:
233		If response = "ERROR" Then GoTo configError
234	<	Winsock2.SendData "TCPUpdateTime" & vbCrLf
234	>	UDPUpdateTime = response
235	>	TCPSock.SendData "TCPUpdateTime" & vbCrLf
236		Case 5:
237		If response = "ERROR" Then GoTo configError
238	<	Winsock2.SendData "ENDCONFIG" & vbCrLf
238	>	TCPUpdateTime = response
239	>	TCPSock.SendData "ENDCONFIG" & vbCrLf
240		Case 6:
241		If Not response = "OK" Then GoTo configError
242	<	Winsock2.SendData "FILTER" & vbCrLf
242	>	TCPSock.SendData "FILTER" & vbCrLf
243		Case 7:
244		'we got a filter list here.
245		readTo = 0
#	Line 220 | Line 253 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
253		response = Mid(response, readTo + 1, Len(response))
254		' get TCP Port number
255		filterTCPPort = response
256	<	Winsock2.SendData "END" & vbCrLf
256	>	TCPSock.SendData "END" & vbCrLf
257		Case 8:
258		If Not response = "OK" Then GoTo configError
259		connected = True
260		responseNumber = 0
261	<	Winsock2.Close
261	>	TCPSock.Close
262		Text4.Text = Text4.Text & vbCrLf & "  <closed>"
263	<	x = MsgBox("got config okay")
263	>	Status.Caption = "Configuration successful"
264	>	Label3.Caption = UDPUpdateTime
265	>	Label4.Caption = TCPUpdateTime
266	>	Timer1.Interval = 1000
267		End Select
268		Else
269		' Perform a heartbeat (1.1)
#	Line 235 | Line 271 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
271		Select Case responseNumber
272		Case 1:
273		If Not response = "OK" Then GoTo heartbeatError
274	<	Winsock2.SendData "CONFIG" & vbCrLf
274	>	TCPSock.SendData "CONFIG" & vbCrLf
275		Case 2:
276		If Not response = "OK" Then GoTo heartbeatError
277	<	Winsock2.SendData fileList & vbCrLf
277	>	TCPSock.SendData fileList & vbCrLf
278		Case 3:
279		If Not response = "OK" Then GoTo heartbeatError
280	<	Winsock2.SendData lastModified & vbCrLf
280	>	TCPSock.SendData lastModified & vbCrLf
281		Case 4:
282		If Not response = "OK" Then GoTo heartbeatError
283	<	Winsock2.SendData "ENDHEARTBEAT" & vbCrLf
283	>	TCPSock.SendData "ENDHEARTBEAT" & vbCrLf
284		Case 5:
285		If Not response = "OK" Then GoTo heartbeatError
286	<	Winsock2.Close
287	<	x = MsgBox("heartbeat sent okay.")
286	>	TCPSock.Close
287	>	Status.Caption = "Heartbeat sent successfully."
288		End Select
289
290		End If
#	Line 257 | Line 293 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
293		Exit Sub
294
295		configError:
296	<	x = MsgBox("error doing configuration")
296	>	Status.Caption = "FAILED to get configuration"
297	>	Exit Sub
298		heartbeatError:
299	<	x = MsgBox("error doing configuration")
299	>	Status.Caption = "Heatbeat FAILED"
300	>	Exit Sub
301	>	End Sub
302	>
303	>	Private Sub Timer1_Timer()
304	>
305	>	Label3.Caption = Label3.Caption - 1
306	>	Label4.Caption = Label4.Caption - 1
307	>
308	>	Status.Caption = ""
309	>
310	>	If Label3.Caption < 1 Then
311	>	' build the contents of the XML packet.
312	>	xml = "<packet></packet>"
313	>
314	>	' Use the first winsock control to send a UDP packet.
315	>	UDPSock.RemoteHost = filterHostname
316	>	UDPSock.RemotePort = filterUDPPort
317	>	UDPSock.SendData xml
318	>	Status.Caption = "UDP packet sent"
319	>	Label3.Caption = UDPUpdateTime
320	>	End If
321	>
322	>	If Label4.Caption < 1 Then
323	>	' establish a TCP connection to a filter
324	>	TCPSock.Close
325	>	TCPSock.Connect filterHostname, filterTCPPort
326	>	Label4.Caption = TCPUpdateTime
327	>	End If
328	>
329		End Sub

Diff Legend

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