简易论坛发帖机（vbs）

nkc3g4

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

复制代码

复制上面的内容，保存为 *.vbs
先在bbs.luobotou.org 登陆论坛，勾选自动登录，然后运行这个文件，会自动使用剪贴板里面的内容发帖

set WshShell = Wscript.createobject("Wscript.Shell")
Do While Counter < 10     
    Counter = Counter + 1      ' 增加计数器。
    WScript.Sleep 800               '如果访问论坛速度比较慢，可以调大这个数字
WshShell.run("https://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

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

这是神马

小萝卜头

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

nkc3g4

小萝卜头 发表于 2011-10-4 21:03
楼上的没有资料

游客。。。。。。。。

nkc3g4

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

新手发帖才需要啊

cky06322

现在还能用吗？

nkc3g4

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

不能了