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.8 by pjm2, Fri Feb 23 11:25:35 2001 UTC vs.
Revision 1.12 by pjm2, Fri Feb 23 12:01:14 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
10 <   ClientWidth     =   5670
9 >   ClientTop       =   285
10 >   ClientWidth     =   4710
11     LinkTopic       =   "Form1"
12     MaxButton       =   0   'False
12 –   MinButton       =   0   'False
13     ScaleHeight     =   5655
14 <   ScaleWidth      =   5670
14 >   ScaleWidth      =   4710
15     ShowInTaskbar   =   0   'False
16     StartUpPosition =   3  'Windows Default
17 <   Begin VB.Timer Timer1
18 <      Left            =   3840
19 <      Top             =   120
20 <   End
21 <   Begin VB.CommandButton Command3
22 <      Caption         =   "TCP to Filter"
17 >   Begin VB.CommandButton Hide
18 >      Caption         =   "Hide Window"
19        Height          =   375
20 <      Left            =   3720
21 <      TabIndex        =   3
22 <      Top             =   2520
23 <      Width           =   1575
20 >      Left            =   3120
21 >      TabIndex        =   7
22 >      Top             =   840
23 >      Width           =   1455
24     End
25 +   Begin SysTray.SystemTray SystemTray
26 +      Left            =   2160
27 +      Top             =   1800
28 +      _ExtentX        =   847
29 +      _ExtentY        =   847
30 +      SysTrayText     =   "i-scream Winhost"
31 +      IconFile        =   0
32 +   End
33 +   Begin VB.Timer Timer1
34 +      Left            =   2760
35 +      Top             =   1800
36 +   End
37     Begin VB.TextBox Text4
38        Height          =   1575
39        Left            =   240
40        MultiLine       =   -1  'True
41        ScrollBars      =   2  'Vertical
42 <      TabIndex        =   2
42 >      TabIndex        =   1
43        Text            =   "nettest.frx":0000
44        Top             =   3000
45 <      Width           =   5055
45 >      Width           =   3975
46     End
47 <   Begin VB.CommandButton Command2
48 <      Caption         =   "TCP to FilterManager"
47 >   Begin VB.CommandButton Reconfigure
48 >      Caption         =   "Reconfigure with FilterManager"
49        Height          =   375
50 <      Left            =   3360
51 <      TabIndex        =   1
52 <      Top             =   2040
53 <      Width           =   1935
50 >      Left            =   120
51 >      TabIndex        =   0
52 >      Top             =   840
53 >      Width           =   2895
54     End
55     Begin MSWinsockLib.Winsock TCPSock
56 <      Left            =   4920
57 <      Top             =   120
56 >      Left            =   3720
57 >      Top             =   1800
58        _ExtentX        =   741
59        _ExtentY        =   741
60        _Version        =   393216
61     End
54 –   Begin VB.CommandButton Command1
55 –      Caption         =   "Send UDP"
56 –      Height          =   375
57 –      Left            =   4320
58 –      TabIndex        =   0
59 –      Top             =   1560
60 –      Width           =   975
61 –   End
62     Begin MSWinsockLib.Winsock UDPSock
63 <      Left            =   4320
64 <      Top             =   120
63 >      Left            =   3240
64 >      Top             =   1800
65        _ExtentX        =   741
66        _ExtentY        =   741
67        _Version        =   393216
68        Protocol        =   1
69     End
70 –   Begin VB.Label Label4
71 –      Caption         =   "Label4"
72 –      Height          =   255
73 –      Left            =   1920
74 –      TabIndex        =   8
75 –      Top             =   1320
76 –      Width           =   615
77 –   End
78 –   Begin VB.Label Label3
79 –      Caption         =   "Label3"
80 –      Height          =   255
81 –      Left            =   1920
82 –      TabIndex        =   7
83 –      Top             =   960
84 –      Width           =   615
85 –   End
70     Begin VB.Label Label2
71 <      Caption         =   "Label2"
71 >      Alignment       =   1  'Right Justify
72 >      Caption         =   "Next heartbeat:"
73        Height          =   255
74 <      Left            =   120
74 >      Left            =   2400
75        TabIndex        =   6
76 <      Top             =   600
77 <      Width           =   3375
76 >      Top             =   480
77 >      Width           =   1455
78     End
79     Begin VB.Label Label1
80 <      Caption         =   "Label1"
80 >      Alignment       =   1  'Right Justify
81 >      Caption         =   "Next UDP packet:"
82        Height          =   255
83 <      Left            =   120
83 >      Left            =   2400
84        TabIndex        =   5
85 <      Top             =   240
86 <      Width           =   3375
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            =   3960
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            =   3960
102 +      TabIndex        =   3
103 +      Top             =   120
104 +      Width           =   615
105 +   End
106     Begin VB.Label Status
107 +      Alignment       =   2  'Center
108        Caption         =   "Status:"
109        Height          =   255
110        Left            =   120
111 <      TabIndex        =   4
112 <      Top             =   5280
113 <      Width           =   5415
111 >      TabIndex        =   2
112 >      Top             =   1320
113 >      Width           =   4455
114     End
115   End
116   Attribute VB_Name = "Form1"
# Line 146 | Line 151 | Private Sub Command1_Click()
151  
152   End Sub
153  
149 – Private Sub Command2_Click()
150 –    
151 –    ' establish a TCP connection to a filtermanager
152 –    TCPSock.Close
153 –    TCPSock.Connect filterManagerHostname, filterManagerTCPPort
154  
155 – End Sub
156 –
155   Private Sub Command3_Click()
156      ' establish a TCP connection to a filter
157      TCPSock.Close
# Line 162 | Line 160 | End Sub
160  
161   Private Sub Form_Load()
162      protocolVersion = "1.1"
163 +      
164 +    Status.Caption = "Loading"
165 +    Form1.Caption = "i-scream Winhost " & protocolVersion
166      
166 –    Status.Caption = "i-scream Winhost " & protocolVersion
167 –    
167      ''''TEMP
168      filterManagerHostname = "killigrew.ukc.ac.uk"
169      filterManagerTCPPort = 4567
170 +    Reconfigure_Click
171      Exit Sub
172      ''' ENDTEMP
173      
# Line 179 | Line 179 | Private Sub Form_Load()
179      length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
180      filterManagerTCPPort = Left$(buf, length)
181      
182 <    Status.Caption = "i-scream Winhost " & protocolVersion & " connecting to Filter Manager"
182 >    Status.Caption = "Connecting to Filter Manager"
183      
184      Exit Sub
185      
# Line 189 | Line 189 | iniError:
189      
190   End Sub
191  
192 + Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
193 +    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")
194 +    If x = 7 Then
195 +        Cancel = True
196 +    End If
197 +    SystemTray.Action = 2
198 +
199 + End Sub
200 +
201 + Private Sub Hide_Click()
202 +    Form1.Visible = False
203 +    SystemTray.Icon = Val(Form1.Icon)
204 +    SystemTray.Action = 0
205 + End Sub
206 +
207 + Private Sub Reconfigure_Click()
208 +    ' establish a TCP connection to a filtermanager
209 +    connected = False
210 +    TCPSock.Close
211 +    TCPSock.Connect filterManagerHostname, filterManagerTCPPort
212 + End Sub
213 +
214 +
215 +
216 + Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)
217 +
218 +    Form1.Visible = True
219 +    SystemTray.Action = 2
220 +    Form1.SetFocus
221 +    
222 +
223 + End Sub
224 +
225   Private Sub TCPSock_Connect()
226      
227      responseNumber = 0
# Line 262 | Line 295 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
295                  responseNumber = 0
296                  TCPSock.Close
297                  Text4.Text = Text4.Text & vbCrLf & "  <closed>"
298 <                Label1.Caption = "TCP hearbeat interval: " & UDPUpdateTime
266 <                Label2.Caption = "UDP packet interval: " & TCPUpdateTime
267 <                Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay"
298 >                Status.Caption = "Configuration successful"
299                  Label3.Caption = UDPUpdateTime
300                  Label4.Caption = TCPUpdateTime
301                  Timer1.Interval = 1000
# Line 288 | Line 319 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
319              Case 5:
320                  If Not response = "OK" Then GoTo heartbeatError
321                  TCPSock.Close
322 <                Status.Caption = "i-scream Winhost " & protocolVersion & " - heartbeat sent okay."
322 >                Status.Caption = "Heartbeat sent successfully."
323          End Select
324      
325      End If
# Line 297 | Line 328 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
328      Exit Sub
329      
330   configError:
331 <    Status.Caption = "i-scream Winhost " & protocolVersion & " - FAILED to get configuration " & Err.Description
331 >    Status.Caption = "FAILED to get configuration"
332      Exit Sub
333   heartbeatError:
334 <    Status.Caption = "i-scream Winhost " & protocolVersion & " - Heatbeat FAILED " & Err.Description
334 >    Status.Caption = "Heatbeat FAILED"
335      Exit Sub
336   End Sub
337  
307 – Private Sub TCPTimer_Timer()
308 –    
309 –    ' establish a TCP connection to a filter
310 –    TCPSock.Close
311 –    TCPSock.Connect filterHostname, filterTCPPort
312 –
313 – End Sub
314 –
315 – Private Sub UDPTimer_Timer()
316 –    
317 –    ' build the contents of the XML packet.
318 –    xml = "<packet></packet>"
319 –
320 –    ' Use the first winsock control to send a UDP packet.
321 –    UDPSock.RemoteHost = filterHostname
322 –    UDPSock.RemotePort = filterUDPPort
323 –    UDPSock.SendData xml
324 –    Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
325 –
326 – End Sub
327 –
338   Private Sub Timer1_Timer()
339  
340      Label3.Caption = Label3.Caption - 1
341      Label4.Caption = Label4.Caption - 1
342      
343 <    Status.Caption = "i-scream Winhost " & protocolVersion
343 >    Status.Caption = ""
344      
345      If Label3.Caption < 1 Then
346          ' build the contents of the XML packet.
# Line 340 | Line 350 | Private Sub Timer1_Timer()
350          UDPSock.RemoteHost = filterHostname
351          UDPSock.RemotePort = filterUDPPort
352          UDPSock.SendData xml
353 <        Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
353 >        Status.Caption = "UDP packet sent"
354          Label3.Caption = UDPUpdateTime
355      End If
356      

Diff Legend

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