(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
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