| 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" |
| 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 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 |
| 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?", vbYesNo, "i-scream Winhost") |
| 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() |
