+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: تشخیص آنلاین یا آفلاین بودن در Vb 6 (/showthread.php?tid=2469)
تشخیص آنلاین یا آفلاین بودن در Vb 6 - Thewolf - 06-19-2012
س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
تشخیص آنلاین یا آفلاین بودن رایانه
کد های زیر را در قسمت 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سوالی هست؟ در خدمتم !!!
RE: تشخیص آنلاین یا آفلاین بودن در Vb 6 - Kei armin - 06-19-2012
درود
دوستان اینجا از کتابخانه SENSAPI.DLL استفاده میشه. راه دیگه تشخیص وصل بودن به اینترنت یک رایانه رو اینجا می تونین پیدا کنین !