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.27 by pjm2, Wed Feb 28 09:18:26 2001 UTC vs.
Revision 1.33 by pjm2, Wed Mar 14 10:47:26 2001 UTC

# Line 139 | Line 139 | Dim filterManagerTCPPort As Long
139   Dim seqNo As Long
140   Dim machineName As String
141  
142 + Dim secondsRunning As Long
143 +
144   Dim filterHostname As String
145   Dim filterTCPPort As Integer
146   Dim filterUDPPort As Integer
147   Dim fileList As String
148   Dim lastModified As String
149  
150 + Dim fourtySevenDays As Integer
151 +
152   Dim UDPUpdateTime As Integer
153   Dim TCPUpdateTime As Integer
154  
# Line 179 | Line 183 | Private Sub Form_Load()
183          End
184      End If
185      
186 +    ' Assume the host is run within the first 47 days of the machine starting.
187 +    fourtySevenDays = 0
188 +    
189      protocolVersion = "1.1"
190      
191      Status.Caption = "Loading"
# Line 242 | Line 249 | Private Sub Hide_Click()
249      SystemTray.Icon = Val(Form1.Icon)
250   End Sub
251  
252 + Private Sub Image1_Click()
253 +
254 + End Sub
255 +
256   Private Sub Reconfigure_Click()
257      ' establish a TCP connection to a filtermanager
258      connected = False
# Line 283 | Line 294 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
294      ' Remove linefeeds and returns from the line.
295      response = Replace(response, Chr(13), "")
296      response = Replace(response, Chr(10), "")
286 –    'Text4.Text = Text4.Text & vbCrLf & response
297      
298      If connected = False Then
299          ' Perform TCP configuration (1.1)
# Line 299 | Line 309 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
309                  lastModified = response
310                  Text1.Text = Text1.Text & response & vbCrLf
311                  TCPSock.SendData "FILELIST" & vbCrLf
312 <            ''' Uncomment this for new protocol release.
303 <            'Case 2a:
304 <                'If response = "ERROR" Then GoTo configError
305 <                'fileList = response
306 <                'Text1.Text = Text1.Text & response & vbCrLf
307 <                'TCPSock.SendData "FQDN" & vbCrLf
312 >            ' New addition to the protocol.
313              Case 3:
314                  If response = "ERROR" Then GoTo configError
315                  fileList = response
316                  Text1.Text = Text1.Text & response & vbCrLf
317 <                ' REMOVE above line, uncomment next
313 <                'machineName = response
314 <                TCPSock.SendData "UDPUpdateTime" & vbCrLf
317 >                TCPSock.SendData "FQDN" & vbCrLf
318              Case 4:
319                  If response = "ERROR" Then GoTo configError
320 +                Text1.Text = Text1.Text & response & vbCrLf
321 +                machineName = response
322 +                TCPSock.SendData "UDPUpdateTime" & vbCrLf
323 +            Case 5:
324 +                If response = "ERROR" Then GoTo configError
325                  UDPUpdateTime = response
326                  Text1.Text = Text1.Text & response & vbCrLf
327                  TCPSock.SendData "TCPUpdateTime" & vbCrLf
328 <            Case 5:
328 >            Case 6:
329                  If response = "ERROR" Then GoTo configError
330                  TCPUpdateTime = response
331                  Text1.Text = Text1.Text & response & vbCrLf
332                  TCPSock.SendData "ENDCONFIG" & vbCrLf
333 <            Case 6:
333 >            Case 7:
334                  If Not response = "OK" Then GoTo configError
335                  Text1.Text = Text1.Text & response & vbCrLf
336                  TCPSock.SendData "FILTER" & vbCrLf
337 <            Case 7:
337 >            Case 8:
338                  Text1.Text = Text1.Text & response & vbCrLf
339                  'we got a filter list here.
340                  readTo = 0
# Line 341 | Line 349 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
349                  ' get TCP Port number
350                  filterTCPPort = response
351                  TCPSock.SendData "END" & vbCrLf
352 <            Case 8:
352 >            Case 9:
353                  If Not response = "OK" Then GoTo configError
354                  connected = True
355                  responseNumber = 0
# Line 387 | Line 395 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
395      Exit Sub
396      
397   configError:
398 <    Status.Caption = "FAILED to get configuration"
398 >    Status.Caption = "FAILED to get configuration from the server"
399      Exit Sub
400   heartbeatError:
401      Status.Caption = "Heatbeat FAILED"
# Line 406 | Line 414 | Private Sub Timer1_Timer()
414          ' prepare the contents of the XML packet.
415          seqNo = seqNo + 1
416          
417 <        ' Comment this line in the next protocol
410 <        machineName = TCPSock.LocalHostName
417 >        netbiosName = TCPSock.LocalHostName
418          
419          LocalIP = TCPSock.LocalIP
420          packetDate = Date2Num()
# Line 447 | Line 454 | Private Sub Timer1_Timer()
454          Dim memory&
455          GlobalMemoryStatus memsts
456          memory& = memsts.dwTotalPhys
457 <        memTotal = memory& \ 1024
457 >        memTotal = memory& \ 1048576
458          memory& = memsts.dwAvailPhys
459 <        memFree = memory& \ 1024
459 >        memFree = memory& \ 1048576
460          memory& = memsts.dwTotalVirtual
461 <        swapTotal = memory& \ 1024
461 >        swapTotal = memory& \ 1048576
462          memory& = memsts.dwAvailVirtual
463 <        swapFree = memory& \ 1024
463 >        swapFree = memory& \ 1048576
464          
458 –        uptime = CUpTime.MilliSecs \ 1000
459 –        
465          CUpTime.Capture
466          cpu_time = CUpTime.CPUTime
467          percent_idle = CUpTime.PercentIdle
468          
469 +        '' Doesn't work after 47 days :-/
470 +        'uptime = GetTickCount \ 1000
471 +        
472 +        'secondsRunning = secondsRunning + UDPUpdateTime
473 +        'uptime = secondsRunning
474 +        
475 +        uptime = CUpTime.MilliSecs / 1000#
476 +        
477 +        userCount = wksta.LoggedOnUsers
478 +        
479          ' build the contents of the XML packet
480          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
481                "<os>" & _
482 +                "<netbios_name>" & netbiosName & "</netbios_name>" & _
483                  "<name>" & osName & "</name>" & _
484                  "<version>" & osVersionMajor & "</version>" & _
485                  "<release>" & osBuild & "</release>" & _
# Line 472 | Line 488 | Private Sub Timer1_Timer()
488                  "<processor>" & processorType & "</processor>" & _
489                  "<uptime>" & uptime & "</uptime>" & _
490                "</os>" & _
491 +              "<users><count>" & userCount & "</count></users>" & _
492                "<cpu><idle>" & percent_idle & "</idle><user>" & cpu_time & "</user></cpu>" & _
493                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
494                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _

Diff Legend

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