возврат

[Skarobey]

url = "http://www.ganjawars.ru/object.php?id=" + urlt.Text
Const READYSTATE_UNINITIALIZED As Long = 0&
Const READYSTATE_LOADING As Long = 1&
Const READYSTATE_LOADED As Long = 2&
Const READYSTATE_INTERACTIVE As Long = 3&
Const READYSTATE_COMPLETE As Long = 4&
Set inet = CreateObject("InternetExplorer.Application")
inet.Navigate url
Do Until inet.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
txtText.Text = inet.Document.body.innerHTML
inet.Quit
Set inet = Nothing

...
P = InStr(P + 3, txtText, "70%") If P <> 0 Then n = InStr(P, txtText, "B></TD>") Else Exit Sub
If n = 0 Then Exit Sub mOCX = Mid(txtText, P + 2, n - P - 2)
Text1.Text = mOCX

...

при выполнении второй раз не закрывая формы начинает искать с того места на котором остановился!
как вернуть курсор?

[gaidar]

Просто - запоминай последнее значение p в приватной переменной формы.

[Skarobey]

Просто - запоминай последнее значение p в приватной переменной формы.

ээээ.... на этом месте по подробнее пожалст

З.Ы.
я не ошибся?! это раздел для новичков?

[Skarobey]

Просто - запоминай последнее значение p в приватной переменной формы.

просто P = 1 в начало влипил=)

[GM]

Просто - запоминай последнее значение p в приватной переменной формы.

Перевод

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

Private P as integer