用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. JavaScript 中小数和大整数的精度丢失
2. OpenWrt利用DNSPod实现动态域名解析DDNS
3. Chrome新标签页无法打开问题的解决
4. Python Proxy，快速、轻量级的HTTP代理服务器
5. 3DS导出正版卡带存档并导入到CIA

这篇文章发布于 2010年07月2日，星期五，12:33，归类于 我的作品。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。