• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 25 رای - 2.64 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سورس کد چک کردن وضعیت اتصال به اینترنت
حالت موضوعی
#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()) 
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد اضافه اپدیت حذف سرچ در اکسس (وی بی دات نت) Amin_Mansouri 3 7,176 10-04-2017، 11:06 AM
آخرین ارسال: maryammo
  سورس کد تبدیل ویدئو به فرمت های 3gp mp4 و..(وی بی دات نت) Amin_Mansouri 0 4,039 01-31-2013، 07:22 PM
آخرین ارسال: Amin_Mansouri
  سورس کد پروژه مدیریت هتل (vb.net) Amin_Mansouri 0 3,430 01-31-2013، 07:13 PM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن وضعیت سیستم عامل (ویژوال بیسیک دات نت) Amin_Mansouri 0 2,800 09-29-2012، 12:48 AM
آخرین ارسال: Amin_Mansouri
  سورس ماشین حساب پیشرفته kazemfallahi1371 0 2,522 07-01-2012، 01:49 AM
آخرین ارسال: kazemfallahi1371
  سورس کد خواندن فایل Pdf (وی بی دات نت) Amin_Mansouri 0 5,981 06-08-2012، 10:16 PM
آخرین ارسال: Amin_Mansouri
  سورس کد پرینت گزارش توسط کریستال ریپورت (وی بی دات نت) Amin_Mansouri 1 6,877 05-30-2012، 05:15 PM
آخرین ارسال: parvin
  سورس کد تغییر نام سطل زباله سیستم عامل (وی بی دات نت) Amin_Mansouri 0 2,928 05-02-2012، 04:08 PM
آخرین ارسال: Amin_Mansouri
  سورس کد تبدیل تصویر رنگی به سیاه سفید Amin_Mansouri 0 4,914 01-20-2012، 01:16 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن درجه دمای سی پی یو Amin_Mansouri 0 5,124 01-20-2012، 01:07 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان