+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود الاتصال بالنت (/showthread.php?tid=54887)
كود الاتصال بالنت - mmaalmesry - 01-09-25
السلام عليكم و رحمة الله و بركاته
أريد كود فيجوال بيسيك يبين حالة الإنترنت هل متصل أم لا أى هل يعمل النت أم لا
ولكم جزيل الشكر
RE: كود الاتصال بالنت - justforit - 01-09-25
(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
هذا الرابط نفس سؤالك
RE: كود الاتصال بالنت - mmaalmesry - 01-09-25
شكرا لك
RE: كود الاتصال بالنت - mmaalmesry - 04-09-25
هذا مثال آخر عن طريق ال API
RE: كود الاتصال بالنت - أبو خالد الشكري - 04-09-25
كود :
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
* وإضافة بسيطة على الكود !