复制代码 代码如下:

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()

原文： http://www.enun.net/?p=1093