[ViewVC] Diff of: i-scream/experimental/host/vb_net

Comparing experimental/host/vb_net_test/nettest.frm (file contents):
Revision 1.5 by pjm2, Fri Feb 23 10:34:47 2001 UTC vs.
Revision 1.11 by pjm2, Fri Feb 23 11:56:43 2001 UTC

#	Line 1 \| Line 1
1		VERSION 5.00
2		Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
3	+	Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0"; "SysTray.ocx"
4		Begin VB.Form Form1
5	<	BorderStyle = 3 'Fixed Dialog
6	<	Caption = "TCP/UDP Test program"
5	>	BorderStyle = 4 'Fixed ToolWindow
6	>	Caption = "i-scream Winhost"
7		ClientHeight = 5655
8		ClientLeft = 45
9	<	ClientTop = 330
9	>	ClientTop = 285
10		ClientWidth = 5670
11		LinkTopic = "Form1"
12		MaxButton = 0 'False
12	–	MinButton = 0 'False
13		ScaleHeight = 5655
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.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	+	Begin VB.Timer Timer1
34	+	Left = 4200
35	+	Top = 1200
36	+	End
37		Begin VB.TextBox Text4
38	<	Height = 2535
38	>	Height = 1575
39		Left = 240
40		MultiLine = -1 'True
41		ScrollBars = 2 'Vertical
42	<	TabIndex = 4
42	>	TabIndex = 1
43		Text = "nettest.frx":0000
44		Top = 3000
45		Width = 5055
46		End
47	<	Begin VB.CommandButton Command2
48	<	Caption = "TCP to FilterManager"
49	<	Height = 375
50	<	Left = 3360
51	<	TabIndex = 3
52	<	Top = 2040
53	<	Width = 1935
47	>	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		End
55		Begin MSWinsockLib.Winsock TCPSock
56	<	Left = 4920
57	<	Top = 120
56	>	Left = 5160
57	>	Top = 1200
58		_ExtentX = 741
59		_ExtentY = 741
60		_Version = 393216
61		End
50	–	Begin VB.CommandButton Command1
51	–	Caption = "Send UDP"
52	–	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
62		Begin MSWinsockLib.Winsock UDPSock
63	<	Left = 4320
64	<	Top = 120
63	>	Left = 4680
64	>	Top = 1200
65		_ExtentX = 741
66		_ExtentY = 741
67		_Version = 393216
68		Protocol = 1
69		End
70	+	Begin VB.Label Label2
71	+	Alignment = 1 'Right Justify
72	+	Caption = "Next heartbeat:"
73	+	Height = 255
74	+	Left = 3360
75	+	TabIndex = 6
76	+	Top = 480
77	+	Width = 1455
78	+	End
79		Begin VB.Label Label1
80	<	Caption = "Packet contents"
80	>	Alignment = 1 'Right Justify
81	>	Caption = "Next UDP packet:"
82		Height = 255
83	<	Left = 360
84	<	TabIndex = 1
85	<	Top = 360
86	<	Width = 2895
83	>	Left = 3360
84	>	TabIndex = 5
85	>	Top = 120
86	>	Width = 1455
87		End
88	+	Begin VB.Label Label4
89	+	BorderStyle = 1 'Fixed Single
90	+	Caption = "0"
91	+	Height = 255
92	+	Left = 4920
93	+	TabIndex = 4
94	+	Top = 480
95	+	Width = 615
96	+	End
97	+	Begin VB.Label Label3
98	+	BorderStyle = 1 'Fixed Single
99	+	Caption = "0"
100	+	Height = 255
101	+	Left = 4920
102	+	TabIndex = 3
103	+	Top = 120
104	+	Width = 615
105	+	End
106	+	Begin VB.Label Status
107	+	Caption = "Status:"
108	+	Height = 255
109	+	Left = 120
110	+	TabIndex = 2
111	+	Top = 840
112	+	Width = 5415
113	+	End
114		End
115		Attribute VB_Name = "Form1"
116		Attribute VB_GlobalNameSpace = False
#	Line 97 \| Line 129 \| Dim filterUDPPort As Integer
129		Dim fileList As String
130		Dim lastModified As String
131
132	+	Dim UDPUpdateTime As Integer
133	+	Dim TCPUpdateTime As Integer
134	+
135		Dim protocolVersion As String
136		Dim connected As Boolean
137		Dim responseNumber As Integer
#	Line 111 \| Line 146 \| Private Sub Command1_Click()
146		UDPSock.RemoteHost = filterHostname
147		UDPSock.RemotePort = filterUDPPort
148		UDPSock.SendData xml
149	+	Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
150
151		End Sub
152
117	–	Private Sub Command2_Click()
118	–
119	–	' establish a TCP connection to a filtermanager
120	–	TCPSock.Close
121	–	TCPSock.Connect filterManagerHostname, filterManagerTCPPort
153
123	–	End Sub
124	–
154		Private Sub Command3_Click()
155		' establish a TCP connection to a filter
156		TCPSock.Close
#	Line 130 \| Line 159 \| End Sub
159
160		Private Sub Form_Load()
161		protocolVersion = "1.1"
162	+
163	+	Status.Caption = "Loading"
164	+	Form1.Caption = "i-scream Winhost " & protocolVersion
165
166		''''TEMP
167		filterManagerHostname = "killigrew.ukc.ac.uk"
168		filterManagerTCPPort = 4567
169	+	Reconfigure_Click
170		Exit Sub
171		''' ENDTEMP
172
#	Line 145 \| Line 178 \| Private Sub Form_Load()
178		length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
179		filterManagerTCPPort = Left$(buf, length)
180
181	+	Status.Caption = "Connecting to Filter Manager"
182	+
183		Exit Sub
184
185		iniError:
#	Line 153 \| Line 188 \| iniError:
188
189		End Sub
190
191	+	Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
192	+	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	+	If x = 7 Then
194	+	Cancel = True
195	+	End If
196	+
197	+	End Sub
198	+
199	+	Private Sub Hide_Click()
200	+	Form1.Visible = False
201	+	SystemTray.Icon = Val(Form1.Icon)
202	+	SystemTray.Action = 0
203	+	End Sub
204	+
205	+	Private Sub Reconfigure_Click()
206	+	' establish a TCP connection to a filtermanager
207	+	connected = False
208	+	TCPSock.Close
209	+	TCPSock.Connect filterManagerHostname, filterManagerTCPPort
210	+	End Sub
211	+
212	+
213	+
214	+	Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)
215	+
216	+	Form1.Visible = True
217	+	Form1.SetFocus
218	+
219	+	End Sub
220	+
221		Private Sub TCPSock_Connect()
222	<
223	<	responseNumber = 0
222	>
223	>	responseNumber = 0
224
225		' Send something as soon as we connect to the server.
226		If connected = False Then
#	Line 197 \| Line 262 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
262		TCPSock.SendData "UDPUpdateTime" & vbCrLf
263		Case 4:
264		If response = "ERROR" Then GoTo configError
265	+	UDPUpdateTime = response
266		TCPSock.SendData "TCPUpdateTime" & vbCrLf
267		Case 5:
268		If response = "ERROR" Then GoTo configError
269	+	TCPUpdateTime = response
270		TCPSock.SendData "ENDCONFIG" & vbCrLf
271		Case 6:
272		If Not response = "OK" Then GoTo configError
#	Line 224 \| Line 291 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
291		responseNumber = 0
292		TCPSock.Close
293		Text4.Text = Text4.Text & vbCrLf & " <closed>"
294	<	x = MsgBox("got config okay")
294	>	Status.Caption = "Configuration successful"
295	>	Label3.Caption = UDPUpdateTime
296	>	Label4.Caption = TCPUpdateTime
297	>	Timer1.Interval = 1000
298		End Select
299		Else
300		' Perform a heartbeat (1.1)
#	Line 245 \| Line 315 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
315		Case 5:
316		If Not response = "OK" Then GoTo heartbeatError
317		TCPSock.Close
318	<	x = MsgBox("heartbeat sent okay.")
318	>	Status.Caption = "Heartbeat sent successfully."
319		End Select
320
321		End If
#	Line 254 \| Line 324 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
324		Exit Sub
325
326		configError:
327	<	x = MsgBox("error doing configuration")
327	>	Status.Caption = "FAILED to get configuration"
328	>	Exit Sub
329		heartbeatError:
330	<	x = MsgBox("error doing configuration")
330	>	Status.Caption = "Heatbeat FAILED"
331	>	Exit Sub
332		End Sub
333
334	+	Private Sub Timer1_Timer()
335	+
336	+	Label3.Caption = Label3.Caption - 1
337	+	Label4.Caption = Label4.Caption - 1
338	+
339	+	Status.Caption = ""
340	+
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	+	Status.Caption = "UDP packet sent"
350	+	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

Diff Legend

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

Comparing experimental/host/vb_net_test/nettest.frm (file contents): Revision 1.5 by pjm2, Fri Feb 23 10:34:47 2001 UTC vs. Revision 1.11 by pjm2, Fri Feb 23 11:56:43 2001 UTC

Diff Legend

Comparing experimental/host/vb_net_test/nettest.frm (file contents):
Revision 1.5 by pjm2, Fri Feb 23 10:34:47 2001 UTC vs.
Revision 1.11 by pjm2, Fri Feb 23 11:56:43 2001 UTC