vbs登陆网站

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