论坛自动灌水脚本(vbs)

 1 on error resume Next  ‘遇到错误继续执行    
 2 dim url, val
 3 url = InputBox("输入需要灌水的网址:")
 4 val = InputBox("输入需要灌水的内容:")
 5 set ie = wscript.createObject("internetExplorer.application")
 6 ie.navigate(url)
 7 ie.visible = true
 8 
 9 do while ie.busy or ie.readystate <> 4
10     wscript.sleep 50
11 loop
12 
13 do
14   ie.document.getElementById("fastpostmessage").innerHTML = val
15   ie.document.getELementById("fastpostsubmit").click()
16   wscript.sleep 3000
17 loop