Со входом по сиду в ДО.

[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
'[Ссылки могут видеть только зарегистрированные и активированные пользователи]***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 = ("[Ссылки могут видеть только зарегистрированные и активированные пользователи]" & TextBox2.Text) & (".darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=") & TextBox1.Text
TextBox5.Text = ("[Ссылки могут видеть только зарегистрированные и активированные пользователи]" & TextBox2.Text) & (".darkorbit.bigpoint.com/indexInternal.es?action=internalStart")


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

[•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
'[Ссылки могут видеть только зарегистрированные и активированные пользователи]***8e7***a81042**15ef35****371e
End Sub

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

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

[•theSaboteur•]

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