[ViewVC] Diff of: i-scream/projects/cms/source/host/winhost/nettest.frm

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.7 by pjm2, Fri Feb 23 10:58:00 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.Timer TCPTimer
18	<	Left = 3360
19	<	Top = 120
17	>	Begin VB.Timer Timer1
18	>	Left = 4200
19	>	Top = 1200
20		End
21	–	Begin VB.Timer UDPTimer
22	–	Left = 3840
23	–	Top = 120
24	–	End
25	–	Begin VB.CommandButton Command3
26	–	Caption = "TCP to Filter"
27	–	Height = 375
28	–	Left = 3720
29	–	TabIndex = 3
30	–	Top = 2520
31	–	Width = 1575
32	–	End
21		Begin VB.TextBox Text4
22		Height = 1575
23		Left = 240
24		MultiLine = -1 'True
25		ScrollBars = 2 'Vertical
26	<	TabIndex = 2
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 = 1
36	<	Top = 2040
37	<	Width = 1935
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 = 4920
41	<	Top = 120
40	>	Left = 5160
41	>	Top = 1200
42		_ExtentX = 741
43		_ExtentY = 741
44		_Version = 393216
45		End
58	–	Begin VB.CommandButton Command1
59	–	Caption = "Send UDP"
60	–	Height = 375
61	–	Left = 4320
62	–	TabIndex = 0
63	–	Top = 1560
64	–	Width = 975
65	–	End
46		Begin MSWinsockLib.Winsock UDPSock
47	<	Left = 4320
48	<	Top = 120
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	<	Caption = "Label2"
55	>	Alignment = 1 'Right Justify
56	>	Caption = "Next heartbeat:"
57		Height = 255
58	<	Left = 120
58	>	Left = 3360
59		TabIndex = 6
60	<	Top = 600
61	<	Width = 3375
60	>	Top = 480
61	>	Width = 1455
62		End
63		Begin VB.Label Label1
64	<	Caption = "Label1"
64	>	Alignment = 1 'Right Justify
65	>	Caption = "Next UDP packet:"
66		Height = 255
67	<	Left = 120
67	>	Left = 3360
68		TabIndex = 5
69	<	Top = 240
70	<	Width = 3375
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 = 4
95	<	Top = 5280
94	>	TabIndex = 2
95	>	Top = 840
96		Width = 5415
97		End
98		End
#	Line 134 \| Line 134 \| Private Sub Command1_Click()
134
135		End Sub
136
137	–	Private Sub Command2_Click()
138	–
139	–	' establish a TCP connection to a filtermanager
140	–	TCPSock.Close
141	–	TCPSock.Connect filterManagerHostname, filterManagerTCPPort
137
143	–	End Sub
144	–
138		Private Sub Command3_Click()
139		' establish a TCP connection to a filter
140		TCPSock.Close
#	Line 150 \| Line 143 \| 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
154	–	Status.Caption = "i-scream Winhost " & protocolVersion
155	–
150		''''TEMP
151		filterManagerHostname = "killigrew.ukc.ac.uk"
152		filterManagerTCPPort = 4567
153	+	Reconfigure_Click
154		Exit Sub
155		''' ENDTEMP
156
#	Line 167 \| 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 = "i-scream Winhost " & protocolVersion & " connecting to Filter Manager"
165	>	Status.Caption = "Connecting to Filter Manager"
166
167		Exit Sub
168
#	Line 177 \| Line 172 \| iniError:
172
173		End Sub
174
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 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
#	Line 250 \| Line 260 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
260		responseNumber = 0
261		TCPSock.Close
262		Text4.Text = Text4.Text & vbCrLf & " <closed>"
263	<	Label1.Caption = "TCP hearbeat interval: " & UDPUpdateTime
264	<	Label2.Caption = "UDP packet interval: " & TCPUpdateTime
265	<	Status.Caption = "i-scream Winhost " & protocolVersion & " - 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 273 \| Line 284 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
284		Case 5:
285		If Not response = "OK" Then GoTo heartbeatError
286		TCPSock.Close
287	<	Status.Caption = "i-scream Winhost " & protocolVersion & " - heartbeat sent okay."
287	>	Status.Caption = "Heartbeat sent successfully."
288		End Select
289
290		End If
#	Line 282 \| Line 293 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
293		Exit Sub
294
295		configError:
296	<	Status.Caption = "i-scream Winhost " & protocolVersion & " - FAILED to get configuration"
296	>	Status.Caption = "FAILED to get configuration"
297	>	Exit Sub
298		heartbeatError:
299	<	Status.Caption = "i-scream Winhost " & protocolVersion & " - Heatbeat FAILED"
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

Comparing projects/cms/source/host/winhost/nettest.frm (file contents): Revision 1.7 by pjm2, Fri Feb 23 10:58:00 2001 UTC vs. Revision 1.10 by pjm2, Fri Feb 23 11:42:06 2001 UTC

Diff Legend

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.7 by pjm2, Fri Feb 23 10:58:00 2001 UTC vs.
Revision 1.10 by pjm2, Fri Feb 23 11:42:06 2001 UTC