--- 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 = ""
- 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", "", 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 & " "
- 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