2011-10-04 70 views

回答

3

你可以做一個ping到那臺計算機。

Dim _ping As New Ping 
Dim _pingreply = _ping.Send(IpAddress, 2000) 
If _pingreply.Status = IPStatus.Success Then 
    'server is online 
Else 
    'server is offline 
End If 

當然,這隻會在服務器允許ping時才起作用。只會給你這麼多的信息。考慮這是第一步。

您需要小心將超時設置爲適當的值。在這種情況下,我將它設置爲2000毫秒,在您的情況下可能不夠長。但設置時間越長,用戶在知道它在線之前必須等待的時間越長。