регистрация на майл с последующим поиском

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

Invader
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 18.01.2005 (Вт) 4:22
Откуда: Молдавия, Виноград

регистрация на майл с последующим поиском

Сообщение Invader » 18.02.2013 (Пн) 4:58

в общем то писал я так
Код: Выделить всё
System.Net
Imports System.Text
Imports System.IO
Imports System.Text.RegularExpressions
Imports HtmlAgilityPack
Imports System.Runtime.InteropServices

Public Class Form1
    Dim myHttpWebRequest As HttpWebRequest = HttpWebRequest.Create("http://swa.mail.ru/cgi-bin/auth?page=&Login=мой_емейл&Password=мой_пароль")
    Dim myHttpWebResponse As HttpWebResponse = myHttpWebRequest.GetResponse()
    Dim myHttpWebRequest1 As HttpWebRequest = HttpWebRequest.Create("http://my.mail.ru/my/search_people?q=%EC%EE%EB%E4%EE%E2%E0&st=search&head=1&search=%CD%E0%E9%F2%E8#page=/my/search_people?e=,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,927,,,1")'ну тут поиск людей в моём городе
    Dim myHttpWebResponse1 As HttpWebResponse = myHttpWebRequest1.GetResponse()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myStreamReader As New StreamReader(myHttpWebResponse1.GetResponseStream, Encoding.GetEncoding(1251))
        TextBox1.Text = myStreamReader.ReadToEnd()
       

           
    End Sub
End Class


чего я хотел добиться, залогиниться в почте и пройти по ссылке поиска, но первый запрос как в воду, что с ним что без него - по второй ссылке не перехожу то есть попадаю на страницу с окном подтверждения раз и навсегда по телефону, либо код с картинки и не в какой поиск по городу я не попадаю
умён и жаден,
характер отсуствует

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 18.02.2013 (Пн) 12:30

А если всё-таки поискать темы, где сто раз написано, как это делать правильно?

Invader
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 18.01.2005 (Вт) 4:22
Откуда: Молдавия, Виноград

Re: регистрация на майл с последующим поиском

Сообщение Invader » 18.02.2013 (Пн) 16:25

со всем уважением к Вашему авторитету, не ужели думаете что не искал, и находил отправка через SMPT или что то в этом духе, работа с письмами, а меня интересует поиск внутри моего мира (пытаюсь найти себя) так, вот ничего я по крайней в данном форуме не нашел, собстно я за советом и написал может кто слышал,
и желательно не где то - как то не определенно, я пробовал и по другому
Код: Выделить всё
Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO
Imports System.Text

Public Class Form1
    Public Function poiskcapture(ByVal silk As String) As String
        Dim Request1 As HttpWebRequest = HttpWebRequest.Create("http://swa.mail.ru/cgi-bin/auth?page=&Login=мой_ясчик@mai.ru&Password=123456")
        Request1.UserAgent = "Mozilla/5.0 (Windows NT 5.1) AppleWebKit/535.11 (KHTML, like Gecko) Chrome/17.0.963.83 Safari/535.11"

        Dim Response1 As HttpWebResponse = Request1.GetResponse()

        Dim Request As HttpWebRequest = HttpWebRequest.Create("http://my.mail.ru/my/search_people?q=%EC%EE%EB%E4%EE%E2%E0&st=search&head=1&search=%CD%E0%E9%F2%E8#page=/my/search_people?e=,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,927,,," & silk)
        Request.UserAgent = "Mozilla/5.0 (Windows NT 5.1) AppleWebKit/535.11 (KHTML, like Gecko) Chrome/17.0.963.83 Safari/535.11"

        Dim Response As HttpWebResponse = Request.GetResponse()


        Dim Result As String
        Using Reader As StreamReader = New StreamReader(Response.GetResponseStream(), Encoding.GetEncoding(1251))
            Result = Reader.ReadToEnd()

        End Using
        Response1.Close()
        Response.Close()
poiskcapture = Result
      Return MsgBox("finish")

    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = poiskcapture(TextBox1.Text)
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

но пусто Всё
умён и жаден,
характер отсуствует

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 18.02.2013 (Пн) 17:24

Invader писал(а):не ужели думаете что не искал, и находил отправка через SMPT или что то в этом духе, работа с письмами

Я про SMTP ничего не говрил.
И я сам на этом форуме кучу раз писал, как это делать. Как на VB.NET, так и на VB6. И даже на твои вопросы.
viewtopic.php?f=1&t=44329
viewtopic.php?f=2&t=43360
viewtopic.php?f=1&t=44319
viewtopic.php?f=2&t=44140
viewtopic.php?f=2&t=44098

Invader
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 18.01.2005 (Вт) 4:22
Откуда: Молдавия, Виноград

Re: регистрация на майл с последующим поиском

Сообщение Invader » 18.02.2013 (Пн) 18:15

Благодарю за ссылки но во первых по 5посту я и пробовал в начале без результатно
а во вторых возможно вы и не поня ли, я вхожу в мейл но после 2запроса я теряю авторизациювозможно вторая ссылка мне поможет,как всегда большое спасибо
умён и жаден,
характер отсуствует

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: регистрация на майл с последующим поиском

Сообщение FireFenix » 19.02.2013 (Вт) 1:37

Invader писал(а):а меня интересует поиск внутри моего мира (пытаюсь найти себя)

Уроки философии на vbstreets :D :D :D
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 15

    TopList  
cron