Conferencia 2: Cómo utilizar el navegador web de VB para enviar una página web que contenga un nombre de usuario y contraseña
La última vez que supimos cómo abrir una página web, hoy veremos cómo dar el primer paso para ganar dinero.
Aquí empezamos a dar pasos:
1. Primero abra VB y cree un nuevo proyecto.
2. Haga clic derecho en la barra de herramientas y seleccione Componentes (estoy usando la versión china de VB) o seleccione el menú Proyecto y haga clic en Componentes
3. Busque Microsoft Internet Controls, selecciónelo al frente y luego confírmelo. Verá un ícono similar a una Tierra en la barra de herramientas. Nuestra implementación futura girará en torno a él.
4. Agregue un WebBrowser1 a Form1 y luego agregue un comando1 a Form1.
5. Agregue el siguiente código a Form1: (Todo lo anterior se mencionó en nuestra lección anterior, por lo que debe estar familiarizado con ellos)
'----------comenzar-----------
Subcomando privado1_Click()
Atenuar vDoc, vTag
Atenuar i como entero
Establecer vDoc = WebBrowser1.Document
Para i = 0 A vDoc.All.length - 1 'Detectar todas las etiquetas
Si UCase(vDoc.All(i).tagName) = "INPUT" Entonces 'Busca la etiqueta de entrada
Establecer vTag = vDoc.All(i)
Si vTag.Type = "texto" O vTag.Type = "contraseña" Entonces 'ver si es lo que necesitamos
Seleccione Case vTag.Name 'Según el nombre de la etiqueta, marque la operación
Caso "EMAILADD"
vTag.Value = "[email protected]" 'Escribe tu correo electrónico aquí
Caso "CONTRASEÑA"
vTag.Value = "contraseña" 'Escribe tu contraseña aquí
Finalizar selección
ElseIf vTag.Type = "enviar" Y vTag.Name = "SUB" Y vTag.Value = "Suscribir" Entonces
'Encuentra el botón de enviar
vTag.Select 'También puedes prescindir de esto
vTag.Haga clic en 'Haga clic para enviar, todo está bien
Terminar si
Terminar si
siguiente yo
Subtítulo final
Subformulario privado_Load()
WebBrowser1.Navegue "http://dhunter.51.net"
Subtítulo final
'----------Finalizar-----------
6. Por supuesto, es una prueba. Haga clic en el botón Ejecutar. Podemos ver que nuestro navegador web ha abierto http://dhunter.51.net. Espere hasta que se complete la descarga básica de la página web y luego haga clic en el botón comando1. Nuestro encantador navegador web ingresará lo que acabamos de ingresar. Su correo electrónico y contraseña se enviaron a la página web. ¿Has visto que la suscripción se realizó correctamente? Ésa es la señal de la victoria.
Bien, escribamos esto por ahora. La próxima vez veremos cómo usar el navegador web para encontrar el hipervínculo en una página web, que corresponde al enlace para ganar dinero.
Apéndice (información relacionada):
Como puede ver, esta vez estamos utilizando la lista de correo de suscripción en http://dhunter.51.net. Aquí está el código fuente de esta página web:
<formulario método="publicar" acción="http://ml.xilu.com/cgi-bin/ml/client">
<p align="centro"><font size="2">
<tipo de entrada="oculto" nombre="USERID" valor="dhunter">
Correo electrónico:
<tipo de entrada="texto" nombre="EMAILADD" valor="tu correo electrónico">
<br>
contraseña:
<tipo de entrada="contraseña" nombre="PASSWD" valor="******">
<br>
</font><font size="2">
<tipo de entrada="enviar" valor="Suscribirse" nombre="SUB">
<tipo de entrada="enviar" valor="Cancelar suscripción" nombre="UNSUB">
</font></p>
</formulario>
Todas las etiquetas con entrada dentro aceptan entradas. Nuestra tarea principal aquí es encontrarlas y operar con ellas.