• 7585阅读
  • 31回复

[分享]无聊,修改了一个RR自动登录器为N开kb的自动登录器 [复制链接]

上一主题 下一主题
离线lilo
 

发帖
6483
金钱
6748
91币
1375
信誉
0
资产
0 IST
在线时间
19139 小时
注册时间
2012-07-06
最后登录
2024-09-14
只看楼主 倒序阅读 使用道具 楼主  发表于: 2014-08-12 20:30:25
功能:
可以多开(10开20开都没问题),每个帐号(窗口)可以采用不同位置(1-8号)的人物,每个窗口可以定义为隐藏或不隐藏.增加了一个批量关闭窗口的批处理命令.

  1. REM 定义变量
  2. Dim AA(X,4),Mappath,D2file,NN
  3. REM AA(X,4)中的  X = 需要登录的帐号数量 ,可自行修改,修改后需增加或删除下面的保存帐号信息的行数
  4. REM AA(X,4)中的  4 不能修改
  5. REM 帐号信息格式定义说明:
  6. REM     AA(n,0)=第n个帐号名     ,AA(n,1)=第n个帐号的密码  ,  AA(n,2)=第n个帐号要登录的人物位置 , AA(n,3)=这个窗口是否隐藏
  7. REM   
  8. REM 具体人物位置对应关系:
  9. REM    1   2
  10. REM    3   4
  11. REM    5   6
  12. REM    7   8
  13. REM
  14. REM 窗口隐藏: 0 隐藏,1不隐藏
  15. REM 
  16. REM
  17. REM 下面开始保存帐号信息,一个帐号一行
  18. REM AA(X,0)="你的帐号X的名字" :AA(X,1)="密码"    :AA(X,2)="2"    :AA(X,3)="1"
  19. AA(0,0)="你的帐号1的名字" :AA(0,1)="密码"    :AA(0,2)="1"    :AA(0,3)="0"
  20. AA(1,0)="你的帐号2的名字" :AA(1,1)="密码"    :AA(1,2)="2"    :AA(1,3)="1"
  21. REM 上面是保存帐号信息
  22. REM 游戏路径
  23. D2file="C:\game\Diablo_II_CN-Gamersky\Diablo_II\D2Loader-1.11b.exe"
  24. REM 地图路径
  25. Mappath="C:\game\Diablo_II_CN-Gamersky\Diablo_II\ZLP_map"
  26. dim program,i,PP
  27. program=D2file +" -direct -skiptobnet -w -lq -ns -sleepy -pdir "+ Mappath + " -title "
  28. Set Wshell=CreateObject("Wscript.Shell")
  29. REM "-direct -skiptobnet -w -lq -ns -sleepy -pdir C:\game\Diablo_II_CN-Gamersky\Diablo_II\ZLP_map -title 窗口标题"
  30. REM 开始登录
  31. for i=0 to 6
  32.     PP=program + AA(i,0)
  33.     if AA(i,3)="1" then
  34.         PP=PP + " -nohide"
  35.     end if
  36.     NN = AA(i,2)
  37.     REM 启动游戏
  38.     set oexec=Wshell.Exec(PP)
  39.     Wscript.Sleep 2000
  40.     Wshell.SendKeys AA(i,1)
  41.     Wscript.Sleep 200
  42.     Wshell.SendKeys "{TAB}"
  43.     Wscript.Sleep 200
  44.     Wshell.SendKeys AA(i,0)
  45.     Wscript.Sleep 200
  46.     Wshell.SendKeys "{ENTER}"
  47.     Wscript.Sleep 3000
  48.     REM 开始选择人物
  49.     Select case NN
  50.     case "1" '第一人物       
  51.     case "2" '第二人物
  52.         Wshell.SendKeys "{RIGHT}"
  53.         Wscript.Sleep 200
  54.     case "3" '第三人物
  55.         Wshell.SendKeys "{DOWN}"
  56.         Wscript.Sleep 200
  57.     case "4" '第四人物
  58.         Wshell.SendKeys "{RIGHT}"
  59.         Wscript.Sleep 200
  60.         Wshell.SendKeys "{DOWN}"
  61.         Wscript.Sleep 200
  62.     case "5" '第五人物
  63.         Wshell.SendKeys "{DOWN}"
  64.         Wscript.Sleep 200
  65.         Wshell.SendKeys "{DOWN}"
  66.         Wscript.Sleep 200
  67.     case "6" '第六人物
  68.         Wshell.SendKeys "{DOWN}"
  69.         Wscript.Sleep 200
  70.         Wshell.SendKeys "{DOWN}"
  71.         Wscript.Sleep 200
  72.         Wshell.SendKeys "{RIGHT}"
  73.         Wscript.Sleep 200
  74.     case "7" '第七人物
  75.         Wshell.SendKeys "{DOWN}"
  76.         Wscript.Sleep 200
  77.         Wshell.SendKeys "{DOWN}"
  78.         Wscript.Sleep 200
  79.         Wshell.SendKeys "{DOWN}"
  80.         Wscript.Sleep 200
  81.     case "8" '第八人物
  82.         Wshell.SendKeys "{DOWN}"
  83.         Wscript.Sleep 200
  84.         Wshell.SendKeys "{DOWN}"
  85.         Wscript.Sleep 200
  86.         Wshell.SendKeys "{DOWN}"
  87.         Wscript.Sleep 200
  88.         Wshell.SendKeys "{RIGHT}"
  89.         Wscript.Sleep 200
  90.     End Select
  91.     Wshell.SendKeys "{ENTER}"
  92.     Wscript.Sleep 2000
  93.     Wshell.SendKeys "{ENTER}"
  94.     Wscript.Sleep 2000
  95. next


