ايران ويج

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

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

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

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

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

موفق باشيد

kamyabpc

Scorpion

kamyabpc

dreamvbfox