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

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.11 by pjm2, Fri Feb 23 11:56:43 2001 UTC vs.
Revision 1.17 by pjm2, Fri Feb 23 17:37:04 2001 UTC

#	Line 2 \| Line 2 \| 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 = 4 'Fixed ToolWindow
5	>	BorderStyle = 3 'Fixed Dialog
6		Caption = "i-scream Winhost"
7		ClientHeight = 5655
8		ClientLeft = 45
9	<	ClientTop = 285
10	<	ClientWidth = 5670
9	>	ClientTop = 330
10	>	ClientWidth = 4710
11		LinkTopic = "Form1"
12		MaxButton = 0 'False
13	+	MinButton = 0 'False
14		ScaleHeight = 5655
15	<	ScaleWidth = 5670
15	>	ScaleWidth = 4710
16		ShowInTaskbar = 0 'False
17		StartUpPosition = 3 'Windows Default
18		Begin VB.CommandButton Hide
19	<	Caption = "Hide"
20	<	Height = 495
21	<	Left = 1800
19	>	Caption = "Hide Window"
20	>	Height = 375
21	>	Left = 3120
22		TabIndex = 7
23	<	Top = 2160
24	<	Width = 1215
23	>	Top = 840
24	>	Width = 1455
25		End
26		Begin SysTray.SystemTray SystemTray
27	<	Left = 3600
28	<	Top = 1200
27	>	Left = 2160
28	>	Top = 1800
29		_ExtentX = 847
30		_ExtentY = 847
31		SysTrayText = "i-scream Winhost"
32		IconFile = 0
33		End
34		Begin VB.Timer Timer1
35	<	Left = 4200
36	<	Top = 1200
35	>	Left = 2760
36	>	Top = 1800
37		End
38		Begin VB.TextBox Text4
39		Height = 1575
#	Line 42 \| Line 43 \| Begin VB.Form Form1
43		TabIndex = 1
44		Text = "nettest.frx":0000
45		Top = 3000
46	<	Width = 5055
46	>	Width = 3975
47		End
48		Begin VB.CommandButton Reconfigure
49		Caption = "Reconfigure with FilterManager"
50	<	Height = 495
50	>	Height = 375
51		Left = 120
52		TabIndex = 0
53	<	Top = 120
53	>	Top = 840
54		Width = 2895
55		End
56		Begin MSWinsockLib.Winsock TCPSock
57	<	Left = 5160
58	<	Top = 1200
57	>	Left = 3720
58	>	Top = 1800
59		_ExtentX = 741
60		_ExtentY = 741
61		_Version = 393216
62		End
63		Begin MSWinsockLib.Winsock UDPSock
64	<	Left = 4680
65	<	Top = 1200
64	>	Left = 3240
65	>	Top = 1800
66		_ExtentX = 741
67		_ExtentY = 741
68		_Version = 393216
69		Protocol = 1
70		End
71	+	Begin VB.Label Label5
72	+	Caption = "b e t a"
73	+	BeginProperty Font
74	+	Name = "MS Sans Serif"
75	+	Size = 24
76	+	Charset = 0
77	+	Weight = 700
78	+	Underline = 0 'False
79	+	Italic = 0 'False
80	+	Strikethrough = 0 'False
81	+	EndProperty
82	+	Height = 615
83	+	Left = 240
84	+	TabIndex = 8
85	+	Top = 120
86	+	Width = 1815
87	+	End
88		Begin VB.Label Label2
89		Alignment = 1 'Right Justify
90		Caption = "Next heartbeat:"
91		Height = 255
92	<	Left = 3360
92	>	Left = 2400
93		TabIndex = 6
94		Top = 480
95		Width = 1455
#	Line 80 \| Line 98 \| Begin VB.Form Form1
98		Alignment = 1 'Right Justify
99		Caption = "Next UDP packet:"
100		Height = 255
101	<	Left = 3360
101	>	Left = 2400
102		TabIndex = 5
103		Top = 120
104		Width = 1455
#	Line 89 \| Line 107 \| Begin VB.Form Form1
107		BorderStyle = 1 'Fixed Single
108		Caption = "0"
109		Height = 255
110	<	Left = 4920
110	>	Left = 3960
111		TabIndex = 4
112		Top = 480
113		Width = 615
#	Line 98 \| Line 116 \| Begin VB.Form Form1
116		BorderStyle = 1 'Fixed Single
117		Caption = "0"
118		Height = 255
119	<	Left = 4920
119	>	Left = 3960
120		TabIndex = 3
121		Top = 120
122		Width = 615
123		End
124		Begin VB.Label Status
125	+	Alignment = 2 'Center
126		Caption = "Status:"
127		Height = 255
128		Left = 120
129		TabIndex = 2
130	<	Top = 840
131	<	Width = 5415
130	>	Top = 1320
131	>	Width = 4455
132		End
133		End
134		Attribute VB_Name = "Form1"
#	Line 117 \| Line 136 \| Attribute VB_GlobalNameSpace = False
136		Attribute VB_Creatable = False
137		Attribute VB_PredeclaredId = True
138		Attribute VB_Exposed = False
139	+	' For the system tray bits
140		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
141		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
142
143		Dim filterManagerHostname As String
144		Dim filterManagerTCPPort As Integer
145
146	+	Dim seqNo As Long
147	+	Dim machineName As String
148	+
149		Dim filterHostname As String
150		Dim filterTCPPort As Integer
151		Dim filterUDPPort As Integer
#	Line 134 \| Line 157 \| Dim TCPUpdateTime As Integer
157
158		Dim protocolVersion As String
159		Dim connected As Boolean
137	–	Dim responseNumber As Integer
160
161	+	'Dim CUpTime As New CUpTime
162
163	<	Private Sub Command1_Click()
163	>	Dim responseNumber As Integer
164
142	–	' build the contents of the XML packet.
143	–	xml = "<packet></packet>"
144	–
145	–	' Use the first winsock control to send a UDP packet.
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	–
153	–
154	–	Private Sub Command3_Click()
155	–	' establish a TCP connection to a filter
156	–	TCPSock.Close
157	–	TCPSock.Connect filterHostname, filterTCPPort
158	–	End Sub
159	–
165		Private Sub Form_Load()
166	+
167		protocolVersion = "1.1"
168	<
168	>
169		Status.Caption = "Loading"
170	<	Form1.Caption = "i-scream Winhost " & protocolVersion
170	>	'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
171
172		''''TEMP
173		filterManagerHostname = "killigrew.ukc.ac.uk"
174		filterManagerTCPPort = 4567
175	<	Reconfigure_Click
170	<	Exit Sub
171	<	''' ENDTEMP
175	>	''''' END TEMP
176
177	+	GoTo skip
178		On Error GoTo iniError
179		Dim buf As String * 256
180		Dim length As Long
#	Line 177 \| Line 182 \| Private Sub Form_Load()
182		filterManagerHostname = Left$(buf, length)
183		length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
184		filterManagerTCPPort = Left$(buf, length)
185	<
185	>	skip:
186	>
187		Status.Caption = "Connecting to Filter Manager"
188	+	Reconfigure_Click
189
190	+	Form1.Show
191	+	SystemTray.Action = 0
192	+
193	+
194		Exit Sub
195
196		iniError:
#	Line 192 \| Line 203 \| Private Sub Form_QueryUnload(Cancel As Integer, Unload
203		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")
204		If x = 7 Then
205		Cancel = True
206	+	Else
207	+	SystemTray.Action = 2
208		End If
209
210		End Sub
#	Line 199 \| Line 212 \| End Sub
212		Private Sub Hide_Click()
213		Form1.Visible = False
214		SystemTray.Icon = Val(Form1.Icon)
202	–	SystemTray.Action = 0
215		End Sub
216
217		Private Sub Reconfigure_Click()
#	Line 215 \| Line 227 \| Private Sub SystemTray_MouseDblClk(ByVal Button As Int
227
228		Form1.Visible = True
229		Form1.SetFocus
230	+
231
232		End Sub
233
#	Line 339 \| Line 352 \| Private Sub Timer1_Timer()
352		Status.Caption = ""
353
354		If Label3.Caption < 1 Then
355	<	' build the contents of the XML packet.
356	<	xml = "<packet></packet>"
355	>
356	>	' prepare the contents of the XML packet.
357	>	seqNo = seqNo + 1
358	>	machineName = TCPSock.LocalHostName
359	>	LocalIP = TCPSock.LocalIP
360	>	packetDate = Date2Num()
361	>
362	>
363	>	Dim verinfo As OSVERSIONINFO
364	>	verinfo.dwOSVersionInfoSize = Len(verinfo)
365	>	ret% = GetVersionEx(verinfo)
366	>	If ret% = 0 Then
367	>	MsgBox "Error getting Windows version Information"
368	>	End
369	>	End If
370	>
371	>	osName = getVersion()
372	>	osVersionMajor = verinfo.dwMajorVersion
373	>	osVersionMinor = verinfo.dwMinorVersion
374	>	osBuild = verinfo.dwBuildNumber
375	>
376	>	Dim sysinfo As SYSTEM_INFO
377	>	GetSystemInfo sysinfo
378	>	Select Case sysinfo.dwProcessorType
379	>	Case PROCESSOR_INTEL_386
380	>	processorType = "Intel 386"
381	>	Case PROCESSOR_INTEL_486
382	>	processorType = "Intel 486"
383	>	Case PROCESSOR_INTEL_PENTIUM
384	>	processorType = "Intel Pentium variant"
385	>	Case PROCESSOR_MIPS_R4000
386	>	processorType = "MIPS R4000"
387	>	Case PROCESSOR_ALPHA_21064
388	>	processorType = "DEC Alpha 21064"
389	>	Case Else
390	>	processorType = "(unknown)"
391	>	End Select
392	>
393	>	Dim memsts As MEMORYSTATUS
394	>	Dim memory&
395	>	GlobalMemoryStatus memsts
396	>	memory& = memsts.dwTotalPhys
397	>	memTotal = memory& \ 1024
398	>	memory& = memsts.dwAvailPhys
399	>	memFree = memory& \ 1024
400	>	memory& = memsts.dwTotalVirtual
401	>	swapTotal = memory& \ 1024
402	>	memory& = memsts.dwAvailVirtual
403	>	swapFree = memory& \ 1024
404	>
405	>	' build the contents of the XML packet
406	>	xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
407	>	"<os>" & _
408	>	"<name>" & osName & "</name>" & _
409	>	"<version>" & osVersionMajor & "</version>" & _
410	>	"<release>" & osBuild & "</release>" & _
411	>	"<platform>" & osName & "</platform>" & _
412	>	"<minor_version>" & osVersionMinor & "</minor_version>" & _
413	>	"<processor>" & processorType & "</processor>" & _
414	>	"</os>" & _
415	>	"<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
416	>	"<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
417	>	"</packet>"
418	>	Text4.Text = Text4.Text + xml
419
420		' Use the first winsock control to send a UDP packet.
421		UDPSock.RemoteHost = filterHostname
#	Line 358 \| Line 433 \| Private Sub Timer1_Timer()
433		End If
434
435		End Sub
436	+
437	+	Function Date2Num() As Long
438	+	Dim x As Long
439	+	x = DateDiff("s", "1-1-1970", Now)
440	+	Date2Num = x
441	+	End Function

Diff Legend

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

Comparing projects/cms/source/host/winhost/nettest.frm (file contents): Revision 1.11 by pjm2, Fri Feb 23 11:56:43 2001 UTC vs. Revision 1.17 by pjm2, Fri Feb 23 17:37:04 2001 UTC

Diff Legend

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.11 by pjm2, Fri Feb 23 11:56:43 2001 UTC vs.
Revision 1.17 by pjm2, Fri Feb 23 17:37:04 2001 UTC