VBS 自动登录论坛

标签: , , ,

VBS 自动登录论坛。

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

赞赏

微信赞赏支付宝赞赏

随机文章:

  1. 用Data URI Scheme嵌入内联图像
  2. 此版本之魔兽争霸III需要特定语言版本之Windows
  3. VB6拾遗:更高效的数组
  4. C语言中NULL和NUL的区别
  5. 用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)

留下回复