[Thewolf]

س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

تشخیص آنلاین یا آفلاین بودن رایانه

کد های زیر را در قسمت 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

سوالی هست؟ در خدمتم !!!