 با این سورس می تونید بفهمید سیستم شما به اینترنت متصل است یا خیر .
اگر متصل باشد تابع مقدار 1 و در غیر این صورت مقدار 0 را بر می گرداند.
دیگه صرف نکرد که سورس اونو واسه دانلود بزارم . این کدها رو تو فرمتون قرار بدید.
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 Command1_Click()
Dim CRes As Long
If IsNetworkAlive(CResult) = 0 Then
MsgBox "Not Connected", vbInformation, "www.YazdDownload.com"
Else
MsgBox "Connected To the Internet", vbInformation, "www.YazdDownload.com"
End If
End Sub
و یکی دکمه هم روی فرمتون بگذارید که هر وقت روی اون کلیک کردین بهتون بگه متصل است یا نه !!!
|
وضعيت آنلاين ها :
اعضاي آنلاين:
