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

发帖
17557
金钱
5648
91币
460
信誉
0
资产
0 IST
在线时间
2827 小时
注册时间
2008-06-02
最后登录
2024-11-05
只看该作者 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
高科技,无人驾驶哟
回复
举报
发帖 回复
返回列表
1234
快速回复
限100 字节
 
上一个 下一个