تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة فى تعديل كود VB.NET Http Web Request تسجيل الدخول الى موقع
#1
السلام عليكم

عجبنى جدا Http Web Request

اكتر من ال web browser

وبحاول فهمها والتعمق فيها

المهم

حاولت عمل تسجيل الدخول الى الفيس بوك

الكود المستخدم

كود :
Dim cookieContainer As New CookieContainer()
   Dim cookies As New CookieCollection()

   Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
       Dim getUrl As String = "https://www.facebook.com/login.php?login_attempt=1"
       Dim postData As String = [String].Format("email={0}&pass={1}", "ايميل", "باسورد")
       Dim getRequest As HttpWebRequest = DirectCast(WebRequest.Create(getUrl), HttpWebRequest)
       getRequest.CookieContainer = New CookieContainer()
       getRequest.CookieContainer.Add(cookies)
       'recover cookies First request
       getRequest.Method = WebRequestMethods.Http.Post
       getRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.2 (KHTML, like Gecko) Chrome/15.0.874.121 Safari/535.2"
       getRequest.AllowWriteStreamBuffering = True
       getRequest.ProtocolVersion = HttpVersion.Version11
       getRequest.AllowAutoRedirect = True
       getRequest.ContentType = "application/x-www-form-urlencoded"

       Dim byteArray As Byte() = Encoding.ASCII.GetBytes(postData)
       getRequest.ContentLength = byteArray.Length
       Dim newStream As Stream = getRequest.GetRequestStream()
       'open connection
       newStream.Write(byteArray, 0, byteArray.Length)
       ' Send the data.
       newStream.Close()

       Dim getResponse As HttpWebResponse = DirectCast(getRequest.GetResponse(), HttpWebResponse)
       Using sr As New StreamReader(getResponse.GetResponseStream())
           Dim sourceCode As String = sr.ReadToEnd()
           'MsgBox(sourceCode)
           RichTextBox1.Text = sourceCode
       End Using

وكانت النتيجة

http://pastebin.com/raw/YhBSMrzb

ياترى سبب المشكلة ايه وايه حلها؟
الرد }}}}
تم الشكر بواسطة:
#2
شكرا لكم

وجدت الحل
كود Visual Basic

Try
Dim container As ************************Container = Nothing
Dim s As String = "&email=email&pass=pass"
Dim mycontainer2 As New ************************Container()
Dim bytes As Byte() = New UTF8Encoding().GetBytes(s)
Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://m.facebook.com/login.php"), HttpWebRequest)
request.Method = "POST"
request.KeepAlive = True
request.************************Container = mycontainer2
request.ContentType = "application/x-www-form-urlencoded"
request.Referer = "https://m.facebook.com"
request.UserAgent = "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.2 (KHTML, like Gecko) Chrome/15.0.874.121 Safari/535.2"
request.ContentLength = bytes.Length
request.GetRequestStream().Write(bytes, 0, bytes.Length)
Dim response As HttpWebResponse = Nothing
response = DirectCast(request.GetResponse(), HttpWebResponse)
mycontainer2.Add(response.************************s)
container = mycontainer2
Dim str2 As String = New StreamReader(response.GetResponseStream()).ReadToEnd()
RichTextBox1.Text = str2
WebBrowser1.DocumentText = str2
'MessageBox.Show("done")
Catch ex As Exception
MsgBox(ex.Message)
End Try
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة لمنع تكرار البيانات او تجميعها علي حسب التاريخ englishman210 14 164 منذ 8 ساعة مضت
آخر رد: englishman210
  [VB.NET] نا اريد مساعدة سريعة حنان المغربى 0 35 أمس, 04:14 PM
آخر رد: حنان المغربى
  مساعدة في فاتورة مبيعات الدريساوي 2 71 09-12-17, 11:58 PM
آخر رد: الدريساوي
  مساعدة في مشروع Riffa 2 80 06-12-17, 03:57 PM
آخر رد: Riffa
  مساعدة فى تعديل كود اذا سمحتوا مسح كل حاجه فى الداتا جريد فيو نبيل فتحى 2 53 04-12-17, 02:14 AM
آخر رد: عبد الاحد
  [VB.NET] طلب مساعدة في حل مشكلة فراس الغزي 8 112 03-12-17, 09:41 PM
آخر رد: طالب برمجة
  اريد مساعدة في هد الكود واكون ممنون ahmedbezia 2 50 03-12-17, 06:16 PM
آخر رد: ahmedbezia
  [نقاش] محتاج مساعده بأفكار لانجاز تعديل على المشروع Rabeea Qbaha 7 158 30-11-17, 04:45 PM
آخر رد: Rabeea Qbaha
  تسجيل الدخول و الخروج أحمد فتح الرحمن 2 120 23-11-17, 01:36 PM
آخر رد: أحمد فتح الرحمن
  [VB.NET] مساعدة في مشروع باقي شغلة واحدة فقط 0theghost0 2 146 22-11-17, 06:46 PM
آخر رد: 0theghost0

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم