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

[ali reza mansoori 2]

دوستان یک برنامه می خواهم که اگر سیستم به اینترنت متصل بود یا متصل نبود پیام بدهد(برنامه با VBنوشته شده باشد)

[r0ot$harp]

دوست عزیز اگر جستجو می کردین حتما به جواب می رسیدین .

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

Dim sConnType As String * 255

Private Sub Form_Load()

    Dim Ret As Long

    Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)

    If Ret = 1 Then

        MsgBox "You are connected to Internet via a " & sConnType, vbInformation

    Else

        MsgBox "You are not connected to internet", vbInformation

    End If

End Sub

باتشکر احسان

[vb-sosol]

من مودم adsl روکه روشن میکنم بعد این کد رو اجرا میکنم مینویسه به اینترنت متصل هستید
در صورتی که مودم داره تازه روشن میشه
چطوری متوجه بشم واقعا به نت وصل شده؟

[سید حمید حق پرست]

من مودم adsl روکه روشن میکنم بعد این کد رو اجرا میکنم مینویسه به اینترنت متصل هستید
در صورتی که مودم داره تازه روشن میشه
چطوری متوجه بشم واقعا به نت وصل شده؟

سلام علیکم
تاپیک قدیمی عزیز نباید بالا میاوردید
یک جستجو میکردید خوب بود، یک ماه پیش سه روش در یکی از تاپیکها قرار دادم
اینجا هم ضمیمه میکنم
موفق باشید.

یا علی (ع)

[vb-sosol]

ممنون ولی جستجو کردم
این تاپیک با یک تاپیک دیگه فقط برای من نمایش داده شد !

[vb-sosol]

سلام علیکم
تاپیک قدیمی عزیز نباید بالا میاوردید
یک جستجو میکردید خوب بود، یک ماه پیش سه روش در یکی از تاپیکها قرار دادم
اینجا هم ضمیمه میکنم
موفق باشید.

یا علی (ع)

متاسفانه هیچ کدومش درست کار نکرد
چراغ lan مودم روشن میشه و منتظر روشن شدن چراغ اینترنت میمونه هر سه سورس را تست کردم و همشون تشخیص کانکت دادن!

[سید حمید حق پرست]

سلام علیکم
سورس پوشه 2 که از Winsock استفاده شده جواب میده عزیز خودم تست کردم و هنگام روشن شدن مودم پیغام میده اما یک کم دیر
دلیل کندی بررسی و دادن پیغام هم معلومه! موقعی که مودم در حال روشن شدنه خودتون هم یک آدرس سایت در مرورگر باز کنید میبینید که یک کم طول میکشه تا ارور Server not found رو بده
موفق باشید

یا علی (ع)