--- experimental/host/vb_net_test/nettest.frm	2001/02/23 10:53:30	1.6
+++ experimental/host/vb_net_test/nettest.frm	2001/02/23 11:25:35	1.8
@@ -14,6 +14,10 @@ Begin VB.Form Form1 
    ScaleWidth      =   5670
    ShowInTaskbar   =   0   'False
    StartUpPosition =   3  'Windows Default
+   Begin VB.Timer Timer1 
+      Left            =   3840
+      Top             =   120
+   End
    Begin VB.CommandButton Command3 
       Caption         =   "TCP to Filter"
       Height          =   375
@@ -63,6 +67,38 @@ 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
+      Left            =   120
+      TabIndex        =   6
+      Top             =   600
+      Width           =   3375
+   End
+   Begin VB.Label Label1 
+      Caption         =   "Label1"
+      Height          =   255
+      Left            =   120
+      TabIndex        =   5
+      Top             =   240
+      Width           =   3375
+   End
    Begin VB.Label Status 
       Caption         =   "Status:"
       Height          =   255
@@ -89,6 +125,9 @@ Dim filterUDPPort As Integer
 Dim fileList As String
 Dim lastModified As String
 
+Dim UDPUpdateTime As Integer
+Dim TCPUpdateTime As Integer
+
 Dim protocolVersion As String
 Dim connected As Boolean
 Dim responseNumber As Integer
@@ -150,10 +189,6 @@ iniError:
     
 End Sub
 
-Private Sub Label1_Click()
-
-End Sub
-
 Private Sub TCPSock_Connect()
     
     responseNumber = 0
@@ -198,9 +233,11 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
                 TCPSock.SendData "UDPUpdateTime" & vbCrLf
             Case 4:
                 If response = "ERROR" Then GoTo configError
+                UDPUpdateTime = response
                 TCPSock.SendData "TCPUpdateTime" & vbCrLf
             Case 5:
                 If response = "ERROR" Then GoTo configError
+                TCPUpdateTime = response
                 TCPSock.SendData "ENDCONFIG" & vbCrLf
             Case 6:
                 If Not response = "OK" Then GoTo configError
@@ -225,7 +262,12 @@ 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)
@@ -255,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