امتیاز موضوع:
  • 21 رای - 2.76 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
سورس کد چک کردن وضعیت اتصال به اینترنت
#1
Check if an Internet Connection is available


کد پی‌اچ‌پی:
''' <summary>
''' 
Pings a variation of websites defined in a array and checks for connectivity.
''' </summary>
''' 
<returns>True if a ping succeededFalse if otherwise.</returns>
''' <remarks></remarks>
Public Function isInternetAvailable() As Boolean
    ' 
The arrays of sites we want to check for connectivity.
    
' If all fail to ping, the function will return false.
    Dim sitesToCheck() As String = {"www.google.com", _
    "www.microsoft.com", "www.dreamincode.net"}

    Dim failedPings As Integer = 0

    ' 
Loop through all hostnames and ping them
    
For Each str As String In sitesToCheck
        
Try
            
My.Computer.Network.Ping(str)
        Catch 
ex As Exception
            failedPings 
+= 1
        End 
Try
    
Next

    
' Couldn't ping any of the hostnames.
    If 
failedPings sitesToCheck.Length Then Return False
    
Return True
End 
Function

' Example Usage
MessageBox.Show(isInternetAvailable()) 
ایدی اینسگرام من :
amin__mansouri توجه کنید دارای 2 اندرلاین میباشد
پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد اضافه اپدیت حذف سرچ در اکسس (وی بی دات نت) Amin_Mansouri 3 5,460 10-04-2017، 11:06 AM
آخرین ارسال: maryammo
  سورس کد تبدیل ویدئو به فرمت های 3gp mp4 و..(وی بی دات نت) Amin_Mansouri 0 2,670 01-31-2013، 07:22 PM
آخرین ارسال: Amin_Mansouri
  سورس کد پروژه مدیریت هتل (vb.net) Amin_Mansouri 0 2,802 01-31-2013، 07:13 PM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن وضعیت سیستم عامل (ویژوال بیسیک دات نت) Amin_Mansouri 0 2,202 09-29-2012، 12:48 AM
آخرین ارسال: Amin_Mansouri
  سورس ماشین حساب پیشرفته kazemfallahi1371 0 1,903 07-01-2012، 01:49 AM
آخرین ارسال: kazemfallahi1371
  سورس کد خواندن فایل Pdf (وی بی دات نت) Amin_Mansouri 0 5,260 06-08-2012، 10:16 PM
آخرین ارسال: Amin_Mansouri
  سورس کد پرینت گزارش توسط کریستال ریپورت (وی بی دات نت) Amin_Mansouri 1 6,010 05-30-2012، 05:15 PM
آخرین ارسال: parvin
  سورس کد تغییر نام سطل زباله سیستم عامل (وی بی دات نت) Amin_Mansouri 0 2,312 05-02-2012، 04:08 PM
آخرین ارسال: Amin_Mansouri
  سورس کد تبدیل تصویر رنگی به سیاه سفید Amin_Mansouri 0 4,275 01-20-2012، 01:16 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن درجه دمای سی پی یو Amin_Mansouri 0 4,502 01-20-2012، 01:07 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان
This forum uses Lukasz Tkacz MyBB addons.