nkc3g4 发表于 2011-10-4 19:26:55

简易论坛发帖机（vbs）

set WshShell = Wscript.createobject("Wscript.Shell")
Do While Counter < 10   
    Counter = Counter + 1      ' 增加计数器。
    WScript.Sleep 800               '如果访问论坛速度比较慢，可以调大这个数字
WshShell.run("http://bbs.luobotou.org/forum.php?mod=post&action=newthread&fid=52")
WScript.Sleep 1000
    WshShell.SendKeys "^v"
    WshShell.SendKeys "{TAB}"
    WshShell.SendKeys "^v"
    WshShell.SendKeys "^{ENTER}"
WScript.Sleep 1000
    WshShell.SendKeys "^w"
Loop
复制上面的内容，保存为 *.vbs
先在bbs.luobotou.org 登陆论坛，勾选自动登录，然后运行这个文件，会自动使用剪贴板里面的内容发帖


发表于 2011-10-4 19:38:02

set WshShell = Wscript.createobject("Wscript.Shell")
Do While Counter < 10   
    Counter = Counter + 1      ' 增加计数器。
    WScript.Sleep 800               '如果访问论坛速度比较慢，可以调大这个数字
WshShell.run("http://bbs.luobotou.org/forum.php?mod=post&action=newthread&fid=52")
WScript.Sleep 1000
    WshShell.SendKeys "^v"
    WshShell.SendKeys "{TAB}"
    WshShell.SendKeys "^v"
    WshShell.SendKeys "^{ENTER}"
WScript.Sleep 1000
    WshShell.SendKeys "^w"
Loop

nkc3g4 发表于 2011-10-4 19:39:15

游客 117.92.17.x 发表于 2011-10-4 19:38 static/image/common/back.gif
set WshShell = Wscript.createobject("Wscript.Shell")
Do While Counter < 10   
    Counter = Counte ...

这是神马

小萝卜头 发表于 2011-10-4 21:03:50

:funk::funk:楼上的没有资料

nkc3g4 发表于 2011-10-4 21:13:41

小萝卜头 发表于 2011-10-4 21:03 static/image/common/back.gif
楼上的没有资料

游客。。。。。。。。

nkc3g4 发表于 2013-5-5 22:23:00

bowskitten 发表于 2013-5-4 09:05 static/image/common/back.gif
论坛发帖不是要验证码么

新手发帖才需要啊

cky06322 发表于 2021-1-1 22:52:26

现在还能用吗？

nkc3g4 发表于 2021-1-2 00:38:59

cky06322 发表于 2021-1-1 22:52
现在还能用吗？

不能了
页: [1] 2
查看完整版本: 简易论坛发帖机（vbs）