首页 > V.B.T > vbs-论坛自动灌水器

vbs-论坛自动灌水器

2008年5月26日 发表评论 阅读评论

注:此脚本早已在非常发布,不过经过测试已成熟。相信有了这东西,网上的坛子就疯了。。。

原创:非常批处理交流论坛(http://bbs.verybat.cn)
作者:清风07[V.B.T]
声明:转载请保留非常批处理论坛版权

先看下效果:

适合IE浏览器的VBS代码:

<br />&#039;注释由woyigui加入<br />set wind9=createobject("scripting.filesystemobject")<br />if wind9.fileexists("wind.txt")=false then           &#039;在本脚本目录下新建一个wind文本文件,修改内容为灌水内容<br />wscript.quit<br />  end if<br />set wind=createobject("wscript.shell")<br />wind.run "wind.txt"<br />wscript.sleep 300       &#039;延迟时间,根据自己的网速修改<br />wind.sendkeys "^a"<br />wind.sendkeys "^c"<br />wind.sendkeys "%{f4}"<br />wscript.echo "请激活IE窗口"<br />wscript.sleep 3000<br />while wind9.fileexists("wind.txt")=true<br />wind.sendkeys "%d"<br />wscript.sleep 500<br />wind.sendkeys "http://bbs.verybat.cn/viewthread.php"&"+/"&"tid=135"         <br />&#039;论坛主题地址,前面的为论坛地址,后面的数字为主题ID号<br />wscript.sleep 300<br />wind.sendkeys "~"<br />wscript.sleep 10000<br />for i=1 to 3                    &#039;这个根据自己想要的tab数目,比如从地址栏按TAB键几下才到回复框栏内。<br />wind.sendkeys "{tab}"<br />wscript.sleep 100<br />next<br />wscript.sleep 100<br />wind.sendkeys "^v"<br />wscript.sleep 100<br />wind.sendkeys "^~"<br />wscript.sleep 7000<br />wend<br />

适合火狐的VBS代码:

<br />//注释由woyigui[V.B.T]加入<br />set wind9=createobject("scripting.filesystemobject")<br />if wind9.fileexists("wind.txt")=false then             &#039;在本脚本目录下新建一个wind文本文件,修改内容为灌水内容<br />wscript.quit<br />  end if<br />set wind=createobject("wscript.shell")<br />wind.run "wind.txt"<br />wscript.sleep 300<br />wind.sendkeys "^a"<br />wind.sendkeys "^c"<br />wind.sendkeys "%{f4}"<br />wscript.echo "激活火狐浏览器窗口"<br />wscript.sleep 3000<br />while wind9.fileexists("wind.txt")=true<br />wind.sendkeys "%d"<br />wscript.sleep 300<br />wind.sendkeys "www.verybat.cn/bbs/bbs/viewthread.php"&"+/"&"tid=135"<br />&#039;论坛主题地址,前面的为论坛地址,后面的数字为主题ID号<br />wscript.sleep 300<br />wind.sendkeys "~"<br />wscript.sleep 10000<br />wind.sendkeys "{tab 2}"<br />wind.sendkeys "^v"<br />wscript.sleep 100<br />wind.sendkeys "^~"<br />wscript.sleep 7000<br />wend<br />

使用方法:
1 在目录中新建一个文本,写上你要灌水的内容,并保存
2 打开浏览器
3 运行vbs程序 会弹出一个对话框 提示你激活窗口
点击确定后 在3秒内激活浏览器窗口(建议单击窗口标题栏)
4 然后等着拿vb币吧…..
5 如果要终止,只要删除wind.txt或者将其重命名就行了

最后,有个很实用的小窍门
将浏览器窗口调整的小的点,(但一定要保持其激活状态,)可以一边看电影,一边自动灌水,哈哈哈哈

具体做法:
新建文本
打开浏览器 调整其窗口大小
打开PPS(或其他电视播放器) 调整其位置 并开始播放
运行vbs程序
等对话框出来后,将文件关闭或最小化
点确定
激活浏览器
好了,一边电影,一边灌水…如何??

转载请注明:woyigui's blog [http://www.woyigui.cn/]
本文标题:vbs-论坛自动灌水器
本文地址:http://www.woyigui.cn/2008/05/26/vbs-bbs-Emitters/

  1. 冰剑
    2008年5月30日15:15 | #1

    我靠,我说怎么有那么多回复。。
    原来管理层中有内鬼啊。。
    NND。。。。

    [回复]

  2. 2008年12月30日10:37 | #2

    envy我用用

    [回复]

  1. 本文目前尚无任何 trackbacks 和 pingbacks.
*