然后按后面我恢复的方法修改.
[ 此贴被lilo在2014-08-13 19:41重新编辑 ]
附件: 自动登录器.rar (2 K) 下载次数:64
离线bt-085
发帖
6126
金钱
8012
91币
48
信誉
0
资产
0 IST
在线时间
839 小时
注册时间
2013-05-26
最后登录
2022-10-11
只看该作者 沙发  发表于: 2014-08-12 20:39:18
这个怎么用啊
离线sor-
发帖
1509
金钱
104
91币
353
信誉
0
资产
0 IST
在线时间
146 小时
注册时间
2014-07-01
最后登录
2017-06-22
只看该作者 板凳  发表于: 2014-08-12 20:39:33
新人看不太懂什么意思
离线sos_7
发帖
1003
金钱
943
91币
5
信誉
0
资产
1.75 IST
在线时间
556 小时
注册时间
2009-07-21
最后登录
2024-06-21
只看该作者 3楼 发表于: 2014-08-12 20:41:14
楼主神人也
离线lilo

发帖
6483
金钱
6748
91币
1375
信誉
0
资产
0 IST
在线时间
19139 小时
注册时间
2012-07-06
最后登录
2024-09-14
只看该作者 4楼 发表于: 2014-08-12 20:43:28
重要说明: 双击 自动登录器.vbs 后,就不要用鼠标了,等程序运行完即所有窗口登录完,再动鼠标,否则后果自负啊.....

不好意思,刚才的代码第8行应该是 REM    5   6
M错误的输成N了.要么重新下载,要么你自己修改一下..

说明:
下载后解压到游戏目录里,然后用记事本打开"自动登录器.vbs"
1.修改登录的帐号数
Dim AA(X,4),Mappath,D2file,NN
X修改为你需要打开的窗口(帐号)数,如果8开,就改为8
2.根据需要登录的帐号数,按照下面的格式修改帐号信息,一个帐号一行.X从0开始,到需要登录的帐号数-1
帐号信息格式定义说明:
AA(n,0)=第n个帐号名     ,AA(n,1)=第n个帐号的密码  ,  AA(n,2)=第n个帐号要登录的人物位置 , AA(n,3)=这个窗口是否隐藏
  
具体人物位置对应关系:
   1   2
   3   4
   5   6
   7   8

窗口隐藏: 0 隐藏,1不隐藏

下面这行是模板
AA(X,0)="你的帐号X的名字" :AA(X,1)="密码"    :AA(X,2)="2"    :AA(X,3)="1"
表示你X个帐号,用第二个人物登录,窗口不隐藏.修改时注意所有X和引号里的都要修改

3.修改 游戏路径
D2file="C:\game\Diablo_II_CN-Gamersky\Diablo_II\D2Loader-1.11b.exe"
4.修改 地图路径
Mappath="C:\game\Diablo_II_CN-Gamersky\Diablo_II\ZLP_map"
第3步中的程序名,例如这里是D2Loader-1.11b.exe,你的可能是其他的,把它复制下来,后面的自动关闭窗口要用到.

5. for i=0 to 6 这行中的6 改为你需要登录的帐号数-1


6.还是用记事本打开kill .bat,这个是自动关闭多开的窗口用的.
taskkill /f /im d2loader-1.11b.exe
将/im 后的这个改为你的程序名就可以了,注意 /im后一定要有个空格.
[ 此贴被lilo在2014-08-12 21:22重新编辑 ]
附件: 自动登录器.rar (2 K) 下载次数:53
离线sor-
发帖
1509
金钱
104
91币
353
信誉
0
资产
0 IST
在线时间
146 小时
注册时间
2014-07-01
最后登录
2017-06-22
只看该作者 5楼 发表于: 2014-08-12 20:49:18
看到下载,现在就看得懂了

发帖
10812
金钱
3705
91币
355
信誉
0
资产
0 IST
在线时间
2499 小时
注册时间
2012-11-20
最后登录
2023-08-30
只看该作者 6楼 发表于: 2014-08-12 20:59:02
楼主神人也
离线1365

发帖
17560
金钱
6718
91币
460
信誉
0
资产
0 IST
在线时间
2830 小时
注册时间
2008-06-02
最后登录
2024-11-23
只看该作者 7楼 发表于: 2014-08-12 22:20:20
不会弄高科技的路过 帮顶了
离线d.一天
发帖
3852
金钱
5305
91币
0
信誉
0
资产
0 IST
在线时间
754 小时
注册时间
2009-07-10
最后登录
2016-01-08
只看该作者 8楼 发表于: 2014-08-12 22:39:09
不明觉厉中
离线702278
非资综合大区总版主

发帖
21829
金钱
0
91币
6200
信誉
0
资产
0 IST
在线时间
3799 小时
注册时间
2008-12-02
最后登录
2023-06-12
只看该作者 9楼 发表于: 2014-08-13 08:54:11
高科技,无人驾驶哟
快速回复
限100 字节
 
上一个 下一个