[sooriaty03]

السلام عليكم ورحمة الله وبركاته

أخي إذا كانت الشبكة عليها كلمة سر
فلازم تسجل دخول إلى الشبكة عن طريق البرنامج

أنا كتبت لك طريقة لعمل اتصال بموقع وبناء على رسالة الخطأ - إن وجدت -
نستطيع معرفة هل الجهاز متصل بالنت أم لا

لاحظ معي المثال

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim Proxy As New System.Net.WebProxy(Host:="193.193.192.2", port:="8080")
            Dim UserName_Password As New System.Net.NetworkCredential("اسم المستخدم", "كلمة السر")
            Proxy.Credentials = UserName_Password

            Dim req As System.Net.HttpWebRequest = System.Net.WebRequest.Create("http://www.facebook.com")
            req.Proxy = Proxy
            Dim res As System.Net.HttpWebResponse = req.GetResponse()
        Catch ex As Exception
            Select Case ex.Message
                Case "Unable to connect to the remote server"
                    'لا يوجد اتصال
                Case "The remote server returned an error: (407) Proxy Authentication Required."
                    'يحتاج إلى تصريح دخول إلى النت
                Case Else

            End Select
        End Try
End Sub

بالتوفيق