26-10-16, 10:18 AM
السلام عليكم
ممكن شرح هذا الكود هو عبارة عن تسجيل الدخول للفيس:
ممكن شرح هذا الكود هو عبارة عن تسجيل الدخول للفيس:
كود :
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
End Sub