--- experimental/host/vb_net_test/nettest.frm	2001/02/23 10:58:00	1.7
+++ experimental/host/vb_net_test/nettest.frm	2001/02/23 11:30:25	1.9
@@ -14,11 +14,7 @@ Begin VB.Form Form1 
    ScaleWidth      =   5670
    ShowInTaskbar   =   0   'False
    StartUpPosition =   3  'Windows Default
-   Begin VB.Timer TCPTimer 
-      Left            =   3360
-      Top             =   120
-   End
-   Begin VB.Timer UDPTimer 
+   Begin VB.Timer Timer1 
       Left            =   3840
       Top             =   120
    End
@@ -72,20 +68,38 @@ Begin VB.Form Form1 
       Protocol        =   1
    End
    Begin VB.Label Label2 
-      Caption         =   "Label2"
+      Alignment       =   1  'Right Justify
+      Caption         =   "Next heartbeat:"
       Height          =   255
       Left            =   120
-      TabIndex        =   6
-      Top             =   600
-      Width           =   3375
+      TabIndex        =   8
+      Top             =   480
+      Width           =   1455
    End
    Begin VB.Label Label1 
-      Caption         =   "Label1"
+      Alignment       =   1  'Right Justify
+      Caption         =   "Next UDP packet:"
       Height          =   255
       Left            =   120
+      TabIndex        =   7
+      Top             =   120
+      Width           =   1455
+   End
+   Begin VB.Label Label4 
+      Caption         =   "0"
+      Height          =   255
+      Left            =   1680
+      TabIndex        =   6
+      Top             =   480
+      Width           =   615
+   End
+   Begin VB.Label Label3 
+      Caption         =   "0"
+      Height          =   255
+      Left            =   1680
       TabIndex        =   5
-      Top             =   240
-      Width           =   3375
+      Top             =   120
+      Width           =   615
    End
    Begin VB.Label Status 
       Caption         =   "Status:"
@@ -250,9 +264,10 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
                 responseNumber = 0
                 TCPSock.Close
                 Text4.Text = Text4.Text & vbCrLf & "  <closed>"
-                Label1.Caption = "TCP hearbeat interval: " & UDPUpdateTime
-                Label2.Caption = "UDP packet interval: " & TCPUpdateTime
                 Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay"
+                Label3.Caption = UDPUpdateTime
+                Label4.Caption = TCPUpdateTime
+                Timer1.Interval = 1000
         End Select
     Else
         ' Perform a heartbeat (1.1)
@@ -282,8 +297,58 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
     Exit Sub
     
 configError:
-    Status.Caption = "i-scream Winhost " & protocolVersion & " - FAILED to get configuration"
+    Status.Caption = "i-scream Winhost " & protocolVersion & " - FAILED to get configuration " & Err.Description
+    Exit Sub
 heartbeatError:
-    Status.Caption = "i-scream Winhost " & protocolVersion & " - Heatbeat FAILED"
+    Status.Caption = "i-scream Winhost " & protocolVersion & " - Heatbeat FAILED " & Err.Description
+    Exit Sub
 End Sub
 
+Private Sub TCPTimer_Timer()
+    
+    ' establish a TCP connection to a filter
+    TCPSock.Close
+    TCPSock.Connect filterHostname, filterTCPPort
+
+End Sub
+
+Private Sub UDPTimer_Timer()
+    
+    ' build the contents of the XML packet.
+    xml = "<packet></packet>"
+
+    ' Use the first winsock control to send a UDP packet.
+    UDPSock.RemoteHost = filterHostname
+    UDPSock.RemotePort = filterUDPPort
+    UDPSock.SendData xml
+    Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
+
+End Sub
+
+Private Sub Timer1_Timer()
+
+    Label3.Caption = Label3.Caption - 1
+    Label4.Caption = Label4.Caption - 1
+    
+    Status.Caption = "i-scream Winhost " & protocolVersion
+    
+    If Label3.Caption < 1 Then
+        ' build the contents of the XML packet.
+        xml = "<packet></packet>"
+
+        ' Use the first winsock control to send a UDP packet.
+        UDPSock.RemoteHost = filterHostname
+        UDPSock.RemotePort = filterUDPPort
+        UDPSock.SendData xml
+        Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
+        Label3.Caption = UDPUpdateTime
+    End If
+    
+    If Label4.Caption < 1 Then
+        ' establish a TCP connection to a filter
+        TCPSock.Close
+        TCPSock.Connect filterHostname, filterTCPPort
+        Label4.Caption = TCPUpdateTime
+    End If
+
+End Sub