代码如下:

on error resume next

url = http://www.bathome.net/logging.php?action=login

username = ***

password = ***

set ie = createobject(internetexplorer.application)

ie.visible = true

ie.navigate url,4 ' http://www.baidu.com

do until 4=ie.readystate

wscript.sleep 200

waittime = waittime + 200

if waittime > 15000 then exit do

loop

'wscript.echo waittime

if 4<>ie.readystate then

ie.quit

wscript.quit

end if

set dom = ie.document

set form = dom.getelementbyid(loginform)

form.all(username).value = username

form.all(password).value = password

form.all(cookietime).checked = true

form.all(loginsubmit).click()