[SIZE=2][COLOR=#ffffff]Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim postData As String = "username=" & Username.Text & "&password=" & Password.Text & "&passwordconfirm=" & Password.Text & "&email=" & Email.Text & " &emailconfirm=" & Email.Text & "&humanverify%5Bhash%5D=d3ec0acfd0f7b26b5caad92969b57648&recaptcha_challenge_field=03AHJ_Vuu-kNAF99N6sIIZAD4Cca_m4oy6hpYhhrYtN-vIqxEY6erAWS-Q1ZXFCdVTHiyLpK2OeZfO5z-K87akBiMoNwQVNopLW5Oj5b8_KXHqU9PJD8jBruUtKN6X0xAkFby6ckAqIqboElCZRpwzwDDHgRVRMKBDsw&recaptcha_response_field=" & CaptchaRepo.Text & "&userfield%5Bfield5%5D=2&userfield%5Bfield5_set%5D=1&referrername=&timezoneoffset=0&dst=2&options%5Badminemail%5D=1&agree=1&s=&securitytoken=guest&do=addmember&url=http%3A%2F%2Fwww.nidokidos.org%2Fforum.php&password_md5=897e8539d236da3b595a4c8c321407d9&passwordconfirm_md5=897e8539d236da3b595a4c8c321407d9&day=&month=&year="
Dim tempCookies As New CookieContainer
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create(URL.text[/COLOR][COLOR=#ffffff]), HttpWebRequest)
postReq.Method = "POST"
postReq.KeepAlive = True
postReq.CookieContainer = tempCookies
postReq.ContentType = "application/x-www-form-urlencoded"
postReq.Referer = URLOFPOST.Text
postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
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
HTML.Text = thepage
End Sub[/COLOR][/SIZE]
[SIZE=2]