vbs-论坛自动灌水器IE版代码

2009-8-2 13:15 529 0

摘要: '注释由woyigui加入set wind9=createobject("scripting.filesystemobject")if wind9.fileexists("wind.txt")=fal...

关键词： nbsp wind wscript sendkeys sleep 地址 createobject fileexists 面的内容

'注释由woyigui加入set wind9=createobject("scripting.filesystemobject")if wind9.fileexists("wind.txt")=false then '在本脚本目录下新建一个wind文本文件，修改内容为灌水内容wscript.quitend ifset 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 3000while wind9.fileexists("wind.txt")=truewind.sendkeys "%d"wscript.sleep 500wind.sendkeys "http://bbs.verybat.cn/viewthread.php"&"+/"&"tid=135" '论坛主题地址，前面的为论坛地址，后面的数字为主题ID号wscript.sleep 300wind.sendkeys "~"wscript.sleep 10000for i=1 to 3 '这个根据自己想要的tab数目，比如从地址栏按TAB键几下才到回复框栏内。wind.sendkeys "{tab}"wscript.sleep 100nextwscript.sleep 100wind.sendkeys "^v"wscript.sleep 100wind.sendkeys "^~"wscript.sleep 7000wend

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除