--- experimental/host/vb_net_test/nettest.frm	2001/02/23 10:34:47	1.5
+++ experimental/host/vb_net_test/nettest.frm	2001/02/23 10:53:30	1.6
@@ -18,16 +18,16 @@ Begin VB.Form Form1 
       Caption         =   "TCP to Filter"
       Height          =   375
       Left            =   3720
-      TabIndex        =   5
+      TabIndex        =   3
       Top             =   2520
       Width           =   1575
    End
    Begin VB.TextBox Text4 
-      Height          =   2535
+      Height          =   1575
       Left            =   240
       MultiLine       =   -1  'True
       ScrollBars      =   2  'Vertical
-      TabIndex        =   4
+      TabIndex        =   2
       Text            =   "nettest.frx":0000
       Top             =   3000
       Width           =   5055
@@ -36,7 +36,7 @@ Begin VB.Form Form1 
       Caption         =   "TCP to FilterManager"
       Height          =   375
       Left            =   3360
-      TabIndex        =   3
+      TabIndex        =   1
       Top             =   2040
       Width           =   1935
    End
@@ -51,18 +51,10 @@ Begin VB.Form Form1 
       Caption         =   "Send UDP"
       Height          =   375
       Left            =   4320
-      TabIndex        =   2
+      TabIndex        =   0
       Top             =   1560
       Width           =   975
    End
-   Begin VB.TextBox Text1 
-      Height          =   855
-      Left            =   360
-      TabIndex        =   0
-      Text            =   "<packet></packet>"
-      Top             =   600
-      Width           =   4935
-   End
    Begin MSWinsockLib.Winsock UDPSock 
       Left            =   4320
       Top             =   120
@@ -71,13 +63,13 @@ Begin VB.Form Form1 
       _Version        =   393216
       Protocol        =   1
    End
-   Begin VB.Label Label1 
-      Caption         =   "Packet contents"
+   Begin VB.Label Status 
+      Caption         =   "Status:"
       Height          =   255
-      Left            =   360
-      TabIndex        =   1
-      Top             =   360
-      Width           =   2895
+      Left            =   120
+      TabIndex        =   4
+      Top             =   5280
+      Width           =   5415
    End
 End
 Attribute VB_Name = "Form1"
@@ -111,6 +103,7 @@ Private Sub Command1_Click()
     UDPSock.RemoteHost = filterHostname
     UDPSock.RemotePort = filterUDPPort
     UDPSock.SendData xml
+    Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
 
 End Sub
 
@@ -131,6 +124,8 @@ End Sub
 Private Sub Form_Load()
     protocolVersion = "1.1"
     
+    Status.Caption = "i-scream Winhost " & protocolVersion
+    
     ''''TEMP
     filterManagerHostname = "killigrew.ukc.ac.uk"
     filterManagerTCPPort = 4567
@@ -145,6 +140,8 @@ Private Sub Form_Load()
     length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
     filterManagerTCPPort = Left$(buf, length)
     
+    Status.Caption = "i-scream Winhost " & protocolVersion & " connecting to Filter Manager"
+    
     Exit Sub
     
 iniError:
@@ -153,9 +150,13 @@ iniError:
     
 End Sub
 
+Private Sub Label1_Click()
+
+End Sub
+
 Private Sub TCPSock_Connect()
-      
-   responseNumber = 0
+    
+    responseNumber = 0
    
     ' Send something as soon as we connect to the server.
     If connected = False Then
@@ -224,7 +225,7 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
                 responseNumber = 0
                 TCPSock.Close
                 Text4.Text = Text4.Text & vbCrLf & "  <closed>"
-                x = MsgBox("got config okay")
+                Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay"
         End Select
     Else
         ' Perform a heartbeat (1.1)
@@ -245,7 +246,7 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
             Case 5:
                 If Not response = "OK" Then GoTo heartbeatError
                 TCPSock.Close
-                x = MsgBox("heartbeat sent okay.")
+                Status.Caption = "i-scream Winhost " & protocolVersion & " - heartbeat sent okay."
         End Select
     
     End If
@@ -254,8 +255,8 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
     Exit Sub
     
 configError:
-    x = MsgBox("error doing configuration")
+    Status.Caption = "i-scream Winhost " & protocolVersion & " - FAILED to get configuration"
 heartbeatError:
-    x = MsgBox("error doing configuration")
+    Status.Caption = "i-scream Winhost " & protocolVersion & " - Heatbeat FAILED"
 End Sub