Aula 2: Como usar o navegador do VB para enviar uma página web contendo nome de usuário e senha
Da última vez que sabíamos como abrir uma página web, hoje vamos dar uma olhada em como dar o primeiro passo para ganhar dinheiro.
Aqui começamos a tomar medidas:
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 o 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 futura girará em torno dele.
4. Adicione um WebBrowser1 ao Form1 e, em seguida, adicione um comando1 ao Form1.
5. Adicione o seguinte código ao Form1: (Todos os itens acima foram mencionados em nossa palestra anterior, você deve estar familiarizado com eles)
'----------começar-----------
Subcomando Privado1_Click()
Dim vDoc, vTag
Dim i como inteiro
Definir vDoc = WebBrowser1.Document
For i = 0 Para vDoc.All.length - 1 'Detectar todas as tags
Se UCase(vDoc.All(i).tagName) = "INPUT" Then 'Encontre a tag de entrada
Definir vTag = vDoc.All(i)
If vTag.Type = "text" Ou vTag.Type = "password" Then 'Veja se é o que precisamos
Select Case vTag.Name 'De acordo com o nome da tag, marque a operação
Caso "EMAILADD"
vTag.Value = "[email protected]" 'Escreva seu e-mail aqui
Caso "SENHA"
vTag.Value = "senha" 'Escreva sua senha aqui
Finalizar seleção
ElseIf vTag.Type = "submit" And vTag.Name = "SUB" And vTag.Value = "Subscribe" Then
'Encontre o botão enviar
vTag.Select 'Você também pode ficar sem isso
vTag.Click 'Clique para enviar, está tudo OK
Terminar se
Terminar se
Em seguida eu
Finalizar sub
Subformulário privado_Load()
WebBrowser1.Navegue "http://dhunter.51.net"
Finalizar sub
'----------Terminar-----------
6. Claro que é um teste. Clique no botão executar. Podemos ver que nosso navegador abriu http://dhunter.51.net. Aguarde até que o download básico da página da web seja concluído e clique no botão command1. Nosso adorável navegador irá inserir o que acabamos de inserir. Seu e-mail e senha foram enviados para a página. Você viu que a assinatura foi bem-sucedida? Esse é o sinal da vitória.
Ok, vamos escrever isso por enquanto. Da próxima vez, daremos uma olhada em como usar o navegador da web para encontrar o hiperlink em uma página da web, que corresponde ao link para ganhar dinheiro.
Apêndice (informações relacionadas):
Como você pode ver, desta vez estamos usando a lista de discussão de assinatura em http://dhunter.51.net. Aqui está o código fonte desta página:
<form method="post" action="http://ml.xilu.com/cgi-bin/ml/client">
<palign="center"><font size="2">
<input type="hidden" name="USERID" value="dhunter">
E-mail:
<input type="text" name="EMAILADD" value="seu e-mail">
<br>
senha:
<input type="senha" nome="PASSWD" valor="******">
<br>
</font><font size="2">
<input type="submit" value="Subscribe" name="SUB">
<input type="submit" value="Cancelar inscrição" name="UNSUB">
</font></p>
</form>
Todas as tags com entrada aceitam entrada. Nossa principal tarefa aqui é encontrá-las e operar nelas.