Inicio de sesión automático en la página web de VB

Sub botón privado1_Click(ByVal remitente As System.Object, ByVal e As System.EventArgs) Proceso Button1.Click

WebBrowser1.Navigate("La URL que desea registrar in to")

End Sub

'Código del navegador web

'Módulo de inicio de sesión automático de la página web

Private Sub WebBrowser1_ DocumentCompleted(ByVal remitente As System.Object, ByVal y As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Maneja WebBrowser1.DocumentCompleted

Dim vDoc, vTag 'Declarar variables para las siguientes referencias

Dim i As Integer ' Declare la variable i

vDoc = WebBrowser1. Asigne el elemento Documento del control WebBrowser1 a vDoc. A partir de entonces, vDoc es equivalente al elemento Webbrowser1.Document

Para i = 0 A. vDoc.All .length - 1 'Para que una declaración repita todos los elementos del control WebBrowser1, WebBrowser1.All.length - 1 'WebBrowser1.Document.Length.Length.Length.Length.Length.Length.Length.Length.Length .Length.Length.Length .Length.Length.Length.Length.WebBrowser1.Document.All se refiere a todos los elementos, más la longitud es el número de serie de todos los elementos, pero el número de estos elementos se calcula a partir de 0, por lo que el número de serie El número siempre es mayor que el número a representar. Número de elementos. all (i) se refiere al elemento actual, tagName se refiere a la etiqueta, tag se refiere a la etiqueta en el código HTML, como lt; input name="username"gt;, input es la etiqueta, name se refiere al nombre de la etiqueta, en cuanto a la función UCase, el resultado es Los corchetes se vuelven mayúsculas

vTag = vDoc.All(i) 'El efecto aquí es el mismo①

Si vTag.Type = "texto" O vTag.Type ="contraseña" Entonces 'tipo es el tipo, aquí es el tipo del elemento de etiqueta, como lt; input type="text" name="username"gt;, donde el tipo de la etiqueta es texto, es decir, el cuadro de texto

Select Case vTag.Name 'seleccionar declaración condicional determina el nombre de la etiqueta

Case "DDDDD" 'Si el nombre de la etiqueta es "DDDDD", el nombre de la etiqueta de cada sitio es diferente, debes verificarlo cuidadosamente en el código fuente de la página.

vTag.Value = "123456789" '¿A qué es igual el valor de la etiqueta? Es tu cuenta

Caso "upass" 'Si el nombre de la etiqueta es "upass"

vTag.Value = "5272" 'Igual a la contraseña, estos dos casos dependen de diferentes situaciones Para determinar, si el nombre de su etiqueta es una cuenta, asigne el número de cuenta al valor de la etiqueta, y si el nombre de la etiqueta es una contraseña, asigne la contraseña al nombre de la etiqueta.

Finalizar selección

ElseIf vTag.Type = "enviar" Entonces 'O si el tipo es enviar (botón enviar)

vTag.Click() 'Simular Clic del ratón

Fin Si

Fin Si

Fin Si

Siguiente i

Fin Sub 'Web automático iniciar sesión Fin del módulo