تمت الإجابة مصيبتي مع ssl (مشكلتي مع مواقع ال ssl لايقبل تسجيل الدخول)

تم تحميل الصفحة في 1,7141785 ثانية
مصيبتي مع ssl (مشكلتي مع مواقع ال ssl لايقبل تسجيل الدخول)
الحالة
مغلق و غير مفتوح للمزيد من الردود.

jabe0r

Beginner Developer
rank
إنضم
16 ديسمبر 2018
المشاركات
5
الإعجابات
5
النقاط
3
العمر
23
السلام عليكم ورحمة الله وبركاتة
هذه المشكله اصابتني بالجنون
عملت اداة رشق متابعين انستقرام
والكثير من المواقع فيها مشاكل
لكن بعض المواقع شغاله
ويوجد بعض المواقع تعمل لكن يطلع خطا ssl في request او في xnet



كيف طريقة التخطي منه ؟
اكواد البرنامج


كود:
Imports xNet
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click






        Using request As HttpRequest = New HttpRequest

            Dim container As CookieDictionary = New CookieDictionary(False)

            request.Cookies = container
            request.UserAgent = Http.ChromeUserAgent
            request.AllowAutoRedirect = True
            request.KeepAlive = True
            request.IgnoreProtocolErrors = True

            request.AddHeader("Accept", "application/json, text/javascript, */*; q=0.01")
            request.AddHeader("ContentType", "application/x-www-form-urlencoded; charset=UTF-8")
            request.AddHeader("X-Requested-With", "XMLHttpRequest")
            Dim params As New RequestParams
            params.Item("username") = TextBox1.Text
            params.Item("password") = "100031989914044"

            Dim str As String = request.Post("https://www.insfollow.com/logins", params, False).ToString

            TextBox3.Text = str
            WebBrowser1.DocumentText = str


        End Using
    End Sub

End Class

جربت اكثر من طريقة لحل المشكلة لكن لم تنجح معي
- لقد غيرت الموقع اكثر من مرة ونفس المشكلة
- محاولاتي :

كود:
           ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3
            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls
            ServicePointManager.SecurityProtocol = DirectCast(3072, SecurityProtocolType)
كود:
Imports System.Net
Imports System.Security.Cryptography.X509Certificates



ServicePointManager.ServerCertificateValidationCallback = AddressOf AcceptAllCertifications 'في بداية الريكويست




Public Function AcceptAllCertifications(ByVal sender As Object, ByVal certification As System.Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain, ByVal sslPolicyErrors As System.Net.Security.SslPolicyErrors) As Boolean
        Return True
    End Function
 

X-KILLER

Beginner Developer
rank
إنضم
18 ديسمبر 2018
المشاركات
128
الإعجابات
36
النقاط
28
وعليكم السلام اخي

حل المشكلة net framework

قم بتنصيب

net framework 4.6.2


وستعملها مع الفيجوال ستديو

بالتوفيق اخي بدون اضافة اي كلمات
 

الممَلكة

كُن مع الله ولا تبالي
rankrankrankrankrankrank
طاقم الإدارة
إنضم
30 أغسطس 2010
المشاركات
4,301
الإعجابات
6,625
النقاط
100
الإقامة
المملكة العربية السعودية
تفضل صديقي هذا الكود الكامل ( يعمل 100% ) :

C#:
Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO
Public Class Form1
    Function login() As String
        Try
            Dim request As HttpWebRequest = HttpWebRequest.Create("https://www.insfollow.com/logins")
            request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:64.0) Gecko/20100101 Firefox/64.0"
            request.Accept = "application/json, text/javascript, */*; q=0.01"
            request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
            request.Method = "POST"
            Dim data As Byte() = System.Text.Encoding.Default.GetBytes("username=" & "username here" & "&password=" & "password here")
            request.ContentLength = data.LongLength
            Dim st As Stream = request.GetRequestStream
            st.Write(data, 0, data.Length)
            st.Flush()
            st.Close()
            Return New StreamReader(request.GetResponse.GetResponseStream()).ReadToEnd
        Catch ex As WebException
            Return "error: " & New StreamReader(ex.Response.GetResponseStream()).ReadToEnd
        End Try
    End Function
End Class
 

jabe0r

Beginner Developer
rank
إنضم
16 ديسمبر 2018
المشاركات
5
الإعجابات
5
النقاط
3
العمر
23
تفضل صديقي هذا الكود الكامل ( يعمل 100% ) :

C#:
Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO
Public Class Form1
    Function login() As String
        Try
            Dim request As HttpWebRequest = HttpWebRequest.Create("https://www.insfollow.com/logins")
            request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:64.0) Gecko/20100101 Firefox/64.0"
            request.Accept = "application/json, text/javascript, */*; q=0.01"
            request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
            request.Method = "POST"
            Dim data As Byte() = System.Text.Encoding.Default.GetBytes("username=" & "username here" & "&password=" & "password here")
            request.ContentLength = data.LongLength
            Dim st As Stream = request.GetRequestStream
            st.Write(data, 0, data.Length)
            st.Flush()
            st.Close()
            Return New StreamReader(request.GetResponse.GetResponseStream()).ReadToEnd
        Catch ex As WebException
            Return "error: " & New StreamReader(ex.Response.GetResponseStream()).ReadToEnd
        End Try
    End Function
End Class
يضهر هذة الخطأ نفس كود بتاعك


واذا مسحت الFunction و try يضهر هذة الخطأ
 

الممَلكة

كُن مع الله ولا تبالي
rankrankrankrankrankrank
طاقم الإدارة
إنضم
30 أغسطس 2010
المشاركات
4,301
الإعجابات
6,625
النقاط
100
الإقامة
المملكة العربية السعودية
إنضم
8 سبتمبر 2013
المشاركات
7,563
الإعجابات
11,269
النقاط
168
الإقامة
JORDAN
يضهر هذة الخطأ نفس كود بتاعك


واذا مسحت الFunction و try يضهر هذة الخطأ
كيف تحذف function , try و تريده يشتغل اصلاً :\

المهم جرب تصريح البروتوكول مع كود الاخ @الممَلكة
C#:
ServicePointManager.Expect100Continue = true;
            ServicePointManager.DefaultConnectionLimit = 9999;
            ServicePointManager.SecurityProtocol =
                SecurityProtocolType.Tls |
                SecurityProtocolType.Tls11 |
                SecurityProtocolType.Tls12 |
                SecurityProtocolType.Ssl3;
Net Framework 4.5
 

jabe0r

Beginner Developer
rank
إنضم
16 ديسمبر 2018
المشاركات
5
الإعجابات
5
النقاط
3
العمر
23
كيف تحذف function , try و تريده يشتغل اصلاً :\

المهم جرب تصريح البروتوكول مع كود الاخ @الممَلكة
C#:
ServicePointManager.Expect100Continue = true;
            ServicePointManager.DefaultConnectionLimit = 9999;
            ServicePointManager.SecurityProtocol =
                SecurityProtocolType.Tls |
                SecurityProtocolType.Tls11 |
                SecurityProtocolType.Tls12 |
                SecurityProtocolType.Ssl3;
Net Framework 4.5
شكرا اخي لردك مسحت function , try حتى اعرف اسم الخطأ
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل