| 4 |
|
Begin VB.Form Form1 |
| 5 |
|
BorderStyle = 3 'Fixed Dialog |
| 6 |
|
Caption = "i-scream Winhost" |
| 7 |
< |
ClientHeight = 4905 |
| 7 |
> |
ClientHeight = 1185 |
| 8 |
|
ClientLeft = 45 |
| 9 |
|
ClientTop = 330 |
| 10 |
|
ClientWidth = 4710 |
| 12 |
|
LinkTopic = "Form1" |
| 13 |
|
MaxButton = 0 'False |
| 14 |
|
MinButton = 0 'False |
| 15 |
< |
ScaleHeight = 4905 |
| 15 |
> |
ScaleHeight = 1185 |
| 16 |
|
ScaleWidth = 4710 |
| 17 |
|
ShowInTaskbar = 0 'False |
| 18 |
|
StartUpPosition = 2 'CenterScreen |
| 36 |
|
Width = 4455 |
| 37 |
|
End |
| 38 |
|
Begin VB.CommandButton Hide |
| 39 |
< |
Caption = "Hide Window" |
| 40 |
< |
Height = 375 |
| 41 |
< |
Left = 3120 |
| 39 |
> |
Caption = "hide" |
| 40 |
> |
Height = 255 |
| 41 |
> |
Left = 3960 |
| 42 |
|
TabIndex = 6 |
| 43 |
< |
Top = 240 |
| 44 |
< |
Width = 1455 |
| 43 |
> |
Top = 480 |
| 44 |
> |
Width = 615 |
| 45 |
|
End |
| 46 |
|
Begin SysTray.SystemTray SystemTray |
| 47 |
|
Left = 2520 |
| 461 |
|
cpu_time = CUpTime.CPUTime |
| 462 |
|
percent_idle = CUpTime.PercentIdle |
| 463 |
|
|
| 464 |
+ |
userCount = wksta.LoggedOnUsers |
| 465 |
+ |
|
| 466 |
|
' build the contents of the XML packet |
| 467 |
|
xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _ |
| 468 |
|
"<os>" & _ |
| 474 |
|
"<processor>" & processorType & "</processor>" & _ |
| 475 |
|
"<uptime>" & uptime & "</uptime>" & _ |
| 476 |
|
"</os>" & _ |
| 477 |
+ |
"<users><count>" & userCount & "</count></users>" & _ |
| 478 |
|
"<cpu><idle>" & percent_idle & "</idle><user>" & cpu_time & "</user></cpu>" & _ |
| 479 |
|
"<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _ |
| 480 |
|
"<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _ |