[حل شده] بررسی اتصال به اینترنت

[پیمان طهماسبی]

با سلام
من یه فرم دارم که در آن از یک ابزار WebBrowser استفاده کردم
یه کد می خوام که در زمان باز شدن فرم بررسی کند که آیا سیستم به اینترنت متصل است یا نه
و در صورت عدم اتصال بهم پیام بدهد و وارد فرم نشود.
با تشکر
( لازم به ذکر این نکته ضروریست که ویندوز 10 و 64 بیتی دارم )

[mrhartsclube]

سلام جناب طهماسبی عزیز

راه برای این کار زیاد هست، مثلا پینگ کردن گوگل و یا پینگ کردن همون سایتی که میخواین ازش اطلاعات بگیرین. ولی سریعترین را استفاده از Win32API و wininet.dll هست که خودش برای این کار یه تابع داره و با فراخونی این dll میتونیم از تابعش استفاده کنیم:

Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Public Function GetInternetConnectedState() As Boolean
  GetInternetConnectedState = InternetGetConnectedState(0&, 0&)
End Function 

حالا هربار که تابع GetInternetConnectedState رو Call کنید با False و True بهتون میگه اتصال دارین یا نه. که اونم با یه IF میشه به یه پیام کاربرپسند تبدیلش کرد:

If GetInternetConnectedState Then
    MsgBox "Connected"
Else
    MsgBox "Not Connected"
End If 

[پیمان طهماسبی]

خیلی خیلی سپاسگزارم دوست عزیز