萝卜头IT论坛

了解更多
搜索
查看: 1621|回复: 5
收起左侧

简易论坛发帖机(vbs)

  [复制链接]
发表于 2011-10-4 19:26:55 | 显示全部楼层 |阅读模式
  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 登陆论坛,勾选自动登录,然后运行这个文件,会自动使用剪贴板里面的内容发帖


回复

使用道具 举报

匿  发表于 2011-10-4 19:38:02
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
回复

使用道具

 楼主| 发表于 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:楼上的没有资料
回复

使用道具 举报

 楼主| 发表于 2011-10-4 21:13:41 | 显示全部楼层
小萝卜头 发表于 2011-10-4 21:03
楼上的没有资料

游客。。。。。。。。
回复

使用道具 举报

 楼主| 发表于 2013-5-5 22:23:00 | 显示全部楼层
bowskitten 发表于 2013-5-4 09:05
论坛发帖不是要验证码么

新手发帖才需要啊
回复

使用道具 举报

联系站长|手机版|萝卜头IT论坛 ( 苏ICP备15050961号-1 )

GMT+8, 2018-5-23 00:01 , Processed in 0.085885 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表