 با این سورس می تونید بفهمید سیستم شما به اینترنت متصل است یا خیر .
اگر متصل باشد تابع مقدار 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
و یکی دکمه هم روی فرمتون بگذارید که هر وقت روی اون کلیک کردین بهتون بگه متصل است یا نه !!!
|