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