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

标签： , , , ,

标题: 用VBS实现Discuz论坛自动回帖程序
作者: Demon
链接: https://demon.tw/my-work/vbs-discuz-auto-reply.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

曾经是多么的热衷于刷积分，用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. 在InternetExplorer.Application中显示本地图片
  2. VBS中的GUI界面（EditPlus注册机）
  3. VBS调用IE对象直接打印网页
  4. VBS实现“多线程”
  5. 利用WMI打造完美“三无”后门-消灭一切假网卡

随机文章:

  1. Raspberry Pi -bash: nslookup: command not found
  2. 115网盘真实下载地址解析工具（Bookmarklet版）
  3. 没有找到msgmanage.dll
  4. PT流量作弊工具之mRatio
  5. VBS中&H前缀十六进制数的陷阱

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

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

较新评论 »
  1. wooz说道：
    2010年09月7日 11:12

    你这个脚本很好用
    请教一个问题，如果回复内容中有多行，怎么设置？
    我把内容分成几部分，用chr（13）连接，根本没有回车，变成很长的一段文字了；

    回复
    • Demon说道：
      2010年09月7日 14:02

      改成IE.Document.GetElementById(“fastpostmessage”).innerText = “Hello” & vbCrLf & “world”

      回复
      • wooz说道：
        2010年09月9日 11:13

        vbCrLf 和 chr（13)不是一样的么？
        我试过，不行俄，输入到文本框的内容没有换行，还是一坨文字；

        回复
        • Demon说道：
          2010年09月9日 16:31

          第一，我没有测试过是不会贴出来的
          第二，vbCrLf是Chr(13) & Chr(10)
          第三，原程序中是innerHTML，我叫你改成innerText

          回复
  2. cyy说道：
    2011年05月18日 22:03

    好用啊……真强……

    回复
  3. 寒鸦の迷宫说道：
    2011年05月22日 18:49

    其实我一直在想要是能够做得再不容易被判灌水就好了，譬如复制一些前面贴的内容。

    回复
  4. bbourne说道：
    2011年06月20日 11:37

    怎样修改回帖间隔时间为32s

    回复
  5. 冒菜说道：
    2011年07月19日 13:07

    呵呵 大神就是用这个水BBS的？

    回复
  6. still说道：
    2011年07月23日 09:39

    在水吧试了一下，隔一会就出现网页无法显示

    回复
  7. 啦啦啦说道：
    2011年09月10日 15:03

    为啥非要我自己造一个 submit 出来呢

    回复
  8. 23说道：
    2011年10月16日 12:33

    多谢楼主，我已经根据你的代码，编写出了一个自动循环回复制定板块所有帖子的脚本，自己动手，丰衣足食。

    回复
  9. 45说道：
    2011年11月26日 17:56

    呵呵 大神就是用这个水BBS的？

    回复
  10. ming2194说道：
    2012年01月29日 18:23

    你好, 我真的很需要你所寫的這個script, 但我不知道應該什麼才能用到.( 我是個progamme 白痴..) 請問可否由第一步教我一下…謝謝

    回复
较新评论 »

留下回复