VB заполняет поле ввода в IE и отправляет его.
Предположим, что HTML-код страницы входа выглядит следующим образом:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<голова>
<title>тестовая страница</title>
</голова>
<тело>
<FORM name=chh метод = действие "POST" = "login.asp">
<таблица cellpacing="0" cellpadding="2">
<тр>
<td align="center">Пользователь:</td>
<td align="left">
<input name="Имя входа" type="text" id="Имя входа" size="12">
</td>
</tr>
<тр>
<td align="center">Пароль:</td>
<td align="left">
<input name="LoginPassword" type="password" id="LoginPassword" size="12">
</td>
</tr>
</таблица>
<тип ввода = «отправить» id = «clickme» значение = «отправить»>
</ФОРМ>
</тело>
</html>
Очень простая страница с формой входа, полем ввода имени пользователя LoginName, полем ввода пароля LoginPassword и кнопкой отправки clickme.
Затем откройте эту страницу в IE и обратите внимание, что для заголовка страницы установлено значение testPage.
Затем откройте VB и укажите в проекте элементы управления Интернетом Microsoft:
Частная подкоманда 1_Click()
Тусклый IEList как новый ShellWindows
Тусклый браузер
Дим Док
При ошибке Возобновить Далее
'Обход текущего окна браузера
Для каждого браузера в IEList
'Находим нужное окно IE
Если браузер.Документ.Название = «тестовая страница» Тогда
'Получаем объект документа браузера
Установить Док = браузер.Документ
'Заполняем поле имени пользователя
Doc.body.All("Имя входа").Value = "eddie"
'Заполняем поле пароля
Doc.body.All("Пароль входа").Значение = "123456"
'представлять на рассмотрение
Doc.body.All("clickme").Нажмите
Конец, если
Следующий
Конец субтитра