--- experimental/host/vb_net_test/nettest.frm 2001/02/23 11:25:35 1.8 +++ experimental/host/vb_net_test/nettest.frm 2001/02/23 11:56:43 1.11 @@ -1,110 +1,114 @@ VERSION 5.00 Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX" +Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0"; "SysTray.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 - MinButton = 0 'False ScaleHeight = 5655 ScaleWidth = 5670 ShowInTaskbar = 0 'False StartUpPosition = 3 'Windows Default - Begin VB.Timer Timer1 - Left = 3840 - Top = 120 + Begin VB.CommandButton Hide + Caption = "Hide" + Height = 495 + Left = 1800 + TabIndex = 7 + Top = 2160 + Width = 1215 End - Begin VB.CommandButton Command3 - Caption = "TCP to Filter" - Height = 375 - Left = 3720 - TabIndex = 3 - Top = 2520 - Width = 1575 + Begin SysTray.SystemTray SystemTray + Left = 3600 + Top = 1200 + _ExtentX = 847 + _ExtentY = 847 + SysTrayText = "i-scream Winhost" + IconFile = 0 End + 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 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" + Alignment = 1 'Right Justify + Caption = "Next heartbeat:" Height = 255 - Left = 120 + Left = 3360 TabIndex = 6 - Top = 600 - Width = 3375 + Top = 480 + Width = 1455 End Begin VB.Label Label1 - Caption = "Label1" + Alignment = 1 'Right Justify + Caption = "Next UDP packet:" Height = 255 - Left = 120 + Left = 3360 TabIndex = 5 - Top = 240 - Width = 3375 + 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 @@ -146,14 +150,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 @@ -162,12 +159,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 @@ -179,7 +178,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 @@ -189,6 +188,36 @@ 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? This will stop your computer sending information to the i-scream Central Monitoring System.", vbYesNo, "i-scream Winhost") + If x = 7 Then + Cancel = True + End If + +End Sub + +Private Sub Hide_Click() + Form1.Visible = False + SystemTray.Icon = Val(Form1.Icon) + SystemTray.Action = 0 +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 SystemTray_MouseDblClk(ByVal Button As Integer) + + Form1.Visible = True + Form1.SetFocus + +End Sub + Private Sub TCPSock_Connect() responseNumber = 0 @@ -262,9 +291,7 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo responseNumber = 0 TCPSock.Close Text4.Text = Text4.Text & vbCrLf & " " - Label1.Caption = "TCP hearbeat interval: " & UDPUpdateTime - Label2.Caption = "UDP packet interval: " & TCPUpdateTime - Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay" + Status.Caption = "Configuration successful" Label3.Caption = UDPUpdateTime Label4.Caption = TCPUpdateTime Timer1.Interval = 1000 @@ -288,7 +315,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 +324,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 +346,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