09-10-13, 12:36 PM
(آخر تعديل لهذه المشاركة : 09-10-13, 03:45 PM {2} بواسطة 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بالتوفيق

