用VBS实现Discuz论坛自动回帖程序

标签: , , , ,

曾经是多么的热衷于刷积分,用C#写了一个Discuz论坛自动回帖程序(源码找不到了)。后来顿悟了,积分什么的,只不过是浮云罢了。其时VBS水平比原来提高了一点,发现用C#写Discuz论坛自动回帖程序有点太大材小用了,用VBS脚本就可以轻松实现Discuz论坛自动回帖程序。能用脚本做的事情,何必用高级语言去做呢?

Google了一下,网上也有很多Discuz论坛自动回帖程序,有用C语言写的,有用Delphi写的,有用perl写的,还有用傻逼按键精灵写的,但是好像就是没有用VBS写的。也许是我没有发现吧,如果你知道的话,请留言告诉我。下面的是我写的VBS版Discuz论坛自动回帖程序。适用条件:

1、Discuz 7.0以上的版本。

2、论坛开启了快速回复

3、论坛需要设置成平板模式(与分栏模式对应)

'作者: Demon
'日期: 2010年07月2日
'网站: https://demon.tw
On Error Resume Next
Const URL = "http://ipv6.cgbt.cn/forums/viewthread.php?tid=294619"
Const interval = 15
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate2 URL
IE.Visible = True
WScript.Sleep 3000
Do
    IE.Document.GetElementById("fastpostmessage").innerHTML = "Hello world"
    WScript.Sleep interval \ 2
    IE.Document.getElementById("fastpostsubmit").click
    WScript.Sleep interval \ 2
Loop

一共才用了14行代码,简单解释一下,URL是目标帖子的地址,interval是论坛管理员设置的两次回复之间的时间间隔。Hello world是回复的内容。根据实际情况改写一下参数就行。

赞赏

微信赞赏支付宝赞赏

随机文章:

  1. OpenWrt安装CIFS客户端挂载网络驱动器
  2. VBS修改文件和文件夹的NTFS 权限
  3. RasEnumConnections函数返回632错误
  4. 用C语言调用COM组件
  5. VbsEdit 5.6.1新增功能

17 条评论 发表在“用VBS实现Discuz论坛自动回帖程序”上

  1. 乔妹说道:

    回完一个寻找下一个帖回复怎么改。。。内容要很多语句循环使用

  2. gthtyj12说道:

    非ie浏览器如何更改

留下回复