用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. Ubuntu从NTP服务器同步时间
  2. 工行网银使用U盾时提示“请选择您要用的证书”
  3. 文件夹拒绝访问且文件夹显示为空的解决方法
  4. PathFileExists函数,判断路径文件是否存在
  5. 验证IPv4地址的正则表达式

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

  1. wooz说道:

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

    • Demon说道:

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

      • wooz说道:

        vbCrLf 和 chr(13)不是一样的么?
        我试过,不行俄,输入到文本框的内容没有换行,还是一坨文字;

        • Demon说道:

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

  2. cyy说道:

    好用啊……真强……

  3. 寒鸦の迷宫说道:

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

  4. bbourne说道:

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

  5. 冒菜说道:

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

  6. still说道:

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

  7. 啦啦啦说道:

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

  8. 23说道:

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

  9. 45说道:

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

  10. ming2194说道:

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

留下回复