تقييم الموضوع :
  • 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 مساعدة nabilelk 2 60 منذ 11 ساعة مضت
آخر رد: hassan
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 0 36 أمس, 01:23 PM
آخر رد: alwasela
  [سؤال] تسجيل دخول الفيس من خلال تطبيق ابو روضة 0 29 09-12-16, 03:55 PM
آخر رد: ابو روضة
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 106 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 65 01-12-16, 03:09 AM
آخر رد: khalaroy
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 53 29-11-16, 01:37 AM
آخر رد: hglogtd
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 70 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 176 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 307 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 78 21-11-16, 11:24 PM
آخر رد: السرور

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


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