الطريقة الصحيحة للتأكد من حالة الإتصال بالإنترنت - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188) +--- الموضوع : الطريقة الصحيحة للتأكد من حالة الإتصال بالإنترنت (/showthread.php?tid=46747)

الطريقة الصحيحة للتأكد من حالة الإتصال بالإنترنت - abuzarei - 17-08-23 الطريقة الصحيحة للتأكد من حالة الإتصال بالإنترنت     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click          If TestCon() = True Then             MsgBox("Connect", MessageBoxButtons.OK + MsgBoxStyle.Information)         Else             MsgBox("Not Connect", MessageBoxButtons.OK + MsgBoxStyle.Information)         End If     End Sub     Public Function TestCon() As Boolean         Dim Objurl As New System.Uri("https://www.google.com/")         Dim Objwebreg As System.Net.WebRequest         Objwebreg = System.Net.WebRequest.Create(Objurl)         Dim Objresp As System.Net.WebResponse         Try             Objresp = Objwebreg.GetResponse             Objresp.Close()             Objresp = Nothing             Return True         Catch exp As Exception             Objresp = Nothing             Objwebreg = Nothing             Return False         End Try     End Function