WebBrowser1.Navigate "сайт_на_котором_заполняем_полЯ"
Do While WebBrowser1.Busy '
DoEvents
Loop
On Error Resume Next
WebBrowser1.Document.All("login").Value = j
WebBrowser1.Document.All("password").Value = q
WebBrowser1.Document.All("submit").Click
Private Sub Command1_Click()
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "Сайт который заполняем"
While objIE.Busy
Wend
objIE.ToolBar = False
objIE.StatusBar = False
objIE.Resizable = False
objIE.Visible = 1
objIE.Document.All("submit").Click
End Sub
Space писал(а):да нет. IE запускается сам по себе (как стороннее приложение), и в нём я уже ищу поля.
Если нельзя получить ID поля Edit
.<input id="submit"
Хорошо, я получил хендл окна <INPUT TYPE="TEXT"> или <INPUT TYPE="PASSWORD">.
Space писал(а):если ID указан в тегах, то он должен быть где-то и в свойствах окна. Ведь именно по нему идёт обращение к окну. Хендл - через AttachThreadInput и GetFocus.
WebBrowser1.Document.All("login").Value = j
Действительно, хендл не меняется.C чего ты взял, что хендл, который ты получаешь, это хендл EDIT'а, а не контейнера?
В том то и вопрос, как найти этот нужный элемент. Как его идентифицировать?Даем допустим фокус мазиле и табом перебираем до нужного элемента и вставляем.
Space писал(а):а это что такое, Хакер?
Тогда что остаётся делать?
<input name="login" type="text" />
WebBrowser1.Document.All("login").Value = j
Сейчас этот форум просматривают: Google-бот, Mail.ru [бот] и гости: 9