Option Explicit
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
WScript.sleep(100)
call asplogin(objIE, "用户名", "密码")
Wscript.Quit
'-----------------------------------------------
Sub asplogin(objIE, id, pass)
objIE.Navigate "http://www.a8.net/"
Do Until objIE.Busy = False
WScript.sleep(1000)
Loop
With objIE.Document.forms(1)
.eclogin.value = id
.ecpasswd.value = pass
.Submit
End With
Do Until objIE.Busy = False
WScript.sleep(1000)
Loop
End Sub
转载于:https://www.cnblogs.com/c-x-a/p/9039208.html
相关资源：QQ自动登陆(批处理)VBS脚本
