Discuz! X2 论坛自动回复帖子

yibin 2015-02-08 网站运营 666

无意中听了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

扫码添加微信

13013082126 扫描微信 建站咨询 优化咨询