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.1 by pjm2, Thu Feb 22 17:04:22 2001 UTC vs.
Revision 1.14 by pjm2, Fri Feb 23 13:27:09 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.CommandButton Command3
18	<	Caption         =   "TCP to Filter"
17	>	Begin VB.CommandButton Hide
18	>	Caption         =   "Hide Window"
19		Height          =   375
20	<	Left            =   3720
21	<	TabIndex        =   9
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          =   2535
38	>	Height          =   1575
39		Left            =   240
40		MultiLine       =   -1  'True
41		ScrollBars      =   2  'Vertical
42	<	TabIndex        =   8
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        =   7
52	<	Top             =   2040
53	<	Width           =   1935
50	>	Left            =   120
51	>	TabIndex        =   0
52	>	Top             =   840
53	>	Width           =   2895
54		End
55	<	Begin MSWinsockLib.Winsock Winsock2
56	<	Left            =   4920
57	<	Top             =   120
55	>	Begin MSWinsockLib.Winsock TCPSock
56	>	Left            =   3720
57	>	Top             =   1800
58		_ExtentX        =   741
59		_ExtentY        =   741
60		_Version        =   393216
61		End
62	<	Begin VB.TextBox Text3
63	<	Height          =   285
64	<	Left            =   1680
53	<	TabIndex        =   5
54	<	Text            =   "killigrew.ukc.ac.uk"
55	<	Top             =   1560
56	<	Width           =   2535
57	<	End
58	<	Begin VB.TextBox Text2
59	<	Height          =   285
60	<	Left            =   1680
61	<	TabIndex        =   3
62	<	Text            =   "4567"
63	<	Top             =   1920
64	<	Width           =   855
65	<	End
66	<	Begin VB.CommandButton Command1
67	<	Caption         =   "Send UDP"
68	<	Height          =   375
69	<	Left            =   4320
70	<	TabIndex        =   2
71	<	Top             =   1560
72	<	Width           =   975
73	<	End
74	<	Begin VB.TextBox Text1
75	<	Height          =   855
76	<	Left            =   360
77	<	TabIndex        =   0
78	<	Text            =   "<packet></packet>"
79	<	Top             =   600
80	<	Width           =   4935
81	<	End
82	<	Begin MSWinsockLib.Winsock Winsock1
83	<	Left            =   4320
84	<	Top             =   120
62	>	Begin MSWinsockLib.Winsock UDPSock
63	>	Left            =   3240
64	>	Top             =   1800
65		_ExtentX        =   741
66		_ExtentY        =   741
67		_Version        =   393216
68		Protocol        =   1
69		End
70	<	Begin VB.Label Label3
70	>	Begin VB.Label Label2
71		Alignment       =   1  'Right Justify
72	<	Caption         =   "Destination:"
72	>	Caption         =   "Next heartbeat:"
73		Height          =   255
74	<	Left            =   360
74	>	Left            =   2400
75		TabIndex        =   6
76	<	Top             =   1560
77	<	Width           =   1215
76	>	Top             =   480
77	>	Width           =   1455
78		End
79	<	Begin VB.Label Label2
79	>	Begin VB.Label Label1
80		Alignment       =   1  'Right Justify
81	<	Caption         =   "Port:"
81	>	Caption         =   "Next UDP packet:"
82		Height          =   255
83	<	Left            =   360
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            =   3960
93		TabIndex        =   4
94	<	Top             =   1920
95	<	Width           =   1215
94	>	Top             =   480
95	>	Width           =   615
96		End
97	<	Begin VB.Label Label1
98	<	Caption         =   "Packet contents"
97	>	Begin VB.Label Label3
98	>	BorderStyle     =   1  'Fixed Single
99	>	Caption         =   "0"
100		Height          =   255
101	<	Left            =   360
102	<	TabIndex        =   1
103	<	Top             =   360
104	<	Width           =   2895
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        =   2
112	+	Top             =   1320
113	+	Width           =   4455
114	+	End
115		End
116		Attribute VB_Name = "Form1"
117		Attribute VB_GlobalNameSpace = False
118		Attribute VB_Creatable = False
119		Attribute VB_PredeclaredId = True
120		Attribute VB_Exposed = False
121	+	Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
122	+	Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
123	+
124	+	Dim filterManagerHostname As String
125	+	Dim filterManagerTCPPort As Integer
126	+
127	+	Dim seqNo As Long
128	+	Dim machineName As String
129	+
130	+	Dim filterHostname As String
131	+	Dim filterTCPPort As Integer
132	+	Dim filterUDPPort As Integer
133	+	Dim fileList As String
134	+	Dim lastModified As String
135	+
136	+	Dim UDPUpdateTime As Integer
137	+	Dim TCPUpdateTime As Integer
138	+
139	+	Dim protocolVersion As String
140	+	Dim connected As Boolean
141		Dim responseNumber As Integer
142
143	+	Private Sub Form_Load()
144	+
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	+	''''' END TEMP
154	+
155	+	GoTo skip
156	+	On Error GoTo iniError
157	+	Dim buf As String * 256
158	+	Dim length As Long
159	+	length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
160	+	filterManagerHostname = Left$(buf, length)
161	+	length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
162	+	filterManagerTCPPort = Left$(buf, length)
163	+	skip:
164
165	<	Private Sub Command1_Click()
165	>	Status.Caption = "Connecting to Filter Manager"
166	>	Reconfigure_Click
167	>
168	>	Exit Sub
169	>
170	>	iniError:
171	>	x = MsgBox("The i-scream Winhost could not read the correct settings from the winhost.ini file.  Please correct these and try again.", 48, "Configuration not found")
172	>	End
173	>
174	>	End Sub
175
176	<	' Use the first winsock control to send
177	<	' a UDP packet.
178	<	Winsock1.RemoteHost = Text3.Text
179	<	Winsock1.RemotePort = Text2.Text
180	<	Winsock1.SendData Text1.Text
176	>	Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
177	>	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")
178	>	If x = 7 Then
179	>	Cancel = True
180	>	End If
181	>	SystemTray.Action = 2
182
183		End Sub
184
185	<	Private Sub Command2_Click()
186	<
187	<	' establish a TCP connection to a machine
188	<	Winsock2.Close
189	<	Winsock2.Connect Text3.Text, Text2.Text
185	>	Private Sub Hide_Click()
186	>	Form1.Visible = False
187	>	SystemTray.Icon = Val(Form1.Icon)
188	>	SystemTray.Action = 0
189	>	End Sub
190
191	+	Private Sub Reconfigure_Click()
192	+	' establish a TCP connection to a filtermanager
193	+	connected = False
194	+	TCPSock.Close
195	+	TCPSock.Connect filterManagerHostname, filterManagerTCPPort
196		End Sub
197
198	<	Private Sub Command3_Click()
199	<	x = MsgBox("not implemented..")
198	>
199	>
200	>	Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)
201	>
202	>	Form1.Visible = True
203	>	SystemTray.Action = 2
204	>	Form1.SetFocus
205	>
206	>
207		End Sub
208
209	<	Private Sub Winsock2_Connect()
210	<
211	<	responseNumber = 0
209	>	Private Sub TCPSock_Connect()
210	>
211	>	responseNumber = 0
212
213	<	' As soon as we are connected to the server, send this.
214	<	Winsock2.SendData "STARTCONFIG" & vbCrLf
213	>	' Send something as soon as we connect to the server.
214	>	If connected = False Then
215	>	' contact the FilterManager
216	>	TCPSock.SendData "STARTCONFIG" & vbCrLf
217	>	Else
218	>	' Contact the Filter
219	>	TCPSock.SendData "HEARTBEAT" & vbCrLf
220	>	End If
221
222		End Sub
223
224	<	Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
224	>	Private Sub TCPSock_DataArrival(ByVal bytesTotal As Long)
225
226		responseNumber = responseNumber + 1
227
228		' Get the line from the server.
229	<	Winsock2.GetData response, vbString, bytesTotal
229	>	TCPSock.GetData response, vbString, bytesTotal
230
231		' Remove linefeeds and returns from the line.
232		response = Replace(response, Chr(13), "")
233		response = Replace(response, Chr(10), "")
234		Text4.Text = Text4.Text & vbCrLf & response
235
236	<	' Decide what to send back to the server.
237	<	Select Case responseNumber
238	<	Case 1:
239	<	Winsock2.SendData "LASTMODIFIED" & vbCrLf
240	<	Case 2:
241	<	Winsock2.SendData "FILELIST" & vbCrLf
242	<	Case 3:
243	<	Winsock2.SendData "UDPUpdateTime" & vbCrLf
244	<	Case 4:
245	<	Winsock2.SendData "TCPUpdateTime" & vbCrLf
246	<	Case 5:
247	<	Winsock2.SendData "ENDCONFIG" & vbCrLf
248	<	Case 6:
249	<	Winsock2.SendData "FILTER" & vbCrLf
250	<	Case 7:
251	<	Winsock2.SendData "END" & vbCrLf
252	<	Case 8:
253	<	Winsock2.Close
254	<	Text4.Text = Text4.Text & vbCrLf & "  <closed>"
255	<	End Select
236	>	If connected = False Then
237	>	' Perform TCP configuration (1.1)
238	>	On Error GoTo configError
239	>	Select Case responseNumber
240	>	Case 1:
241	>	If Not response = "OK" Then GoTo configError
242	>	TCPSock.SendData "LASTMODIFIED" & vbCrLf
243	>	Case 2:
244	>	If response = "ERROR" Then GoTo configError
245	>	lastModified = response
246	>	TCPSock.SendData "FILELIST" & vbCrLf
247	>	Case 3:
248	>	If response = "ERROR" Then GoTo configError
249	>	fileList = response
250	>	TCPSock.SendData "UDPUpdateTime" & vbCrLf
251	>	Case 4:
252	>	If response = "ERROR" Then GoTo configError
253	>	UDPUpdateTime = response
254	>	TCPSock.SendData "TCPUpdateTime" & vbCrLf
255	>	Case 5:
256	>	If response = "ERROR" Then GoTo configError
257	>	TCPUpdateTime = response
258	>	TCPSock.SendData "ENDCONFIG" & vbCrLf
259	>	Case 6:
260	>	If Not response = "OK" Then GoTo configError
261	>	TCPSock.SendData "FILTER" & vbCrLf
262	>	Case 7:
263	>	'we got a filter list here.
264	>	readTo = 0
265	>	' get hostname
266	>	readTo = InStr(1, response, ";", vbBinaryCompare)
267	>	filterHostname = Mid(response, 1, readTo - 1)
268	>	response = Mid(response, readTo + 1, Len(response))
269	>	' get UDP Port number
270	>	readTo = InStr(1, response, ";")
271	>	filterUDPPort = Mid(response, 1, readTo - 1)
272	>	response = Mid(response, readTo + 1, Len(response))
273	>	' get TCP Port number
274	>	filterTCPPort = response
275	>	TCPSock.SendData "END" & vbCrLf
276	>	Case 8:
277	>	If Not response = "OK" Then GoTo configError
278	>	connected = True
279	>	responseNumber = 0
280	>	TCPSock.Close
281	>	Text4.Text = Text4.Text & vbCrLf & "  <closed>"
282	>	Status.Caption = "Configuration successful"
283	>	Label3.Caption = UDPUpdateTime
284	>	Label4.Caption = TCPUpdateTime
285	>	Timer1.Interval = 1000
286	>	End Select
287	>	Else
288	>	' Perform a heartbeat (1.1)
289	>	On Error GoTo heartbeatError
290	>	Select Case responseNumber
291	>	Case 1:
292	>	If Not response = "OK" Then GoTo heartbeatError
293	>	TCPSock.SendData "CONFIG" & vbCrLf
294	>	Case 2:
295	>	If Not response = "OK" Then GoTo heartbeatError
296	>	TCPSock.SendData fileList & vbCrLf
297	>	Case 3:
298	>	If Not response = "OK" Then GoTo heartbeatError
299	>	TCPSock.SendData lastModified & vbCrLf
300	>	Case 4:
301	>	If Not response = "OK" Then GoTo heartbeatError
302	>	TCPSock.SendData "ENDHEARTBEAT" & vbCrLf
303	>	Case 5:
304	>	If Not response = "OK" Then GoTo heartbeatError
305	>	TCPSock.Close
306	>	Status.Caption = "Heartbeat sent successfully."
307	>	End Select
308
309	+	End If
310	+
311	+
312	+	Exit Sub
313	+
314	+	configError:
315	+	Status.Caption = "FAILED to get configuration"
316	+	Exit Sub
317	+	heartbeatError:
318	+	Status.Caption = "Heatbeat FAILED"
319	+	Exit Sub
320		End Sub
321	+
322	+	Private Sub Timer1_Timer()
323	+
324	+	Label3.Caption = Label3.Caption - 1
325	+	Label4.Caption = Label4.Caption - 1
326	+
327	+	Status.Caption = ""
328	+
329	+	If Label3.Caption < 1 Then
330	+	' build the contents of the XML packet.
331	+	localIP = TCPSock.localIP
332	+	machineName = TCPSock.LocalHostName
333	+	seqNo = seqNo + 1
334	+	packetDate = Date2Num()
335	+	xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & localIP & """>" & _
336	+	"" & _
337	+	"" & _
338	+	"" & _
339	+	"" & _
340	+	"" & _
341	+	"" & _
342	+	"" & _
343	+	"" & _
344	+	"" & _
345	+	"" & _
346	+	"" & _
347	+	"" & _
348	+	"" & _
349	+	"" & _
350	+	""
351	+	Text4.Text = Text4.Text + xml
352	+
353	+	' Use the first winsock control to send a UDP packet.
354	+	UDPSock.RemoteHost = filterHostname
355	+	UDPSock.RemotePort = filterUDPPort
356	+	UDPSock.SendData xml
357	+	Status.Caption = "UDP packet sent"
358	+	Label3.Caption = UDPUpdateTime
359	+	End If
360	+
361	+	If Label4.Caption < 1 Then
362	+	' establish a TCP connection to a filter
363	+	TCPSock.Close
364	+	TCPSock.Connect filterHostname, filterTCPPort
365	+	Label4.Caption = TCPUpdateTime
366	+	End If
367	+
368	+	End Sub
369	+
370	+	Function Date2Num() As Long
371	+	Dim x As Long
372	+	x = DateDiff("s", "1-1-1970", Now)
373	+	Date2Num = x
374	+	End Function

Diff Legend

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