VBS论坛自动灌水机代码

 请根据你的浏览器,选择相应的程序
IE浏览器：
set wind9=createobject("scripting.filesystemobject")
if wind9.fileexists("wind.txt")=false then
wscript.quit
end if
set wind=createobject("wscript.shell")
wind.run "wind.txt"
wscript.sleep 300
wind.sendkeys "^a"
wind.sendkeys "^c"
wind.sendkeys "%{f4}"
wscript.echo "请激活IE窗口"
wscript.sleep 3000
while wind9.fileexists("wind.txt")=true
wind.sendkeys "%d"
wscript.sleep 500
wind.sendkeys [url=http://www.cmdos.net/][color=#2f5fa1]www.cmdos.net[/color][/url]
wscript.sleep 300
wind.sendkeys "~"
wscript.sleep 10000
for i=1 to 9
wind.sendkeys "{tab}"
wscript.sleep 100
next
wscript.sleep 100
wind.sendkeys "^v"
wscript.sleep 100
wind.sendkeys "^~"
wscript.sleep 7000
wend

火狐浏览器浏览器：
set wind9=createobject("scripting.filesystemobject")
if wind9.fileexists("wind.txt")=false then
wscript.quit
end if
set wind=createobject("wscript.shell")
wind.run "wind.txt"
wscript.sleep 300
wind.sendkeys "^a"
wind.sendkeys "^c"
wind.sendkeys "%{f4}"
wscript.echo "激活火狐浏览器窗口"
wscript.sleep 3000
while wind9.fileexists("wind.txt")=true
wind.sendkeys "%d"
wscript.sleep 300
wind.sendkeys [url=http://www.cmdos.net/][color=#2f5fa1]www.cmdos.net/[/color][/url]
wscript.sleep 300
wind.sendkeys "~"
wscript.sleep 10000
wind.sendkeys "{tab 2}"
wind.sendkeys "^v"
wscript.sleep 100
wind.sendkeys "^~"
wscript.sleep 7000
wend
使用方法:
1 在目录中新建一个文本,写上你要灌水的内容,并保存
2 打开浏览器
3 运行vbs程序 会弹出一个对话框 提示你激活窗口
确定后 在3秒内激活浏览器窗口(建议单击窗口标题栏)
4 然后等着拿vb币吧.....
5 如果要终止,只要删除wind.txt或者将其重命名就行了
将浏览器窗口调整的小的点,(但一定要保持其激活状态,)可以一边看电影,一边自动灌水,哈哈哈哈
具体做法:
新建文本
打开浏览器 调整其窗口大小
打开PPS(或其他电视播放器) 调整其位置 并开始播放
运行vbs程序
等对话框出来后,将文件关闭或最小化
点确定
激活浏览器
好了,一边电影,一边灌水...如何??