06-19-2012، 05:18 PM
س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
تشخیص آنلاین یا آفلاین بودن رایانه
کد های زیر را در قسمت General وارد کنید.
سوالی هست؟ در خدمتم !!!
تشخیص آنلاین یا آفلاین بودن رایانه
کد های زیر را در قسمت General وارد کنید.
کد:
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Sub Timer1_Timer()
timer1.Interval = "500"
Dim CResult As Long
If IsNetworkAlive(CResult) = 0 Then
label1.caption = "Offline"
Else
label2.caption = "Online"
End If
End Subسوالی هست؟ در خدمتم !!!