Red de conocimiento informático - Problemas con los teléfonos móviles - VB inicia sesión automáticamente en la página web sin utilizar el control del navegador web. El inicio de sesión es el navegador predeterminado del sistema....

VB inicia sesión automáticamente en la página web sin utilizar el control del navegador web. El inicio de sesión es el navegador predeterminado del sistema....

Hace algún tiempo, Dongdong, que estaba trabajando en Taobao, publicó un método para iniciar sesión en Taobao usando IE

Option Explicit

Sub GotoTaoBao(uid As String, pwd As String)

Con CreateObject(" InternetExplorer.Application")

.Visible = True

.Navigate "/auction/view_personal_sale_item.jhtml?view_type=viewsold"

Hacer Hasta .ReadyState = 4

DoEvents

Bucle

.Document.Forms(0).All("TPL_username").Value = uid

.Document.Forms(0).All("TPL_password").Valor = pwd

.Document.Forms(0).All("Enviar").Clic

Terminar con

End Sub

Subcomando privado1_ Click()

GotoTaoBao "youID", "youPwd"

Fin Sub

A diferencia de utilizar CreateObject, debe consultar Microsoft Internet Controls (shdocvw.dll)

y luego declarar el objeto InternetExplorer.