Лекция 2: Как использовать веб-браузер VB для отправки веб-страницы, содержащей имя пользователя и пароль.
В прошлый раз мы знали, как открыть веб-страницу, сегодня мы рассмотрим, как сделать первый шаг к зарабатыванию денег.
Здесь мы начинаем предпринимать шаги:
1. Сначала откройте VB и создайте новый проект.
2. Щелкните правой кнопкой мыши на панели инструментов и выберите «Компоненты» (я использую китайскую версию VB) или выберите меню «Проект» и нажмите «Компоненты».
3. Найдите Microsoft Internet Controls, выберите его спереди и подтвердите. На панели инструментов вы увидите дополнительный значок в виде земли. Вся наша будущая реализация будет вращаться вокруг него.
4. Добавьте WebBrowser1 в Form1, а затем добавьте команду Command1 в Form1.
5. Добавьте в форму 1 следующий код: (Все вышеперечисленное упоминалось в нашей предыдущей лекции, поэтому вы должны быть с ними знакомы)
'----------начинать-----------
Частная подкоманда 1_Click()
Тусклый vDoc, vTag
Тусклый я как целое число
Установите vDoc = WebBrowser1.Document.
For i = 0 To vDoc.All.length - 1 'Обнаружить все теги
If UCase(vDoc.All(i).tagName) = "INPUT" Тогда 'Найти входной тег
Установите vTag = vDoc.All(i)
Если vTag.Type = "текст" Или vTag.Type = "пароль" Тогда 'Посмотрим, то ли это, что нам нужно
Select Case vTag.Name 'В соответствии с именем тега установите галочку операции
Кейс "EMAILADD"
vTag.Value = "[email protected]" 'Напишите здесь свой адрес электронной почты
Дело "ПАРОЛЬ"
vTag.Value = "пароль" 'Запишите здесь свой пароль
Конец выбора
ИначеЕсли vTag.Type="submit" И vTag.Name="SUB" И vTag.Value="Subscribe" Тогда
'Находим кнопку отправки
vTag.Select 'Без этого тоже можно обойтись
vTag.Click 'Нажмите, чтобы отправить, все в порядке
Конец, если
Конец, если
Дальше я
Конец субтитра
Частная подформа_Load()
WebBrowser1. Перейдите по адресу «http://dhunter.51.net».
Конец субтитра
'----------Заканчивать-----------
6. Конечно, это проверка. Нажмите кнопку «Выполнить». Мы видим, что наш веб-браузер открыл http://dhunter.51.net. Подождите, пока завершится базовая загрузка веб-страницы, а затем нажмите кнопку «Command1». Наш прекрасный веб-браузер введет то, что мы только что ввели. Ваш адрес электронной почты и пароль были отправлены на веб-страницу. Вы заметили, что подписка прошла успешно? Это признак победы.
Хорошо, давайте пока напишем вот это. В следующий раз мы посмотрим, как использовать веб-браузер для поиска гиперссылки на веб-странице, соответствующей ссылке, приносящей доход.
Приложение (сопутствующая информация):
Как видите, на этот раз мы используем список рассылки по подписке на http://dhunter.51.net. Вот исходный код этой веб-страницы:
<form метод="post" action="http://ml.xilu.com/cgi-bin/ml/client">
<p align="center"><font size="2">
<input type="hidden" name="USERID" value="dhunter">
Электронная почта:
<input type="text" name="EMAILADD" value="ваш адрес электронной почты">
<br>
пароль:
<input type="password" name="PASSWD" value="******">
<br>
</font><font size="2">
<input type="submit" value="подписаться" name="SUB">
<input type="submit" value="Отменить подписку" name="UNSUB">
</font></p>
</форма>
Теги с вводом внутри все принимают ввод. Наша главная задача здесь — найти их и работать с ними.