--- experimental/host/vb_net_test/nettest.frm 2001/02/28 08:19:00 1.25 +++ experimental/host/vb_net_test/nettest.frm 2001/02/28 09:08:08 1.26 @@ -4,7 +4,7 @@ Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0 Begin VB.Form Form1 BorderStyle = 3 'Fixed Dialog Caption = "i-scream Winhost" - ClientHeight = 1275 + ClientHeight = 4905 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 @@ -12,49 +12,67 @@ Begin VB.Form Form1 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False - ScaleHeight = 1275 + ScaleHeight = 4905 ScaleWidth = 4710 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Visible = 0 'False + Begin VB.CommandButton Command1 + Caption = "more" + Height = 255 + Left = 3960 + TabIndex = 8 + Top = 840 + Width = 615 + End + Begin VB.TextBox Text1 + Height = 2055 + Left = 120 + Locked = -1 'True + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 7 + Top = 1200 + Width = 4455 + End Begin VB.CommandButton Hide Caption = "Hide Window" Height = 375 Left = 3120 TabIndex = 6 - Top = 480 + Top = 240 Width = 1455 End Begin SysTray.SystemTray SystemTray - Left = 2160 - Top = 1800 + Left = 2520 + Top = 4200 _ExtentX = 847 _ExtentY = 847 SysTrayText = "i-scream Winhost" IconFile = 0 End Begin VB.Timer Timer1 - Left = 2760 - Top = 1800 + Left = 3120 + Top = 4200 End Begin VB.CommandButton Reconfigure Caption = "Reconfigure with FilterManager" Height = 375 - Left = 120 + Left = 840 TabIndex = 0 - Top = 480 + Top = 3480 Width = 2895 End Begin MSWinsockLib.Winsock TCPSock - Left = 3720 - Top = 1800 + Left = 4080 + Top = 4200 _ExtentX = 741 _ExtentY = 741 _Version = 393216 End Begin MSWinsockLib.Winsock UDPSock - Left = 3240 - Top = 1800 + Left = 3600 + Top = 4200 _ExtentX = 741 _ExtentY = 741 _Version = 393216 @@ -64,9 +82,9 @@ Begin VB.Form Form1 Alignment = 1 'Right Justify Caption = "Next heartbeat:" Height = 255 - Left = 2400 + Left = 120 TabIndex = 5 - Top = 120 + Top = 480 Width = 1455 End Begin VB.Label Label1 @@ -82,9 +100,9 @@ Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "0" Height = 255 - Left = 3960 + Left = 1680 TabIndex = 3 - Top = 120 + Top = 480 Width = 615 End Begin VB.Label Label3 @@ -102,8 +120,8 @@ Begin VB.Form Form1 Height = 255 Left = 0 TabIndex = 1 - Top = 960 - Width = 4695 + Top = 840 + Width = 3855 End End Attribute VB_Name = "Form1" @@ -136,8 +154,24 @@ Dim connected As Boolean Dim CUpTime As New CUpTime Dim wksta As New CNetWksta +Dim windowBig As Boolean + Dim responseNumber As Integer +Private Sub Command1_Click() + + ' Toggle visibility of the debug output. + + If windowBig Then + Form1.Height = 1500 + windowBig = False + Else + Form1.Height = 4350 + windowBig = True + End If + +End Sub + Private Sub Form_Load() If App.PrevInstance Then @@ -157,6 +191,8 @@ Private Sub Form_Load() End End If + windowBig = False + ''''TEMP 'filterManagerHostname = "killigrew.ukc.ac.uk" 'filterManagerTCPPort = 4567 @@ -256,26 +292,42 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo Case 1: If Not response = "OK" Then GoTo configError TCPSock.SendData "LASTMODIFIED" & vbCrLf + Text1.Text = "Requesting configuration from FilterManager:- " & vbCrLf + Text1.Text = Text1.Text & response & vbCrLf Case 2: If response = "ERROR" Then GoTo configError lastModified = response + Text1.Text = Text1.Text & response & vbCrLf TCPSock.SendData "FILELIST" & vbCrLf + ''' Uncomment this for new protocol release. + 'Case 2a: + 'If response = "ERROR" Then GoTo configError + 'fileList = response + 'Text1.Text = Text1.Text & response & vbCrLf + 'TCPSock.SendData "FQDN" & vbCrLf Case 3: If response = "ERROR" Then GoTo configError fileList = response + Text1.Text = Text1.Text & response & vbCrLf + ' REMOVE above line, uncomment next + 'machineName = response TCPSock.SendData "UDPUpdateTime" & vbCrLf Case 4: If response = "ERROR" Then GoTo configError UDPUpdateTime = response + Text1.Text = Text1.Text & response & vbCrLf TCPSock.SendData "TCPUpdateTime" & vbCrLf Case 5: If response = "ERROR" Then GoTo configError TCPUpdateTime = response + Text1.Text = Text1.Text & response & vbCrLf TCPSock.SendData "ENDCONFIG" & vbCrLf Case 6: If Not response = "OK" Then GoTo configError + Text1.Text = Text1.Text & response & vbCrLf TCPSock.SendData "FILTER" & vbCrLf Case 7: + Text1.Text = Text1.Text & response & vbCrLf 'we got a filter list here. readTo = 0 ' get hostname @@ -294,6 +346,7 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo connected = True responseNumber = 0 TCPSock.Close + Text1.Text = Text1.Text & response & vbCrLf 'Text4.Text = Text4.Text & vbCrLf & " " Status.Caption = "Configuration successful" Label3.Caption = UDPUpdateTime @@ -306,18 +359,24 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo Select Case responseNumber Case 1: If Not response = "OK" Then GoTo heartbeatError + Text1.Text = "Performing heartbeat: -" & vbCrLf + Text1.Text = Text1.Text & response & vbCrLf TCPSock.SendData "CONFIG" & vbCrLf Case 2: If Not response = "OK" Then GoTo heartbeatError + Text1.Text = Text1.Text & response & vbCrLf TCPSock.SendData fileList & vbCrLf Case 3: If Not response = "OK" Then GoTo heartbeatError + Text1.Text = Text1.Text & response & vbCrLf TCPSock.SendData lastModified & vbCrLf Case 4: If Not response = "OK" Then GoTo heartbeatError + Text1.Text = Text1.Text & response & vbCrLf TCPSock.SendData "ENDHEARTBEAT" & vbCrLf Case 5: If Not response = "OK" Then GoTo heartbeatError + Text1.Text = Text1.Text & response & vbCrLf TCPSock.Close Status.Caption = "Heartbeat sent successfully." End Select @@ -346,7 +405,10 @@ Private Sub Timer1_Timer() ' prepare the contents of the XML packet. seqNo = seqNo + 1 + + ' Comment this line in the next protocol machineName = TCPSock.LocalHostName + LocalIP = TCPSock.LocalIP packetDate = Date2Num() @@ -414,7 +476,7 @@ Private Sub Timer1_Timer() "" & memTotal & "" & memFree & "" & _ "" & swapTotal & "" & swapFree & "" & _ "" - 'Text4.Text = Text4.Text + xml + Text1.Text = "Last packet contained: -" & vbCrLf & xml ' Use the first winsock control to send a UDP packet. UDPSock.RemoteHost = filterHostname