ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/winhost/nettest.frm
(Generate patch)

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.18 by pjm2, Fri Feb 23 17:51:07 2001 UTC vs.
Revision 1.20 by pjm2, Mon Feb 26 09:12:51 2001 UTC

# Line 8 | Line 8 | Begin VB.Form Form1
8     ClientLeft      =   45
9     ClientTop       =   330
10     ClientWidth     =   4710
11 +   Icon            =   "nettest.frx":0000
12     LinkTopic       =   "Form1"
13     MaxButton       =   0   'False
14     MinButton       =   0   'False
# Line 41 | Line 42 | Begin VB.Form Form1
42        MultiLine       =   -1  'True
43        ScrollBars      =   2  'Vertical
44        TabIndex        =   1
45 <      Text            =   "nettest.frx":0000
45 >      Text            =   "nettest.frx":0742
46        Top             =   3000
47        Width           =   3975
48     End
# Line 182 | Line 183 | Private Sub Form_Load()
183      filterManagerHostname = Left$(buf, length)
184      length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
185      filterManagerTCPPort = length
186 +    On Error GoTo 0
187   skip:
188  
189      Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort
190      Reconfigure_Click
191      
192 <    Form1.Show
192 >    SystemTray.Icon = Val(Form1.Icon)
193      SystemTray.Action = 0
194      
195      
# Line 402 | Line 404 | Private Sub Timer1_Timer()
404          memory& = memsts.dwAvailVirtual
405          swapFree = memory& \ 1024
406          
407 +        uptime = GetTickCount \ 1000
408 +        
409          ' build the contents of the XML packet
410          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
411                "<os>" & _
# Line 411 | Line 415 | Private Sub Timer1_Timer()
415                  "<platform>" & osName & "</platform>" & _
416                  "<minor_version>" & osVersionMinor & "</minor_version>" & _
417                  "<processor>" & processorType & "</processor>" & _
418 +                "<uptime>" & uptime & "</uptime>" & _
419                "</os>" & _
420                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
421                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _

Diff Legend

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