منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود الاتصال بالنت
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمة الله و بركاته

أريد كود فيجوال بيسيك يبين حالة الإنترنت هل متصل أم لا أى هل يعمل النت أم لا

 ولكم جزيل الشكر
(01-09-25, 08:46 AM)mmaalmesry كتب : [ -> ]السلام عليكم و رحمة الله و بركاته

أريد كود فيجوال بيسيك يبين حالة الإنترنت هل متصل أم لا أى هل يعمل النت أم لا

 ولكم جزيل الشكر

و عليكم السلام ورحمة الله وبركاته
PHP كود :
Public Shared Function CheckForInternetConnection() As Boolean
    Try
        Using client 
= New WebClient()
 
           Using stream client.OpenRead("http://www.google.com")
 
               Return True
            End Using
        End Using
    Catch
        Return False
    End 
Try
End Function 

هذا الرابط نفس سؤالك
شكرا لك
كود :
Imports System.Net

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       CheckForInternetConnection()
   End Sub
   Public Shared Function CheckForInternetConnection() As Boolean
       Try
           Using client = New WebClient()
               Using stream = client.OpenRead("http://www.google.com")
                   MessageBox.Show("توجد إنترنت")
                   Return True
               End Using
           End Using
       Catch
           MessageBox.Show("لا توجد إنترنت")
           Return False
       End Try
   End Function
مرحبا بكم جميعا
فقط ملاحظة صغيرة :
ستحتاج إلى إضافة السطر التالي في قسم التصريحات العامة
Imports System.Net

* وإضافة بسيطة على الكود !