سؤال... كيف اتأكد اذا كان الجهاز مربوط باللإنترنت او لأ من خلال البرنامج
شاهدت موضوع بالمنتدى لكني بحثت عنه لم اجده ...
ارجو من الأخوه مساعدتي
سؤال... كيف اتأكد اذا كان الجهاز مربوط باللإنترنت او لأ من خلال البرنامج
شاهدت موضوع بالمنتدى لكني بحثت عنه لم اجده ...
ارجو من الأخوه مساعدتي
شكرا شباب انا لقيت الي بدي اياه وراح اشاركم المعلومه
هاد الكود بتحطه بـ Module
Public Function tconn() As Boolean
Dim objUrl As New System.Uri("http://www.google.com/")
Dim objWebReq As System.Net.WebRequest
objWebReq = System.Net.WebRequest.Create(objUrl)
Dim objResp As System.Net.WebResponse
Try
objResp = objWebReq.GetResponse
objResp.Close()
objWebReq = Nothing
Return True
Catch ex As Exception
Return False
End Try
End Function
وهاد كود استدعاء ال Function
If tconn() = True Then
Me.Hide()
Forgot_password.Show()
Else
MsgBox("you are not connected, Please Connect to internet and try again later")
End If
بتحطه وين ما بدك
جرب الكود التالي :
Imports System.Runtime.InteropServices
Module Module1
<DllImport("wininet.dll")> _
Public Function InternetGetConnectedState(<Out()> ByRef Description As Integer, ByVal ReservedValue As Integer) As Boolean
End Function
Public Function IsConnected() As Boolean
Dim Desc As Integer
Return InternetGetConnectedState(Desc, 0)
End Function
Sub Main()
Console.Write(IsConnected())
End Sub
End Moduleسبب التحرير : وضعت كود C# بالخطأ
تحياتي...
تم تعديل هذه المشاركة بواسطة محمد رضى في 2 سبتمبر 2009 في 00:24
شكرا اخي لكني وجدت الطريقه ووضعتها بالموضوع و الطريقه هادي تتأكد اذا انت كنت شابك ولا لأ
في بعض الطرق بتتأكد اذا كان الكيبل موصول او لأ ...
شكرا اخي الكريم
جرب الكود البسيط ده....
If My.Computer.Network.IsAvailable = True Then
MsgBox("الجهاز متصل")
Else
MsgBox("الجهاز غير متصل")
End If
شكراً لك اخي mak_hourani
طبقت كودك ومشي تمام
تحياتي
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…