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.21 by pjm2, Mon Feb 26 09:23:34 2001 UTC vs.
Revision 1.23 by pjm2, Mon Feb 26 09:54:25 2001 UTC

# Line 165 | Line 165 | 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"
# Line 415 | 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 426 | 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