VBNet - Форум - Http Web Request Vkontakte... ((

Вопрос: Http Web Request Vkontakte... (( Добавлено: 07.11.10 01:05

Автор вопроса: Саня | ICQ: skype psycho1219

  Dim loginCookie As CookieContainer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim postdata As String = "email=Vol4ara1234%40meta.ua&pass=Azbuka20&expire=&vk=&al_test=1"
        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://login.vk.com/?act=login"), HttpWebRequest)
        postReq.Method = "POST"
        postReq.KeepAlive = True
        postReq.CookieContainer = tempCookies
        postReq.ContentType = "application/x-www-form-urlencoded"""
        postReq.UserAgent = "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12"
        postReq.Referer = "Referer: http://vkontakte.ru/"
        postReq.ContentLength = bytedata.Length

        Dim postreqststream As Stream = postReq.GetRequestStream()
        postreqststream.Write(bytedata, 0, bytedata.Length)
        postreqststream.Close()
        Dim postresponse As HttpWebResponse

        postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
        loginCookie = tempCookies
        Dim postreqreader As New StreamReader(postresponse.GetResponseStream)

        Dim thepage As String = postreqreader.ReadToEnd

        TextBox3.Text = thepage

В ответ получаю кучку непонятных кракозбликов... (( что я не правильно делаю или что то забыл?
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: Саня ICQ: skype psycho1219 Вопросов: 6 Ответов: 18	Профиль \| Цитата \| #1	Добавлено: 07.11.10 01:08
	<"Censored">,<"Censored">,<"Censored">,<"Censored"><"Censored">,<"Censored"> *ЕЛ, *ТЬ! Извените ошыбку заметил только когда запостил xD, ну может кому надо будет код пусть найдет исправит и юзает ^^ XD Ответить

Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| Цитата \| #2	Добавлено: 07.11.10 02:24
	Спасибо за пароль. Ответить

Номер ответа: 3 Автор ответа: Саня ICQ: skype psycho1219 Вопросов: 6 Ответов: 18	Профиль \| Цитата \| #3	Добавлено: 07.11.10 15:13
	Незачто "липа" ^^ Ответить

Номер ответа: 4 Автор ответа: Саня ICQ: skype psycho1219 Вопросов: 6 Ответов: 18	Профиль \| Цитата \| #4	Добавлено: 07.11.10 15:14
	уже... xD Ответить

Номер ответа: 5 Автор ответа: Александр ICQ: 438447600 Вопросов: 3 Ответов: 8	Профиль \| Цитата \| #5	Добавлено: 13.11.10 15:21
	кто не нашел ошибки, заявляю контакт использует кодировку windows-1251, если я не ошибаюсь Ответить

Страница: 1 |