ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/projects/cms/source/host/winhost/nettest.frm

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.31 by pjm2, Wed Feb 28 12:04:17 2001 UTC vs.
Revision 1.33 by pjm2, Wed Mar 14 10:47:26 2001 UTC

#	Line 139 | Line 139 | Dim filterManagerTCPPort As Long
139		Dim seqNo As Long
140		Dim machineName As String
141
142	+	Dim secondsRunning As Long
143	+
144		Dim filterHostname As String
145		Dim filterTCPPort As Integer
146		Dim filterUDPPort As Integer
147		Dim fileList As String
148		Dim lastModified As String
149
150	+	Dim fourtySevenDays As Integer
151	+
152		Dim UDPUpdateTime As Integer
153		Dim TCPUpdateTime As Integer
154
#	Line 179 | Line 183 | Private Sub Form_Load()
183		End
184		End If
185
186	+	' Assume the host is run within the first 47 days of the machine starting.
187	+	fourtySevenDays = 0
188	+
189		protocolVersion = "1.1"
190
191		Status.Caption = "Loading"
#	Line 388 | Line 395 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
395		Exit Sub
396
397		configError:
398	<	Status.Caption = "FAILED to get configuration"
398	>	Status.Caption = "FAILED to get configuration from the server"
399		Exit Sub
400		heartbeatError:
401		Status.Caption = "Heatbeat FAILED"
#	Line 455 | Line 462 | Private Sub Timer1_Timer()
462		memory& = memsts.dwAvailVirtual
463		swapFree = memory& \ 1048576
464
458	–	uptime = CUpTime.MilliSecs \ 1000
459	–
465		CUpTime.Capture
466		cpu_time = CUpTime.CPUTime
467		percent_idle = CUpTime.PercentIdle
468	+
469	+	'' Doesn't work after 47 days :-/
470	+	'uptime = GetTickCount \ 1000
471	+
472	+	'secondsRunning = secondsRunning + UDPUpdateTime
473	+	'uptime = secondsRunning
474	+
475	+	uptime = CUpTime.MilliSecs / 1000#
476
477		userCount = wksta.LoggedOnUsers
478

Diff Legend

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