Aula 3: Como usar o navegador VB para encontrar hiperlinks em uma página web
Já falamos sobre como abrir uma página da web e como enviá-la. Hoje veremos como encontrar o URL e outros elementos em uma página da web.
1. Primeiro abra o VB e crie um novo projeto.
2. Clique com o botão direito na barra de ferramentas e selecione Componentes (estou usando a versão chinesa do VB) ou selecione o menu Projeto e clique em Componentes
3. Encontre Microsoft Internet Controls, selecione-o na frente e confirme. Você verá um ícone adicional semelhante a uma terra na barra de ferramentas. Nossa implementação girará em torno dele.
4. Adicione um WebBrowser1 ao Form1, depois adicione um comando1 ao Form1 e adicione uma lista1 ao formulário1 (esta lista1 deve ser um pouco relaxada, e colocaremos todas as URLs qualificadas encontradas aqui)
5. Adicione o seguinte código ao Form1: (Os itens acima são todos o que dissemos antes, portanto, você deve estar familiarizado com eles)
'----------começar-----------
Subcomando Privado1_Click()
Dim vTag, vDoc
Dim Allcount, eu
Lista1.Limpar
Definir vDoc = WebBrowser1.Document.All
Contagem total = vDoc.comprimento
Para i = 0 Para Allcount - 1
Se UCase(vDoc.Item(i).TagName) = "A" Então 'Encontrar URL
vTag = vDoc.Item(i).href
If InStr(vTag, "http://dhunter.51.net") Then 'Detecta se o URL contém http://dhunter.51.net
List1.AddItem vDoc.Item(i).href 'Se houver, adicione-o à list1
Terminar se
Terminar se
Em seguida eu
Finalizar sub
Subformulário privado_Load()
WebBrowser1.Navegue "http://dhunter.51.net"
Finalizar sub
'----------Terminar-----------
6. Claro, é um teste. Clique no botão Executar. Podemos ver que nosso navegador abriu http://dhunter.51.net. Após a conclusão do download básico da página da web, clique no botão command1. nosso adorável navegador encontrará o conteúdo contendo Os URLs de http://dhunter.51.net foram adicionados à lista1.
Com isso podemos começar a fazer nosso próprio simulador. É claro que mais habilidades e mais métodos devem ser implementados por você.