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

[Invader]

в общем то писал я так

Код: Выделить всё

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]

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

[Invader]

со всем уважением к Вашему авторитету, не ужели думаете что не искал, и находил отправка через 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]

не ужели думаете что не искал, и находил отправка через 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]

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

[FireFenix]

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

Уроки философии на vbstreets