--- 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:42:06 1.10 @@ -1,11 +1,11 @@ VERSION 5.00 Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX" Begin VB.Form Form1 - BorderStyle = 3 'Fixed Dialog - Caption = "TCP/UDP Test program" + BorderStyle = 4 'Fixed ToolWindow + Caption = "i-scream Winhost" ClientHeight = 5655 ClientLeft = 45 - ClientTop = 330 + ClientTop = 285 ClientWidth = 5670 LinkTopic = "Form1" MaxButton = 0 'False @@ -14,61 +14,85 @@ Begin VB.Form Form1 ScaleWidth = 5670 ShowInTaskbar = 0 'False StartUpPosition = 3 'Windows Default - Begin VB.CommandButton Command3 - Caption = "TCP to Filter" - Height = 375 - Left = 3720 - TabIndex = 3 - Top = 2520 - Width = 1575 + Begin VB.Timer Timer1 + Left = 4200 + Top = 1200 End Begin VB.TextBox Text4 Height = 1575 Left = 240 MultiLine = -1 'True ScrollBars = 2 'Vertical - TabIndex = 2 + TabIndex = 1 Text = "nettest.frx":0000 Top = 3000 Width = 5055 End - Begin VB.CommandButton Command2 - Caption = "TCP to FilterManager" - Height = 375 - Left = 3360 - TabIndex = 1 - Top = 2040 - Width = 1935 + Begin VB.CommandButton Reconfigure + Caption = "Reconfigure with FilterManager" + Height = 495 + Left = 120 + TabIndex = 0 + Top = 120 + Width = 2895 End Begin MSWinsockLib.Winsock TCPSock - Left = 4920 - Top = 120 + Left = 5160 + Top = 1200 _ExtentX = 741 _ExtentY = 741 _Version = 393216 End - Begin VB.CommandButton Command1 - Caption = "Send UDP" - Height = 375 - Left = 4320 - TabIndex = 0 - Top = 1560 - Width = 975 - End Begin MSWinsockLib.Winsock UDPSock - Left = 4320 - Top = 120 + Left = 4680 + Top = 1200 _ExtentX = 741 _ExtentY = 741 _Version = 393216 Protocol = 1 End + Begin VB.Label Label2 + Alignment = 1 'Right Justify + Caption = "Next heartbeat:" + Height = 255 + Left = 3360 + TabIndex = 6 + Top = 480 + Width = 1455 + End + Begin VB.Label Label1 + Alignment = 1 'Right Justify + Caption = "Next UDP packet:" + Height = 255 + Left = 3360 + TabIndex = 5 + Top = 120 + Width = 1455 + End + Begin VB.Label Label4 + BorderStyle = 1 'Fixed Single + Caption = "0" + Height = 255 + Left = 4920 + TabIndex = 4 + Top = 480 + Width = 615 + End + Begin VB.Label Label3 + BorderStyle = 1 'Fixed Single + Caption = "0" + Height = 255 + Left = 4920 + TabIndex = 3 + Top = 120 + Width = 615 + End Begin VB.Label Status Caption = "Status:" Height = 255 Left = 120 - TabIndex = 4 - Top = 5280 + TabIndex = 2 + Top = 840 Width = 5415 End End @@ -89,6 +113,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 @@ -107,14 +134,7 @@ Private Sub Command1_Click() End Sub -Private Sub Command2_Click() - - ' establish a TCP connection to a filtermanager - TCPSock.Close - TCPSock.Connect filterManagerHostname, filterManagerTCPPort -End Sub - Private Sub Command3_Click() ' establish a TCP connection to a filter TCPSock.Close @@ -123,12 +143,14 @@ End Sub Private Sub Form_Load() protocolVersion = "1.1" + + Status.Caption = "Loading" + Form1.Caption = "i-scream Winhost " & protocolVersion - Status.Caption = "i-scream Winhost " & protocolVersion - ''''TEMP filterManagerHostname = "killigrew.ukc.ac.uk" filterManagerTCPPort = 4567 + Reconfigure_Click Exit Sub ''' ENDTEMP @@ -140,7 +162,7 @@ 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" + Status.Caption = "Connecting to Filter Manager" Exit Sub @@ -150,10 +172,21 @@ iniError: End Sub -Private Sub Label1_Click() +Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) + x = MsgBox("Are you sure you want to shut down the Winhost?", vbYesNo, "i-scream Winhost") + If x = 7 Then + Cancel = True + End If End Sub +Private Sub Reconfigure_Click() + ' establish a TCP connection to a filtermanager + connected = False + TCPSock.Close + TCPSock.Connect filterManagerHostname, filterManagerTCPPort +End Sub + Private Sub TCPSock_Connect() responseNumber = 0 @@ -198,9 +231,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 +260,10 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo responseNumber = 0 TCPSock.Close Text4.Text = Text4.Text & vbCrLf & " " - Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay" + Status.Caption = "Configuration successful" + Label3.Caption = UDPUpdateTime + Label4.Caption = TCPUpdateTime + Timer1.Interval = 1000 End Select Else ' Perform a heartbeat (1.1) @@ -246,7 +284,7 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo Case 5: If Not response = "OK" Then GoTo heartbeatError TCPSock.Close - Status.Caption = "i-scream Winhost " & protocolVersion & " - heartbeat sent okay." + Status.Caption = "Heartbeat sent successfully." End Select End If @@ -255,8 +293,37 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo Exit Sub configError: - Status.Caption = "i-scream Winhost " & protocolVersion & " - FAILED to get configuration" + Status.Caption = "FAILED to get configuration" + Exit Sub heartbeatError: - Status.Caption = "i-scream Winhost " & protocolVersion & " - Heatbeat FAILED" + Status.Caption = "Heatbeat FAILED" + Exit Sub End Sub +Private Sub Timer1_Timer() + + Label3.Caption = Label3.Caption - 1 + Label4.Caption = Label4.Caption - 1 + + Status.Caption = "" + + If Label3.Caption < 1 Then + ' build the contents of the XML packet. + xml = "" + + ' Use the first winsock control to send a UDP packet. + UDPSock.RemoteHost = filterHostname + UDPSock.RemotePort = filterUDPPort + UDPSock.SendData xml + Status.Caption = "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