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.28 by pjm2, Wed Feb 28 09:24:53 2001 UTC vs.
Revision 1.31 by pjm2, Wed Feb 28 12:04:17 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 406 | Line 407 | Private Sub Timer1_Timer()
407          ' prepare the contents of the XML packet.
408          seqNo = seqNo + 1
409          
410 <        ' Comment this line in the next protocol
410 <        machineName = TCPSock.LocalHostName
410 >        netbiosName = TCPSock.LocalHostName
411          
412          LocalIP = TCPSock.LocalIP
413          packetDate = Date2Num()
# Line 447 | Line 447 | Private Sub Timer1_Timer()
447          Dim memory&
448          GlobalMemoryStatus memsts
449          memory& = memsts.dwTotalPhys
450 <        memTotal = memory& \ 1024
450 >        memTotal = memory& \ 1048576
451          memory& = memsts.dwAvailPhys
452 <        memFree = memory& \ 1024
452 >        memFree = memory& \ 1048576
453          memory& = memsts.dwTotalVirtual
454 <        swapTotal = memory& \ 1024
454 >        swapTotal = memory& \ 1048576
455          memory& = memsts.dwAvailVirtual
456 <        swapFree = memory& \ 1024
456 >        swapFree = memory& \ 1048576
457          
458          uptime = CUpTime.MilliSecs \ 1000
459          
# Line 466 | Line 466 | Private Sub Timer1_Timer()
466          ' build the contents of the XML packet
467          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
468                "<os>" & _
469 +                "<netbios_name>" & netbiosName & "</netbios_name>" & _
470                  "<name>" & osName & "</name>" & _
471                  "<version>" & osVersionMajor & "</version>" & _
472                  "<release>" & osBuild & "</release>" & _

Diff Legend

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