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

Comparing experimental/host/vb_net_test/nettest.frm (file contents):
Revision 1.9 by pjm2, Fri Feb 23 11:30:25 2001 UTC vs.
Revision 1.12 by pjm2, Fri Feb 23 12:01:14 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
10	<	ClientWidth = 5670
9	>	ClientTop = 285
10	>	ClientWidth = 4710
11		LinkTopic = "Form1"
12		MaxButton = 0 'False
12	–	MinButton = 0 'False
13		ScaleHeight = 5655
14	<	ScaleWidth = 5670
14	>	ScaleWidth = 4710
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"
17	>	Begin VB.CommandButton Hide
18	>	Caption = "Hide Window"
19		Height = 375
20	<	Left = 3720
21	<	TabIndex = 3
22	<	Top = 2520
23	<	Width = 1575
20	>	Left = 3120
21	>	TabIndex = 7
22	>	Top = 840
23	>	Width = 1455
24		End
25	+	Begin SysTray.SystemTray SystemTray
26	+	Left = 2160
27	+	Top = 1800
28	+	_ExtentX = 847
29	+	_ExtentY = 847
30	+	SysTrayText = "i-scream Winhost"
31	+	IconFile = 0
32	+	End
33	+	Begin VB.Timer Timer1
34	+	Left = 2760
35	+	Top = 1800
36	+	End
37		Begin VB.TextBox Text4
38		Height = 1575
39		Left = 240
40		MultiLine = -1 'True
41		ScrollBars = 2 'Vertical
42	<	TabIndex = 2
42	>	TabIndex = 1
43		Text = "nettest.frx":0000
44		Top = 3000
45	<	Width = 5055
45	>	Width = 3975
46		End
47	<	Begin VB.CommandButton Command2
48	<	Caption = "TCP to FilterManager"
47	>	Begin VB.CommandButton Reconfigure
48	>	Caption = "Reconfigure with FilterManager"
49		Height = 375
50	<	Left = 3360
51	<	TabIndex = 1
52	<	Top = 2040
53	<	Width = 1935
50	>	Left = 120
51	>	TabIndex = 0
52	>	Top = 840
53	>	Width = 2895
54		End
55		Begin MSWinsockLib.Winsock TCPSock
56	<	Left = 4920
57	<	Top = 120
56	>	Left = 3720
57	>	Top = 1800
58		_ExtentX = 741
59		_ExtentY = 741
60		_Version = 393216
61		End
54	–	Begin VB.CommandButton Command1
55	–	Caption = "Send UDP"
56	–	Height = 375
57	–	Left = 4320
58	–	TabIndex = 0
59	–	Top = 1560
60	–	Width = 975
61	–	End
62		Begin MSWinsockLib.Winsock UDPSock
63	<	Left = 4320
64	<	Top = 120
63	>	Left = 3240
64	>	Top = 1800
65		_ExtentX = 741
66		_ExtentY = 741
67		_Version = 393216
#	Line 71 \| Line 71 \| Begin VB.Form Form1
71		Alignment = 1 'Right Justify
72		Caption = "Next heartbeat:"
73		Height = 255
74	<	Left = 120
75	<	TabIndex = 8
74	>	Left = 2400
75	>	TabIndex = 6
76		Top = 480
77		Width = 1455
78		End
#	Line 80 \| Line 80 \| Begin VB.Form Form1
80		Alignment = 1 'Right Justify
81		Caption = "Next UDP packet:"
82		Height = 255
83	<	Left = 120
84	<	TabIndex = 7
83	>	Left = 2400
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 = 1680
93	<	TabIndex = 6
92	>	Left = 3960
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 = 1680
102	<	TabIndex = 5
101	>	Left = 3960
102	>	TabIndex = 3
103		Top = 120
104		Width = 615
105		End
106		Begin VB.Label Status
107	+	Alignment = 2 'Center
108		Caption = "Status:"
109		Height = 255
110		Left = 120
111	<	TabIndex = 4
112	<	Top = 5280
113	<	Width = 5415
111	>	TabIndex = 2
112	>	Top = 1320
113	>	Width = 4455
114		End
115		End
116		Attribute VB_Name = "Form1"
#	Line 148 \| Line 151 \| Private Sub Command1_Click()
151
152		End Sub
153
151	–	Private Sub Command2_Click()
152	–
153	–	' establish a TCP connection to a filtermanager
154	–	TCPSock.Close
155	–	TCPSock.Connect filterManagerHostname, filterManagerTCPPort
154
157	–	End Sub
158	–
155		Private Sub Command3_Click()
156		' establish a TCP connection to a filter
157		TCPSock.Close
#	Line 164 \| Line 160 \| End Sub
160
161		Private Sub Form_Load()
162		protocolVersion = "1.1"
163	+
164	+	Status.Caption = "Loading"
165	+	Form1.Caption = "i-scream Winhost " & protocolVersion
166
168	–	Status.Caption = "i-scream Winhost " & protocolVersion
169	–
167		''''TEMP
168		filterManagerHostname = "killigrew.ukc.ac.uk"
169		filterManagerTCPPort = 4567
170	+	Reconfigure_Click
171		Exit Sub
172		''' ENDTEMP
173
#	Line 181 \| 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"
182	>	Status.Caption = "Connecting to Filter Manager"
183
184		Exit Sub
185
#	Line 191 \| Line 189 \| iniError:
189
190		End Sub
191
192	+	Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
193	+	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")
194	+	If x = 7 Then
195	+	Cancel = True
196	+	End If
197	+	SystemTray.Action = 2
198	+
199	+	End Sub
200	+
201	+	Private Sub Hide_Click()
202	+	Form1.Visible = False
203	+	SystemTray.Icon = Val(Form1.Icon)
204	+	SystemTray.Action = 0
205	+	End Sub
206	+
207	+	Private Sub Reconfigure_Click()
208	+	' establish a TCP connection to a filtermanager
209	+	connected = False
210	+	TCPSock.Close
211	+	TCPSock.Connect filterManagerHostname, filterManagerTCPPort
212	+	End Sub
213	+
214	+
215	+
216	+	Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)
217	+
218	+	Form1.Visible = True
219	+	SystemTray.Action = 2
220	+	Form1.SetFocus
221	+
222	+
223	+	End Sub
224	+
225		Private Sub TCPSock_Connect()
226
227		responseNumber = 0
#	Line 264 \| Line 295 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
295		responseNumber = 0
296		TCPSock.Close
297		Text4.Text = Text4.Text & vbCrLf & " <closed>"
298	<	Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay"
298	>	Status.Caption = "Configuration successful"
299		Label3.Caption = UDPUpdateTime
300		Label4.Caption = TCPUpdateTime
301		Timer1.Interval = 1000
#	Line 288 \| Line 319 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
319		Case 5:
320		If Not response = "OK" Then GoTo heartbeatError
321		TCPSock.Close
322	<	Status.Caption = "i-scream Winhost " & protocolVersion & " - heartbeat sent okay."
322	>	Status.Caption = "Heartbeat sent successfully."
323		End Select
324
325		End If
#	Line 297 \| Line 328 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
328		Exit Sub
329
330		configError:
331	<	Status.Caption = "i-scream Winhost " & protocolVersion & " - FAILED to get configuration " & Err.Description
331	>	Status.Caption = "FAILED to get configuration"
332		Exit Sub
333		heartbeatError:
334	<	Status.Caption = "i-scream Winhost " & protocolVersion & " - Heatbeat FAILED " & Err.Description
334	>	Status.Caption = "Heatbeat FAILED"
335		Exit Sub
336		End Sub
337
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	–
338		Private Sub Timer1_Timer()
339
340		Label3.Caption = Label3.Caption - 1
341		Label4.Caption = Label4.Caption - 1
342
343	<	Status.Caption = "i-scream Winhost " & protocolVersion
343	>	Status.Caption = ""
344
345		If Label3.Caption < 1 Then
346		' build the contents of the XML packet.
#	Line 340 \| Line 350 \| Private Sub Timer1_Timer()
350		UDPSock.RemoteHost = filterHostname
351		UDPSock.RemotePort = filterUDPPort
352		UDPSock.SendData xml
353	<	Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
353	>	Status.Caption = "UDP packet sent"
354		Label3.Caption = UDPUpdateTime
355		End If
356

Diff Legend

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

Comparing experimental/host/vb_net_test/nettest.frm (file contents): Revision 1.9 by pjm2, Fri Feb 23 11:30:25 2001 UTC vs. Revision 1.12 by pjm2, Fri Feb 23 12:01:14 2001 UTC

Diff Legend

Comparing experimental/host/vb_net_test/nettest.frm (file contents):
Revision 1.9 by pjm2, Fri Feb 23 11:30:25 2001 UTC vs.
Revision 1.12 by pjm2, Fri Feb 23 12:01:14 2001 UTC