自动输入账号密码 vbs

介绍

Dim username,password,IE,dom,form,Shell

username = "账号"

password = "密码"

Set IE =CreateObject("InternetExplorer.Application")

IE.Navigate "登录地址"

IE.Top = 0

IE.Left = 0

IE.FullScreen = True

W = IE.Width

H = IE.Height

IE.FullScreen = False

IE.Width = W

IE.Height = H

IE.Visible = True

Do while IE.ReadyState<> 4 or IE.busy

wscript.sleep 2000

loop

ie.Document.getElementById("username").value = username 

ie.Document.getElementById("password").value = password

IE.document.getElementById("login-sub").click