简易论坛发帖机（vbs）

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

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
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
楼上的没有资料

游客。。。。。。。。

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

bowskitten 发表于 2013-5-4 09:05
论坛发帖不是要验证码么

新手发帖才需要啊

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

现在还能用吗？

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

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

不能了