vbs 自動(dòng)登錄論壇的實(shí)現(xiàn)代碼

    代碼如下:
    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()