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>" & _ |