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.21 by pjm2, Mon Feb 26 09:23:34 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 158 | Line 159 | Dim TCPUpdateTime As Integer
159   Dim protocolVersion As String
160   Dim connected As Boolean
161  
162 < 'Dim CUpTime As New CUpTime
162 > Dim CUpTime As New CUpTime
163  
164   Dim responseNumber As Integer
165  
# Line 167 | Line 168 | Private Sub Form_Load()
168      protocolVersion = "1.1"
169      
170      Status.Caption = "Loading"
171 <    'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
171 >    Form1.Caption = "i-scream Winhost " & protocolVersion
172      
173 +    Form1.Show
174 +    
175 +    CUpTime.Init
176 +    
177 +    If CUpTime.isWin9x Then
178 +        x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.")
179 +        End
180 +    End If
181 +    
182      ''''TEMP
183      'filterManagerHostname = "killigrew.ukc.ac.uk"
184      'filterManagerTCPPort = 4567
# Line 182 | Line 192 | Private Sub Form_Load()
192      filterManagerHostname = Left$(buf, length)
193      length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
194      filterManagerTCPPort = length
195 +    On Error GoTo 0
196   skip:
197  
198      Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort
199      Reconfigure_Click
200      
201 <    Form1.Show
201 >    SystemTray.Icon = Val(Form1.Icon)
202      SystemTray.Action = 0
203      
204      
# Line 368 | Line 379 | Private Sub Timer1_Timer()
379              End
380          End If
381            
382 <        osName = getVersion()
382 >        osName = GetVersion()
383          osVersionMajor = verinfo.dwMajorVersion
384          osVersionMinor = verinfo.dwMinorVersion
385          osBuild = verinfo.dwBuildNumber
# Line 402 | Line 413 | Private Sub Timer1_Timer()
413          memory& = memsts.dwAvailVirtual
414          swapFree = memory& \ 1024
415          
416 +        uptime = GetTickCount \ 1000
417 +        
418          ' build the contents of the XML packet
419          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
420                "<os>" & _
# Line 411 | Line 424 | Private Sub Timer1_Timer()
424                  "<platform>" & osName & "</platform>" & _
425                  "<minor_version>" & osVersionMinor & "</minor_version>" & _
426                  "<processor>" & processorType & "</processor>" & _
427 +                "<uptime>" & uptime & "</uptime>" & _
428                "</os>" & _
429                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
430                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _

Diff Legend

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