| 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 |
| 5 |
> |
BorderStyle = 3 'Fixed Dialog |
| 6 |
|
Caption = "i-scream Winhost" |
| 7 |
|
ClientHeight = 5655 |
| 8 |
|
ClientLeft = 45 |
| 9 |
< |
ClientTop = 285 |
| 9 |
> |
ClientTop = 330 |
| 10 |
|
ClientWidth = 4710 |
| 11 |
|
LinkTopic = "Form1" |
| 12 |
|
MaxButton = 0 'False |
| 13 |
+ |
MinButton = 0 'False |
| 14 |
|
ScaleHeight = 5655 |
| 15 |
|
ScaleWidth = 4710 |
| 16 |
|
ShowInTaskbar = 0 'False |
| 68 |
|
_Version = 393216 |
| 69 |
|
Protocol = 1 |
| 70 |
|
End |
| 71 |
+ |
Begin VB.Label Label5 |
| 72 |
+ |
Caption = "b e t a" |
| 73 |
+ |
BeginProperty Font |
| 74 |
+ |
Name = "MS Sans Serif" |
| 75 |
+ |
Size = 24 |
| 76 |
+ |
Charset = 0 |
| 77 |
+ |
Weight = 700 |
| 78 |
+ |
Underline = 0 'False |
| 79 |
+ |
Italic = 0 'False |
| 80 |
+ |
Strikethrough = 0 'False |
| 81 |
+ |
EndProperty |
| 82 |
+ |
Height = 615 |
| 83 |
+ |
Left = 240 |
| 84 |
+ |
TabIndex = 8 |
| 85 |
+ |
Top = 120 |
| 86 |
+ |
Width = 1815 |
| 87 |
+ |
End |
| 88 |
|
Begin VB.Label Label2 |
| 89 |
|
Alignment = 1 'Right Justify |
| 90 |
|
Caption = "Next heartbeat:" |
| 414 |
|
"</os>" & _ |
| 415 |
|
"<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _ |
| 416 |
|
"<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _ |
| 417 |
< |
"" |
| 417 |
> |
"</packet>" |
| 418 |
|
Text4.Text = Text4.Text + xml |
| 419 |
|
|
| 420 |
|
' Use the first winsock control to send a UDP packet. |
