| 内容 |
代码如下:
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()
|