منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ممكن تصحيح - نسخة قابلة للطباعة

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

ممكن تصحيح - ابراهيم مراد - 11-06-14

السلام عليكم اخوانى الكرام ممكن ليه الكود مش بيعمل لوجين
PHP كود :
Dim postData As String = "login_email=" & TextBox2.Text & "login_password=" & TextBox2.Text & "submit=Log+In"
        Dim tempCookies As New CookieContainer
        Dim encoding As New UTF8Encoding
        Dim byteData As Byte() = encoding.GetBytes(postData)
        Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://www.paypal.com/us/webapps/mpp/home"), HttpWebRequest)
        postReq.Timeout = 10000
        postReq.Method = "POST"
        postReq.KeepAlive = True
        postReq.CookieContainer = tempCookies
        postReq.ContentType = "application/x-www-form-urlencoded"
        postReq.Referer = "https://www.paypal.com/us/webapps/mpp/home"
        postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20100101 Firefox/29.0"
        postReq.ContentLength = byteData.Length

        
        Dim postreqstream As Stream = postReq.GetRequestStream()
        postreqstream.Write(byteData, 0, byteData.Length)
        postreqstream.Close()
        Dim postresponse As HttpWebResponse

        postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
        tempCookies.Add(postresponse.Cookies)
        logincookie = tempCookies

        Dim postreqreader As New StreamReader(postresponse.GetResponseStream())

        Dim thepage As String = postreqreader.ReadToEnd

        RichTextBox1.Text = thepage 


RE: ممكن تصحيح - vbnet - 12-06-14

.....

راجع الموضوع التالي
جلب كوكيز العضوية بالكود (خاص لمنتديات Mybb فقط)

ولجعل الأمثلة الموجودة فيه تعمل مع موقع آخر غير الأسماء والعناوين مثلا بدل username ضع login_email وهكذا

.....

RE: ممكن تصحيح - ابراهيم مراد - 12-06-14

(12-06-14, 12:15 AM)vbnet كتب : .....

راجع الموضوع التالي
جلب كوكيز العضوية بالكود (خاص لمنتديات Mybb فقط)

ولجعل الأمثلة الموجودة فيه تعمل مع موقع آخر غير الأسماء والعناوين مثلا بدل username ضع login_email وهكذا

.....

المشكله ان مش بيعمل تسجيل دخول اساسا

RE: ممكن تصحيح - vbnet - 12-06-14

.....

أعتقد لديك خطأ في عنوان صفحة الدخول في WebRequest.Create والمفترض أن تكون
كود :
https://www.paypal.com/us/cgi-bin/webscr?cmd=_login-submit

وليست
https://www.paypal.com/us/webapps/mpp/home

.....

RE: ممكن تصحيح - ابراهيم مراد - 12-06-14

(12-06-14, 06:34 PM)vbnet كتب : .....

أعتقد لديك خطأ في عنوان صفحة الدخول في WebRequest.Create والمفترض أن تكون
كود :
https://www.paypal.com/us/cgi-bin/webscr?cmd=_login-submit

وليست
https://www.paypal.com/us/webapps/mpp/home

.....

اشكرك ع ردك ولكن المشكله ما ذالت مستمرة اعتقد ان لازم تايمر 10 ثوانى لان الوجين بياخد 5 ثوانى ممكن تساعدنى فى حل المشكله انا عارف ان تعبتك بعتذر كتير
ضيف بوتن 2
وحط WebBrowser1.DocumentText = RichTextBox1.Text
هتتاكد