--- experimental/host/vb_net_test/nettest.frm 2001/02/23 11:30:25 1.9 +++ 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 @@ -15,53 +15,37 @@ Begin VB.Form Form1 ShowInTaskbar = 0 'False StartUpPosition = 3 'Windows Default Begin VB.Timer Timer1 - Left = 3840 - Top = 120 + Left = 4200 + Top = 1200 End - Begin VB.CommandButton Command3 - Caption = "TCP to Filter" - Height = 375 - Left = 3720 - TabIndex = 3 - Top = 2520 - Width = 1575 - 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 @@ -71,8 +55,8 @@ Begin VB.Form Form1 Alignment = 1 'Right Justify Caption = "Next heartbeat:" Height = 255 - Left = 120 - TabIndex = 8 + Left = 3360 + TabIndex = 6 Top = 480 Width = 1455 End @@ -80,24 +64,26 @@ Begin VB.Form Form1 Alignment = 1 'Right Justify Caption = "Next UDP packet:" Height = 255 - Left = 120 - TabIndex = 7 + Left = 3360 + TabIndex = 5 Top = 120 Width = 1455 End Begin VB.Label Label4 + BorderStyle = 1 'Fixed Single Caption = "0" Height = 255 - Left = 1680 - TabIndex = 6 + Left = 4920 + TabIndex = 4 Top = 480 Width = 615 End Begin VB.Label Label3 + BorderStyle = 1 'Fixed Single Caption = "0" Height = 255 - Left = 1680 - TabIndex = 5 + Left = 4920 + TabIndex = 3 Top = 120 Width = 615 End @@ -105,8 +91,8 @@ Begin VB.Form Form1 Caption = "Status:" Height = 255 Left = 120 - TabIndex = 4 - Top = 5280 + TabIndex = 2 + Top = 840 Width = 5415 End End @@ -148,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 @@ -164,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 @@ -181,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 @@ -191,6 +172,21 @@ iniError: End Sub +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 @@ -264,7 +260,7 @@ 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 @@ -288,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 @@ -297,40 +293,19 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo Exit Sub configError: - Status.Caption = "i-scream Winhost " & protocolVersion & " - FAILED to get configuration " & Err.Description + Status.Caption = "FAILED to get configuration" Exit Sub heartbeatError: - Status.Caption = "i-scream Winhost " & protocolVersion & " - Heatbeat FAILED " & Err.Description + Status.Caption = "Heatbeat FAILED" 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 = "" - - ' 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 + Status.Caption = "" If Label3.Caption < 1 Then ' build the contents of the XML packet. @@ -340,7 +315,7 @@ Private Sub Timer1_Timer() UDPSock.RemoteHost = filterHostname UDPSock.RemotePort = filterUDPPort UDPSock.SendData xml - Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent." + Status.Caption = "UDP packet sent" Label3.Caption = UDPUpdateTime End If