| 159 |
|
Dim protocolVersion As String |
| 160 |
|
Dim connected As Boolean |
| 161 |
|
|
| 162 |
< |
'Dim CUpTime As New CUpTime |
| 162 |
> |
Dim CUpTime As New CUpTime |
| 163 |
|
|
| 164 |
|
Dim responseNumber As Integer |
| 165 |
|
|
| 166 |
|
Private Sub Form_Load() |
| 167 |
|
|
| 168 |
+ |
If App.PrevInstance Then |
| 169 |
+ |
x = MsgBox("There is already an i-scream Winhost running on this machine.", 48, "i-scream host already running") |
| 170 |
+ |
End If |
| 171 |
+ |
|
| 172 |
|
protocolVersion = "1.1" |
| 173 |
|
|
| 174 |
|
Status.Caption = "Loading" |
| 175 |
< |
'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion() |
| 175 |
> |
Form1.Caption = "i-scream Winhost " & protocolVersion |
| 176 |
|
|
| 177 |
+ |
Form1.Show |
| 178 |
+ |
|
| 179 |
+ |
CUpTime.Init |
| 180 |
+ |
|
| 181 |
+ |
If CUpTime.isWin9x Then |
| 182 |
+ |
x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.") |
| 183 |
+ |
End |
| 184 |
+ |
End If |
| 185 |
+ |
|
| 186 |
|
''''TEMP |
| 187 |
|
'filterManagerHostname = "killigrew.ukc.ac.uk" |
| 188 |
|
'filterManagerTCPPort = 4567 |
| 383 |
|
End |
| 384 |
|
End If |
| 385 |
|
|
| 386 |
< |
osName = getVersion() |
| 386 |
> |
osName = GetVersion() |
| 387 |
|
osVersionMajor = verinfo.dwMajorVersion |
| 388 |
|
osVersionMinor = verinfo.dwMinorVersion |
| 389 |
|
osBuild = verinfo.dwBuildNumber |
