[Помогите!] Со входом по сиду в ДО.

[OrBiT_DaRk]

Спасибо большое с парсером все понял.

Возникла еще одна ошибка

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WC As New WebClient
        Dim Strings, Result, stringe As String
        Strings = WC.DownloadString(TextBox4.Text)
        Stringe = WC.DownloadString(TextBox5.Text)
        WC.Dispose()
        Result = Pars(stringe, "<title>", "</title>", 0)
        If Result = " " Then
            MsgBox("Неверный логин или пароль")
        Else
            TextBox3.Text = (Result)
        End If
        'http://ru6.darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=e***8e7***a81042**15ef35****371e
    End Sub


    Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String

        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)

        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If

        Return strResult
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox4.Text = ("http://" & TextBox2.Text) & (".darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=") & TextBox1.Text
        TextBox5.Text = ("http://" & TextBox2.Text) & (".darkorbit.bigpoint.com/indexInternal.es?action=internalStart")

Как поняли я хочу спарсить что то из Дарк Орбита. Через вход по СИДу. Если заходить через браузер по ссылке вида [Ссылки могут видеть только зарегистрированные пользователи. ] то ссылка изменится на [Ссылки могут видеть только зарегистрированные пользователи. ], парсить нужно не [Ссылки могут видеть только зарегистрированные пользователи. ] , а [Ссылки могут видеть только зарегистрированные пользователи. ]. Но сначала клиент должен войти по первой ссылке а парсить уже по второй

[•theSaboteur•]

Ну так сделай 2 запроса, в чем проблемма?

[OrBiT_DaRk]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WC As New WebClient
        Dim Strings, Result, stringe As String
        Strings = WC.DownloadString(TextBox4.Text)
        Stringe = WC.DownloadString(TextBox5.Text)
        WC.Dispose()
        Result = Pars(stringe, "<title>", "</title>", 0)
        If Result = " " Then
            MsgBox("Неверный логин или пароль")
        Else
            TextBox3.Text = (Result)
        End If
        'http://ru6.darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=e***8e7***a81042**15ef35****371e
    End Sub

Strings = WC.DownloadString(TextBox4.Text) заместь него что то вписать? или как?

TextBox4.Text это форма с url.

[•theSaboteur•]

Просто создаешь еще одну переменную String, создаешь еще один запрос, в новую переменную записываешь ответ)
Привел бы пример кода, но на бейсике не писал никогда, синтаксис понятен, да только ошибок будет море)