--- 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:25:35	1.8
@@ -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
@@ -71,6 +67,22 @@ Begin VB.Form Form1 
       _Version        =   393216
       Protocol        =   1
    End
+   Begin VB.Label Label4 
+      Caption         =   "Label4"
+      Height          =   255
+      Left            =   1920
+      TabIndex        =   8
+      Top             =   1320
+      Width           =   615
+   End
+   Begin VB.Label Label3 
+      Caption         =   "Label3"
+      Height          =   255
+      Left            =   1920
+      TabIndex        =   7
+      Top             =   960
+      Width           =   615
+   End
    Begin VB.Label Label2 
       Caption         =   "Label2"
       Height          =   255
@@ -253,6 +265,9 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
                 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