无意中听了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 '循环结束