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.27 by pjm2, Wed Feb 28 09:18:26 2001 UTC vs.
Revision 1.30 by pjm2, Wed Feb 28 11:59:54 2001 UTC

# Line 242 | Line 242 | Private Sub Hide_Click()
242      SystemTray.Icon = Val(Form1.Icon)
243   End Sub
244  
245 + Private Sub Image1_Click()
246 +
247 + End Sub
248 +
249   Private Sub Reconfigure_Click()
250      ' establish a TCP connection to a filtermanager
251      connected = False
# Line 283 | Line 287 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
287      ' Remove linefeeds and returns from the line.
288      response = Replace(response, Chr(13), "")
289      response = Replace(response, Chr(10), "")
286    'Text4.Text = Text4.Text & vbCrLf & response
290      
291      If connected = False Then
292          ' Perform TCP configuration (1.1)
# Line 299 | Line 302 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
302                  lastModified = response
303                  Text1.Text = Text1.Text & response & vbCrLf
304                  TCPSock.SendData "FILELIST" & vbCrLf
305 <            ''' 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
305 >            ' New addition to the protocol.
306              Case 3:
307                  If response = "ERROR" Then GoTo configError
308                  fileList = response
309                  Text1.Text = Text1.Text & response & vbCrLf
310 <                ' REMOVE above line, uncomment next
313 <                'machineName = response
314 <                TCPSock.SendData "UDPUpdateTime" & vbCrLf
310 >                TCPSock.SendData "FQDN" & vbCrLf
311              Case 4:
312                  If response = "ERROR" Then GoTo configError
313 +                Text1.Text = Text1.Text & response & vbCrLf
314 +                machineName = response
315 +                TCPSock.SendData "UDPUpdateTime" & vbCrLf
316 +            Case 5:
317 +                If response = "ERROR" Then GoTo configError
318                  UDPUpdateTime = response
319                  Text1.Text = Text1.Text & response & vbCrLf
320                  TCPSock.SendData "TCPUpdateTime" & vbCrLf
321 <            Case 5:
321 >            Case 6:
322                  If response = "ERROR" Then GoTo configError
323                  TCPUpdateTime = response
324                  Text1.Text = Text1.Text & response & vbCrLf
325                  TCPSock.SendData "ENDCONFIG" & vbCrLf
326 <            Case 6:
326 >            Case 7:
327                  If Not response = "OK" Then GoTo configError
328                  Text1.Text = Text1.Text & response & vbCrLf
329                  TCPSock.SendData "FILTER" & vbCrLf
330 <            Case 7:
330 >            Case 8:
331                  Text1.Text = Text1.Text & response & vbCrLf
332                  'we got a filter list here.
333                  readTo = 0
# Line 341 | Line 342 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
342                  ' get TCP Port number
343                  filterTCPPort = response
344                  TCPSock.SendData "END" & vbCrLf
345 <            Case 8:
345 >            Case 9:
346                  If Not response = "OK" Then GoTo configError
347                  connected = True
348                  responseNumber = 0
# Line 407 | Line 408 | Private Sub Timer1_Timer()
408          seqNo = seqNo + 1
409          
410          ' Comment this line in the next protocol
411 <        machineName = TCPSock.LocalHostName
411 >        'machineName = TCPSock.LocalHostName
412          
413          LocalIP = TCPSock.LocalIP
414          packetDate = Date2Num()
# Line 447 | Line 448 | Private Sub Timer1_Timer()
448          Dim memory&
449          GlobalMemoryStatus memsts
450          memory& = memsts.dwTotalPhys
451 <        memTotal = memory& \ 1024
451 >        memTotal = memory& \ 1048576
452          memory& = memsts.dwAvailPhys
453 <        memFree = memory& \ 1024
453 >        memFree = memory& \ 1048576
454          memory& = memsts.dwTotalVirtual
455 <        swapTotal = memory& \ 1024
455 >        swapTotal = memory& \ 1048576
456          memory& = memsts.dwAvailVirtual
457 <        swapFree = memory& \ 1024
457 >        swapFree = memory& \ 1048576
458          
459          uptime = CUpTime.MilliSecs \ 1000
460          
# Line 461 | Line 462 | Private Sub Timer1_Timer()
462          cpu_time = CUpTime.CPUTime
463          percent_idle = CUpTime.PercentIdle
464          
465 +        userCount = wksta.LoggedOnUsers
466 +        
467          ' build the contents of the XML packet
468          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
469                "<os>" & _
# Line 472 | Line 475 | Private Sub Timer1_Timer()
475                  "<processor>" & processorType & "</processor>" & _
476                  "<uptime>" & uptime & "</uptime>" & _
477                "</os>" & _
478 +              "<users><count>" & userCount & "</count></users>" & _
479                "<cpu><idle>" & percent_idle & "</idle><user>" & cpu_time & "</user></cpu>" & _
480                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
481                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines