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

Comparing experimental/host/vb_net_test/nettest.frm (file contents):
Revision 1.20 by pjm2, Mon Feb 26 09:12:51 2001 UTC vs.
Revision 1.23 by pjm2, Mon Feb 26 09:54:25 2001 UTC

# Line 159 | 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  
166   Private Sub Form_Load()
167      
168 +    If App.PrevInstance Then
169 +        x = MsgBox("There is already an i-scream Winhost running on this machine.", 48, "i-scream host already running")
170 +    End If
171 +    
172      protocolVersion = "1.1"
173      
174      Status.Caption = "Loading"
175 <    'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
175 >    Form1.Caption = "i-scream Winhost " & protocolVersion
176      
177 +    Form1.Show
178 +    
179 +    CUpTime.Init
180 +    
181 +    If CUpTime.isWin9x Then
182 +        x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.")
183 +        End
184 +    End If
185 +    
186      ''''TEMP
187      'filterManagerHostname = "killigrew.ukc.ac.uk"
188      'filterManagerTCPPort = 4567
# Line 370 | Line 383 | Private Sub Timer1_Timer()
383              End
384          End If
385            
386 <        osName = getVersion()
386 >        osName = GetVersion()
387          osVersionMajor = verinfo.dwMajorVersion
388          osVersionMinor = verinfo.dwMinorVersion
389          osBuild = verinfo.dwBuildNumber
# Line 406 | Line 419 | Private Sub Timer1_Timer()
419          
420          uptime = GetTickCount \ 1000
421          
422 +        CUpTime.Capture
423 +        cpu_time = CUpTime.CPUTime
424 +        percent_idle = CUpTime.PercentIdle
425 +        
426          ' build the contents of the XML packet
427          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
428                "<os>" & _
# Line 417 | Line 434 | Private Sub Timer1_Timer()
434                  "<processor>" & processorType & "</processor>" & _
435                  "<uptime>" & uptime & "</uptime>" & _
436                "</os>" & _
437 +              "<cpu><idle>" & percent_idle & "</idle><user>" & cpu_time & "</user></cpu>" & _
438                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
439                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
440                "</packet>"

Diff Legend

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