[Pytanie] httpwebrequest login

[DrexonPl]

mam taki kod:

Imports System.Net
Imports System.Text
Imports System.IO
 
 
Public Class Form1
 
    Function loginin()
 
        Dim logincookie As CookieContainer
 
        Dim postData As String = "username=" & TextBox1.Text & "&password=" & TextBox2.Text & "&redirect=.%2Fucp.php%3Fmode%3Dlogin%26sid%3D8c3ae674e2d427762eba103635d09522&sid=8c3ae674e2d427762eba103635d09522&redirect=index.php&login=Zaloguj+si%C4%99"
        Dim tempCookies As New CookieContainer
        Dim encoding As New UTF8Encoding
        Dim byteData As Byte() = Encoding.GetBytes(postData)
 
        Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://skyren-chat.cba.pl/ucp.php?mode=login&sid=8c3ae674e2d427762eba103635d09522"), HttpWebRequest)
        postReq.Method = "POST"
        postReq.KeepAlive = True
        postReq.CookieContainer = tempCookies
        postReq.ContentType = "application/x-www-form-urlencoded"
        postReq.Referer = "http://skyren-chat.cba.pl/ucp.php?mode=login&sid=8c3ae674e2d427762eba103635d09522"
        postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:22.0) Gecko/20100101 Firefox/22.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
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        loginin()
    End Sub
End Class

 

jak zrobic żeby otwierał sie form2

oczywiscie jak będą sie zgadzac passy

[DrexonPl]

działa:

Imports System.Net
Imports System.Text
Imports System.IO
 
 
Public Class Form1
 
    Function loginin()
 
        Dim logincookie As CookieContainer
 
        Dim postData As String = "username=" & TextBox1.Text & "&password=" & TextBox2.Text & "&redirect=.%2Fucp.php%3Fmode%3Dlogin%26sid%3D8c3ae674e2d427762eba103635d09522&sid=8c3ae674e2d427762eba103635d09522&redirect=index.php&login=Zaloguj+si%C4%99"
        Dim tempCookies As New CookieContainer
        Dim encoding As New UTF8Encoding
        Dim byteData As Byte() = Encoding.GetBytes(postData)
 
        Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://skyren-chat.cba.pl/ucp.php?mode=login&sid=8c3ae674e2d427762eba103635d09522"), HttpWebRequest)
        postReq.Method = "POST"
        postReq.KeepAlive = True
        postReq.CookieContainer = tempCookies
        postReq.ContentType = "application/x-www-form-urlencoded"
        postReq.Referer = "http://skyren-chat.cba.pl/ucp.php?mode=login&sid=8c3ae674e2d427762eba103635d09522"
        postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:22.0) Gecko/20100101 Firefox/22.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
 
        If InStr(thepage, "Logowanie zostało wykonane poprawnie.") Then
            Form2.Show()
        Else
 
        End If
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        loginin()
    End Sub
End Class