无意中听了 Jr BLOG 的《咖啡香聆听杂志》14 那篇，很喜欢。点了第二篇，这篇文章。vbs代码实现的 Discuz! X2 论坛 自动 回复帖子，嗯，好久没看到 vbs 脚本 写的东西了，也许是不关注了吧！
功能，于Discuz! X2 论坛无限循环自动回贴的 VBS 脚本，嗯，Jr 写道。
使用方法：修改脚本中的提示的几个设置，然后用 IE 登录你要刷的论坛，运行脚本，等待……
url="http://bbs.xxx.xxx/thread-7808-1-43.html" ' 论坛要顶的帖的地址
wz="很好啊很强大"
wz1="很不，楼主辛苦"
wz2="轻松飘过。。。。。。。拿分走人！。。。"
wz3="谢谢你的分享，很不错。。。"
wz4="图片不错，留个言，那经验走人"
wz5="好图强烈支持额。。。不支持都不行。。。。"
wz6="非常的好，很好的图。。。"
set ie=createobject("internetexplorer.application")
ie.navigate url
ie.Visible = true 'true 为显示窗口 false 隐藏
do while ie.busy
wscript.sleep 100
loop
do ' 循环开始
ie.document.getelementbyid("fastpostmessage").value=wz
wscript.sleep 500
ie.document.getelementbyid("fastpostsubmit").click
wscript.sleep 15000 ' 回帖间隔时间，自己看情况修改
ie.document.getelementbyid("fastpostmessage").value=wz1
wscript.sleep 500
ie.document.getelementbyid("fastpostsubmit").click
wscript.sleep 15000
ie.document.getelementbyid("fastpostmessage").value=wz2
wscript.sleep 500
ie.document.getelementbyid("fastpostsubmit").click
wscript.sleep 15000
ie.document.getelementbyid("fastpostmessage").value=wz3
wscript.sleep 500
ie.document.getelementbyid("fastpostsubmit").click
wscript.sleep 15000
ie.document.getelementbyid("fastpostmessage").value=wz4
wscript.sleep 500
ie.document.getelementbyid("fastpostsubmit").click
wscript.sleep 15000
ie.document.getelementbyid("fastpostmessage").value=wz5
wscript.sleep 500
ie.document.getelementbyid("fastpostsubmit").click
wscript.sleep 15000
ie.document.getelementbyid("fastpostmessage").value=wz6
wscript.sleep 500
ie.document.getelementbyid("fastpostsubmit").click
wscript.sleep 15000
loop ' 循环结束嗯，via.Discuz! X2 刷回复的 VBS 脚本 – Jr BLOG
正文完