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.24 by pjm2, Mon Feb 26 10:13:10 2001 UTC vs.
Revision 1.25 by pjm2, Wed Feb 28 08:19:00 2001 UTC

#	Line 134 | Line 134 | Dim protocolVersion As String
134		Dim connected As Boolean
135
136		Dim CUpTime As New CUpTime
137	+	Dim wksta As New CNetWksta
138
139		Dim responseNumber As Integer
140
#	Line 141 | Line 142 | Private Sub Form_Load()
142
143		If App.PrevInstance Then
144		x = MsgBox("There is already an i-scream Winhost running on this machine.", 48, "i-scream host already running")
145	+	End
146		End If
147
148		protocolVersion = "1.1"
#	Line 151 | Line 153 | Private Sub Form_Load()
153		CUpTime.Init
154
155		If CUpTime.isWin9x Then
156	<	x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.")
156	>	x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server")
157		End
158		End If
159
#	Line 168 | Line 170 | Private Sub Form_Load()
170		filterManagerHostname = Left$(buf, length)
171		length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
172		filterManagerTCPPort = length
173	+	If filterManagerHostname = "" Then
174	+	GoTo iniError
175	+	End If
176		On Error GoTo 0
177		skip:
178
#	Line 388 | Line 393 | Private Sub Timer1_Timer()
393		memory& = memsts.dwAvailVirtual
394		swapFree = memory& \ 1024
395
396	<	uptime = GetTickCount \ 1000
396	>	uptime = CUpTime.MilliSecs \ 1000
397
398		CUpTime.Capture
399		cpu_time = CUpTime.CPUTime

Diff Legend

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