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

[kamyabpc]

سلام دوستان،من یه کیلاگر نوشتم و می خوام یه قسمت اون وقتی که فرد آلوده به اینترنت متصل شد فعال بشه.ممنون میشم اگه کمکم کنید
راستی یادم رفت بگم،اونو با VB6 نوشتم

[Scorpion]

سرچ کنین بارها بحث شده

[kamyabpc]

من تمام تاپیک ها رو برسی کردم ولی نتونستم چیزی پیدا کنم
لطفا اونها رو بهم معرفی کنید

[dreamvbfox]

سلام
درست و حسابي سرچ كن ....

اگر متصل باشد تابع مقدار 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

یکی دکمه هم روی فرمتون بزار با نام Command1 که هر وقت روی اون کلیک کردی بهت بگه متصله یا نه !!!

موفق باشيد