ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/winhost/nettest.frm
(Generate patch)

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.5 by pjm2, Fri Feb 23 10:34:47 2001 UTC vs.
Revision 1.11 by pjm2, Fri Feb 23 11:56:43 2001 UTC

# Line 1 | Line 1
1   VERSION 5.00
2   Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
3 + Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0"; "SysTray.ocx"
4   Begin VB.Form Form1
5 <   BorderStyle     =   3  'Fixed Dialog
6 <   Caption         =   "TCP/UDP Test program"
5 >   BorderStyle     =   4  'Fixed ToolWindow
6 >   Caption         =   "i-scream Winhost"
7     ClientHeight    =   5655
8     ClientLeft      =   45
9 <   ClientTop       =   330
9 >   ClientTop       =   285
10     ClientWidth     =   5670
11     LinkTopic       =   "Form1"
12     MaxButton       =   0   'False
12 –   MinButton       =   0   'False
13     ScaleHeight     =   5655
14     ScaleWidth      =   5670
15     ShowInTaskbar   =   0   'False
16     StartUpPosition =   3  'Windows Default
17 <   Begin VB.CommandButton Command3
18 <      Caption         =   "TCP to Filter"
19 <      Height          =   375
20 <      Left            =   3720
21 <      TabIndex        =   5
22 <      Top             =   2520
23 <      Width           =   1575
17 >   Begin VB.CommandButton Hide
18 >      Caption         =   "Hide"
19 >      Height          =   495
20 >      Left            =   1800
21 >      TabIndex        =   7
22 >      Top             =   2160
23 >      Width           =   1215
24     End
25 +   Begin SysTray.SystemTray SystemTray
26 +      Left            =   3600
27 +      Top             =   1200
28 +      _ExtentX        =   847
29 +      _ExtentY        =   847
30 +      SysTrayText     =   "i-scream Winhost"
31 +      IconFile        =   0
32 +   End
33 +   Begin VB.Timer Timer1
34 +      Left            =   4200
35 +      Top             =   1200
36 +   End
37     Begin VB.TextBox Text4
38 <      Height          =   2535
38 >      Height          =   1575
39        Left            =   240
40        MultiLine       =   -1  'True
41        ScrollBars      =   2  'Vertical
42 <      TabIndex        =   4
42 >      TabIndex        =   1
43        Text            =   "nettest.frx":0000
44        Top             =   3000
45        Width           =   5055
46     End
47 <   Begin VB.CommandButton Command2
48 <      Caption         =   "TCP to FilterManager"
49 <      Height          =   375
50 <      Left            =   3360
51 <      TabIndex        =   3
52 <      Top             =   2040
53 <      Width           =   1935
47 >   Begin VB.CommandButton Reconfigure
48 >      Caption         =   "Reconfigure with FilterManager"
49 >      Height          =   495
50 >      Left            =   120
51 >      TabIndex        =   0
52 >      Top             =   120
53 >      Width           =   2895
54     End
55     Begin MSWinsockLib.Winsock TCPSock
56 <      Left            =   4920
57 <      Top             =   120
56 >      Left            =   5160
57 >      Top             =   1200
58        _ExtentX        =   741
59        _ExtentY        =   741
60        _Version        =   393216
61     End
50 –   Begin VB.CommandButton Command1
51 –      Caption         =   "Send UDP"
52 –      Height          =   375
53 –      Left            =   4320
54 –      TabIndex        =   2
55 –      Top             =   1560
56 –      Width           =   975
57 –   End
58 –   Begin VB.TextBox Text1
59 –      Height          =   855
60 –      Left            =   360
61 –      TabIndex        =   0
62 –      Text            =   "<packet></packet>"
63 –      Top             =   600
64 –      Width           =   4935
65 –   End
62     Begin MSWinsockLib.Winsock UDPSock
63 <      Left            =   4320
64 <      Top             =   120
63 >      Left            =   4680
64 >      Top             =   1200
65        _ExtentX        =   741
66        _ExtentY        =   741
67        _Version        =   393216
68        Protocol        =   1
69     End
70 +   Begin VB.Label Label2
71 +      Alignment       =   1  'Right Justify
72 +      Caption         =   "Next heartbeat:"
73 +      Height          =   255
74 +      Left            =   3360
75 +      TabIndex        =   6
76 +      Top             =   480
77 +      Width           =   1455
78 +   End
79     Begin VB.Label Label1
80 <      Caption         =   "Packet contents"
80 >      Alignment       =   1  'Right Justify
81 >      Caption         =   "Next UDP packet:"
82        Height          =   255
83 <      Left            =   360
84 <      TabIndex        =   1
85 <      Top             =   360
86 <      Width           =   2895
83 >      Left            =   3360
84 >      TabIndex        =   5
85 >      Top             =   120
86 >      Width           =   1455
87     End
88 +   Begin VB.Label Label4
89 +      BorderStyle     =   1  'Fixed Single
90 +      Caption         =   "0"
91 +      Height          =   255
92 +      Left            =   4920
93 +      TabIndex        =   4
94 +      Top             =   480
95 +      Width           =   615
96 +   End
97 +   Begin VB.Label Label3
98 +      BorderStyle     =   1  'Fixed Single
99 +      Caption         =   "0"
100 +      Height          =   255
101 +      Left            =   4920
102 +      TabIndex        =   3
103 +      Top             =   120
104 +      Width           =   615
105 +   End
106 +   Begin VB.Label Status
107 +      Caption         =   "Status:"
108 +      Height          =   255
109 +      Left            =   120
110 +      TabIndex        =   2
111 +      Top             =   840
112 +      Width           =   5415
113 +   End
114   End
115   Attribute VB_Name = "Form1"
116   Attribute VB_GlobalNameSpace = False
# Line 97 | Line 129 | Dim filterUDPPort As Integer
129   Dim fileList As String
130   Dim lastModified As String
131  
132 + Dim UDPUpdateTime As Integer
133 + Dim TCPUpdateTime As Integer
134 +
135   Dim protocolVersion As String
136   Dim connected As Boolean
137   Dim responseNumber As Integer
# Line 111 | Line 146 | Private Sub Command1_Click()
146      UDPSock.RemoteHost = filterHostname
147      UDPSock.RemotePort = filterUDPPort
148      UDPSock.SendData xml
149 +    Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
150  
151   End Sub
152  
117 – Private Sub Command2_Click()
118 –    
119 –    ' establish a TCP connection to a filtermanager
120 –    TCPSock.Close
121 –    TCPSock.Connect filterManagerHostname, filterManagerTCPPort
153  
123 – End Sub
124 –
154   Private Sub Command3_Click()
155      ' establish a TCP connection to a filter
156      TCPSock.Close
# Line 130 | Line 159 | End Sub
159  
160   Private Sub Form_Load()
161      protocolVersion = "1.1"
162 +      
163 +    Status.Caption = "Loading"
164 +    Form1.Caption = "i-scream Winhost " & protocolVersion
165      
166      ''''TEMP
167      filterManagerHostname = "killigrew.ukc.ac.uk"
168      filterManagerTCPPort = 4567
169 +    Reconfigure_Click
170      Exit Sub
171      ''' ENDTEMP
172      
# Line 145 | Line 178 | Private Sub Form_Load()
178      length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
179      filterManagerTCPPort = Left$(buf, length)
180      
181 +    Status.Caption = "Connecting to Filter Manager"
182 +    
183      Exit Sub
184      
185   iniError:
# Line 153 | Line 188 | iniError:
188      
189   End Sub
190  
191 + Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
192 +    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")
193 +    If x = 7 Then
194 +        Cancel = True
195 +    End If
196 +
197 + End Sub
198 +
199 + Private Sub Hide_Click()
200 +    Form1.Visible = False
201 +    SystemTray.Icon = Val(Form1.Icon)
202 +    SystemTray.Action = 0
203 + End Sub
204 +
205 + Private Sub Reconfigure_Click()
206 +    ' establish a TCP connection to a filtermanager
207 +    connected = False
208 +    TCPSock.Close
209 +    TCPSock.Connect filterManagerHostname, filterManagerTCPPort
210 + End Sub
211 +
212 +
213 +
214 + Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)
215 +
216 +    Form1.Visible = True
217 +    Form1.SetFocus
218 +
219 + End Sub
220 +
221   Private Sub TCPSock_Connect()
222 <      
223 <   responseNumber = 0
222 >    
223 >    responseNumber = 0
224    
225      ' Send something as soon as we connect to the server.
226      If connected = False Then
# Line 197 | Line 262 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
262                  TCPSock.SendData "UDPUpdateTime" & vbCrLf
263              Case 4:
264                  If response = "ERROR" Then GoTo configError
265 +                UDPUpdateTime = response
266                  TCPSock.SendData "TCPUpdateTime" & vbCrLf
267              Case 5:
268                  If response = "ERROR" Then GoTo configError
269 +                TCPUpdateTime = response
270                  TCPSock.SendData "ENDCONFIG" & vbCrLf
271              Case 6:
272                  If Not response = "OK" Then GoTo configError
# Line 224 | Line 291 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
291                  responseNumber = 0
292                  TCPSock.Close
293                  Text4.Text = Text4.Text & vbCrLf & "  <closed>"
294 <                x = MsgBox("got config okay")
294 >                Status.Caption = "Configuration successful"
295 >                Label3.Caption = UDPUpdateTime
296 >                Label4.Caption = TCPUpdateTime
297 >                Timer1.Interval = 1000
298          End Select
299      Else
300          ' Perform a heartbeat (1.1)
# Line 245 | Line 315 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
315              Case 5:
316                  If Not response = "OK" Then GoTo heartbeatError
317                  TCPSock.Close
318 <                x = MsgBox("heartbeat sent okay.")
318 >                Status.Caption = "Heartbeat sent successfully."
319          End Select
320      
321      End If
# Line 254 | Line 324 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
324      Exit Sub
325      
326   configError:
327 <    x = MsgBox("error doing configuration")
327 >    Status.Caption = "FAILED to get configuration"
328 >    Exit Sub
329   heartbeatError:
330 <    x = MsgBox("error doing configuration")
330 >    Status.Caption = "Heatbeat FAILED"
331 >    Exit Sub
332   End Sub
333  
334 + Private Sub Timer1_Timer()
335 +
336 +    Label3.Caption = Label3.Caption - 1
337 +    Label4.Caption = Label4.Caption - 1
338 +    
339 +    Status.Caption = ""
340 +    
341 +    If Label3.Caption < 1 Then
342 +        ' build the contents of the XML packet.
343 +        xml = "<packet></packet>"
344 +
345 +        ' Use the first winsock control to send a UDP packet.
346 +        UDPSock.RemoteHost = filterHostname
347 +        UDPSock.RemotePort = filterUDPPort
348 +        UDPSock.SendData xml
349 +        Status.Caption = "UDP packet sent"
350 +        Label3.Caption = UDPUpdateTime
351 +    End If
352 +    
353 +    If Label4.Caption < 1 Then
354 +        ' establish a TCP connection to a filter
355 +        TCPSock.Close
356 +        TCPSock.Connect filterHostname, filterTCPPort
357 +        Label4.Caption = TCPUpdateTime
358 +    End If
359 +
360 + End Sub

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines