--- experimental/host/vb_net_test/nettest.frm	2001/02/28 09:24:53	1.28
+++ experimental/host/vb_net_test/nettest.frm	2001/02/28 10:45:37	1.29
@@ -283,7 +283,6 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
     ' Remove linefeeds and returns from the line.
     response = Replace(response, Chr(13), "")
     response = Replace(response, Chr(10), "")
-    'Text4.Text = Text4.Text & vbCrLf & response
     
     If connected = False Then
         ' Perform TCP configuration (1.1)
@@ -299,34 +298,32 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
                 lastModified = response
                 Text1.Text = Text1.Text & response & vbCrLf
                 TCPSock.SendData "FILELIST" & vbCrLf
-            ''' Uncomment this for new protocol release.
-            'Case 2a:
-                'If response = "ERROR" Then GoTo configError
-                'fileList = response
-                'Text1.Text = Text1.Text & response & vbCrLf
-                'TCPSock.SendData "FQDN" & vbCrLf
+            ' New addition to the protocol.
             Case 3:
                 If response = "ERROR" Then GoTo configError
                 fileList = response
                 Text1.Text = Text1.Text & response & vbCrLf
-                ' REMOVE above line, uncomment next
-                'machineName = response
-                TCPSock.SendData "UDPUpdateTime" & vbCrLf
+                TCPSock.SendData "FQDN" & vbCrLf
             Case 4:
                 If response = "ERROR" Then GoTo configError
+                Text1.Text = Text1.Text & response & vbCrLf
+                machineName = response
+                TCPSock.SendData "UDPUpdateTime" & vbCrLf
+            Case 5:
+                If response = "ERROR" Then GoTo configError
                 UDPUpdateTime = response
                 Text1.Text = Text1.Text & response & vbCrLf
                 TCPSock.SendData "TCPUpdateTime" & vbCrLf
-            Case 5:
+            Case 6:
                 If response = "ERROR" Then GoTo configError
                 TCPUpdateTime = response
                 Text1.Text = Text1.Text & response & vbCrLf
                 TCPSock.SendData "ENDCONFIG" & vbCrLf
-            Case 6:
+            Case 7:
                 If Not response = "OK" Then GoTo configError
                 Text1.Text = Text1.Text & response & vbCrLf
                 TCPSock.SendData "FILTER" & vbCrLf
-            Case 7:
+            Case 8:
                 Text1.Text = Text1.Text & response & vbCrLf
                 'we got a filter list here.
                 readTo = 0
@@ -341,7 +338,7 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
                 ' get TCP Port number
                 filterTCPPort = response
                 TCPSock.SendData "END" & vbCrLf
-            Case 8:
+            Case 9:
                 If Not response = "OK" Then GoTo configError
                 connected = True
                 responseNumber = 0
@@ -407,7 +404,7 @@ Private Sub Timer1_Timer()
         seqNo = seqNo + 1
         
         ' Comment this line in the next protocol
-        machineName = TCPSock.LocalHostName
+        'machineName = TCPSock.LocalHostName
         
         LocalIP = TCPSock.LocalIP
         packetDate = Date2Num()
@@ -447,13 +444,13 @@ Private Sub Timer1_Timer()
         Dim memory&
         GlobalMemoryStatus memsts
         memory& = memsts.dwTotalPhys
-        memTotal = memory& \ 1024
+        memTotal = memory& \ 1048576
         memory& = memsts.dwAvailPhys
-        memFree = memory& \ 1024
+        memFree = memory& \ 1048576
         memory& = memsts.dwTotalVirtual
-        swapTotal = memory& \ 1024
+        swapTotal = memory& \ 1048576
         memory& = memsts.dwAvailVirtual
-        swapFree = memory& \ 1024
+        swapFree = memory& \ 1048576
         
         uptime = CUpTime.MilliSecs \ 1000