Лекция 3. Как использовать веб-браузер VB для поиска гиперссылок на веб-странице.
Мы уже говорили о том, как открыть веб-страницу и как отправить веб-страницу. Сегодня мы рассмотрим, как найти URL-адрес и другие элементы на веб-странице.
1. Сначала откройте VB и создайте новый проект.
2. Щелкните правой кнопкой мыши на панели инструментов и выберите «Компоненты» (я использую китайскую версию VB) или выберите меню «Проект» и нажмите «Компоненты».
3. Найдите Microsoft Internet Controls, выберите его спереди и подтвердите. На панели инструментов вы увидите дополнительный значок в виде земли. Вся наша реализация будет вращаться вокруг него.
4. Добавьте WebBrowser1 в форму1, затем добавьте команду1 в форму1 и добавьте список1 в форму1 (этот список1 следует немного ослабить, и мы поместим сюда все найденные подходящие URL-адреса)
5. Добавьте в форму 1 следующий код: (Все вышеперечисленное — это все, что мы говорили ранее, поэтому они должны быть вам знакомы)
'----------начинать-----------
Частная подкоманда 1_Click()
Тусклый vTag, vDoc
Дим Allcount, я
Список1.Очистить
Установите vDoc = WebBrowser1.Document.All
Allcount = vDoc.длина
Для i = 0 To Allcount - 1
Если UCase(vDoc.Item(i).TagName) = «A», то «Найти URL-адрес»
vTag = vDoc.Item(i).href
If InStr(vTag, "http://dhunter.51.net") Тогда 'Определить, содержит ли URL-адрес http://dhunter.51.net
List1.AddItem vDoc.Item(i).href 'Если есть, добавьте его в список1
Конец, если
Конец, если
Дальше я
Конец субтитра
Частная подформа_Load()
WebBrowser1. Перейдите по адресу «http://dhunter.51.net».
Конец субтитра
'----------Заканчивать-----------
6. Конечно, это тест. Нажмите кнопку «Выполнить». Мы видим, что наш веб-браузер открыл http://dhunter.51.net. После завершения базовой загрузки веб-страницы нажмите кнопку «Command1» и. наш прекрасный веб-браузер найдет контент, содержащий URL-адреса http://dhunter.51.net были добавлены в список1.
С их помощью мы можем начать создавать свой собственный симулятор. Конечно, вам придется реализовать больше навыков и методов.