| 134 |
|
Dim connected As Boolean |
| 135 |
|
|
| 136 |
|
Dim CUpTime As New CUpTime |
| 137 |
+ |
Dim wksta As New CNetWksta |
| 138 |
|
|
| 139 |
|
Dim responseNumber As Integer |
| 140 |
|
|
| 142 |
|
|
| 143 |
|
If App.PrevInstance Then |
| 144 |
|
x = MsgBox("There is already an i-scream Winhost running on this machine.", 48, "i-scream host already running") |
| 145 |
+ |
End |
| 146 |
|
End If |
| 147 |
|
|
| 148 |
|
protocolVersion = "1.1" |
| 153 |
|
CUpTime.Init |
| 154 |
|
|
| 155 |
|
If CUpTime.isWin9x Then |
| 156 |
< |
x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.") |
| 156 |
> |
x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server") |
| 157 |
|
End |
| 158 |
|
End If |
| 159 |
|
|
| 170 |
|
filterManagerHostname = Left$(buf, length) |
| 171 |
|
length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini") |
| 172 |
|
filterManagerTCPPort = length |
| 173 |
+ |
If filterManagerHostname = "" Then |
| 174 |
+ |
GoTo iniError |
| 175 |
+ |
End If |
| 176 |
|
On Error GoTo 0 |
| 177 |
|
skip: |
| 178 |
|
|
| 393 |
|
memory& = memsts.dwAvailVirtual |
| 394 |
|
swapFree = memory& \ 1024 |
| 395 |
|
|
| 396 |
< |
uptime = GetTickCount \ 1000 |
| 396 |
> |
uptime = CUpTime.MilliSecs \ 1000 |
| 397 |
|
|
| 398 |
|
CUpTime.Capture |
| 399 |
|
cpu_time = CUpTime.CPUTime |
