| 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 = 4 'Fixed ToolWindow |
| 6 |
|
Caption = "i-scream Winhost" |
| 7 |
|
ClientHeight = 5655 |
| 8 |
|
ClientLeft = 45 |
| 9 |
|
ClientTop = 285 |
| 10 |
< |
ClientWidth = 5670 |
| 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.CommandButton Hide |
| 18 |
+ |
Caption = "Hide Window" |
| 19 |
+ |
Height = 375 |
| 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 = 4200 |
| 35 |
< |
Top = 1200 |
| 34 |
> |
Left = 2760 |
| 35 |
> |
Top = 1800 |
| 36 |
|
End |
| 37 |
|
Begin VB.TextBox Text4 |
| 38 |
|
Height = 1575 |
| 42 |
|
TabIndex = 1 |
| 43 |
|
Text = "nettest.frx":0000 |
| 44 |
|
Top = 3000 |
| 45 |
< |
Width = 5055 |
| 45 |
> |
Width = 3975 |
| 46 |
|
End |
| 47 |
|
Begin VB.CommandButton Reconfigure |
| 48 |
|
Caption = "Reconfigure with FilterManager" |
| 49 |
< |
Height = 495 |
| 49 |
> |
Height = 375 |
| 50 |
|
Left = 120 |
| 51 |
|
TabIndex = 0 |
| 52 |
< |
Top = 120 |
| 52 |
> |
Top = 840 |
| 53 |
|
Width = 2895 |
| 54 |
|
End |
| 55 |
|
Begin MSWinsockLib.Winsock TCPSock |
| 56 |
< |
Left = 5160 |
| 57 |
< |
Top = 1200 |
| 56 |
> |
Left = 3720 |
| 57 |
> |
Top = 1800 |
| 58 |
|
_ExtentX = 741 |
| 59 |
|
_ExtentY = 741 |
| 60 |
|
_Version = 393216 |
| 61 |
|
End |
| 62 |
|
Begin MSWinsockLib.Winsock UDPSock |
| 63 |
< |
Left = 4680 |
| 64 |
< |
Top = 1200 |
| 63 |
> |
Left = 3240 |
| 64 |
> |
Top = 1800 |
| 65 |
|
_ExtentX = 741 |
| 66 |
|
_ExtentY = 741 |
| 67 |
|
_Version = 393216 |
| 71 |
|
Alignment = 1 'Right Justify |
| 72 |
|
Caption = "Next heartbeat:" |
| 73 |
|
Height = 255 |
| 74 |
< |
Left = 3360 |
| 74 |
> |
Left = 2400 |
| 75 |
|
TabIndex = 6 |
| 76 |
|
Top = 480 |
| 77 |
|
Width = 1455 |
| 80 |
|
Alignment = 1 'Right Justify |
| 81 |
|
Caption = "Next UDP packet:" |
| 82 |
|
Height = 255 |
| 83 |
< |
Left = 3360 |
| 83 |
> |
Left = 2400 |
| 84 |
|
TabIndex = 5 |
| 85 |
|
Top = 120 |
| 86 |
|
Width = 1455 |
| 89 |
|
BorderStyle = 1 'Fixed Single |
| 90 |
|
Caption = "0" |
| 91 |
|
Height = 255 |
| 92 |
< |
Left = 4920 |
| 92 |
> |
Left = 3960 |
| 93 |
|
TabIndex = 4 |
| 94 |
|
Top = 480 |
| 95 |
|
Width = 615 |
| 98 |
|
BorderStyle = 1 'Fixed Single |
| 99 |
|
Caption = "0" |
| 100 |
|
Height = 255 |
| 101 |
< |
Left = 4920 |
| 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 = 2 |
| 112 |
< |
Top = 840 |
| 113 |
< |
Width = 5415 |
| 112 |
> |
Top = 1320 |
| 113 |
> |
Width = 4455 |
| 114 |
|
End |
| 115 |
|
End |
| 116 |
|
Attribute VB_Name = "Form1" |
| 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?", vbYesNo, "i-scream Winhost") |
| 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() |
