تشخیص اتصال به اینترنت

[Mar$hal]

آقا می خوام یه برنامه بنویسم که بفهمه شما الان تو اینترنت هستی یا نه ؟

[Last Killer]

آقا می خوام یه برنامه بنویسم که بفهمه شما الان تو اینترنت هستی یا نه ؟

اگه با Api آشنايي داري اين كار 1 api معروف داره
اگه نتونستي پيدا كني بگو تا برات بذارم

[Mar$hal]

نمیتونم لطفاً برام کد بزارید

[Last Killer]

نمیتونم لطفاً برام کد بزارید

برای اینکه بفهمیم در هر لحظه کامپیوتر به اینترنت متصل است از تابع Api به نام InternetGetConnectedState میتوان

استفاده کرد ... که به صورت زیر :

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpSFlags As Long, ByVal dwReserved As Long) As Long

بعد از معرفی تابع api میتوانید از تابع زیر استفاده کنید :

Public Function Modem() As Boolean

Dim SFlags As Long

Modem = InternetGetConnectedState(SFlags And INTERNET_CONNECTION_MODEM, 0&)

End Function

یا به طور مستقیم از تابع api استفاده کنید .

که در تابع بالا INTERNET_CONNECTION_MODEM ثابت تعریف شده به مقدار &H1 میباشد و باید آن را بعد از تعریف تابع Api

تعریف کنید :

Public Const INTERNET_CONNECTION_MODEM As Long = &H1

حالا اگر کامپیوتر از طریق مودم متصل باشد تابع Modem مقدار True را باز میگرداند و اگر کامپیوتر به اینترنت متصل نباشد مقدار

False را برمیگرداند ... به همین راحتی !!!

[Mar$hal]

میشه یه مثال برنید هراه با سورس کد

[irxor]

Last Killer جان سورس جالب و کوتاهی بود ممنون

[Mar$hal]

آقا تو رو خدا سریع تر خیلی واجبه

[Last Killer]

آقا تو رو خدا سریع تر خیلی واجبه

بفرماييد :
اين كد اگه وصل باه ميگه@!@

Dim SFlags As Long
Dim Modem As Boolean
Modem = InternetGetConnectedState(SFlags And INTERNET_CONNECTION_MODEM, 0&)
If Modem = True Then
MsgBox "vasle"
Else
MsgBox "vasl ni"
End If

فقط كپي و پيست كن
همين!!!

[Mar$hal]

آقای کیلر خیلی الطف بزرگی کردی انشالله که بتونم جبران کنم

[Last Killer]

آقای کیلر خیلی الطف بزرگی کردی انشالله که بتونم جبران کنم

4كريم
فقط انجام وظيفه بود !!!