Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Form_Load()
Dim CRes As Long
If IsNetworkAlive(CResult) = 0 Then
MsgBox "conection ERROR", vbCritical, "ERROR"
Unload Me
Else
MsgBox "conection SUCCESSFUL", vbInformation, "SUCCESSFUL"
Unload Me
End If
End Sub
+
نوشته شده در پنجشنبه بیست و سوم خرداد 1387ساعت 20:9 توسط ناشناس
|
