无聊,修改了一个RR自动登录器为N开kb的自动登录器|『暗黑综合讨论区』- 91D2暗黑战网

离线lilo

发帖: 6482

金钱: 6743

91币: 1325

信誉: 0

资产: 0 IST
在线时间: 19139 小时
注册时间: 2012-07-06
最后登录: 2024-03-20

只看楼主倒序阅读使用道具楼主发表于: 2014-08-12 20:30:25

功能:
可以多开(10开20开都没问题),每个帐号(窗口)可以采用不同位置(1-8号)的人物,每个窗口可以定义为隐藏或不隐藏.增加了一个批量关闭窗口的批处理命令.

复制代码

REM 定义变量
Dim AA(X,4),Mappath,D2file,NN
REM AA(X,4)中的 X = 需要登录的帐号数量 ,可自行修改,修改后需增加或删除下面的保存帐号信息的行数
REM AA(X,4)中的 4 不能修改
REM 帐号信息格式定义说明:
REM AA(n,0)=第n个帐号名 ,AA(n,1)=第n个帐号的密码 , AA(n,2)=第n个帐号要登录的人物位置 , AA(n,3)=这个窗口是否隐藏
REM
REM 具体人物位置对应关系:
REM 1 2
REM 3 4
REM 5 6
REM 7 8
REM
REM 窗口隐藏: 0 隐藏,1不隐藏
REM
REM
REM 下面开始保存帐号信息,一个帐号一行
REM AA(X,0)="你的帐号X的名字" :AA(X,1)="密码" :AA(X,2)="2" :AA(X,3)="1"
AA(0,0)="你的帐号1的名字" :AA(0,1)="密码" :AA(0,2)="1" :AA(0,3)="0"
AA(1,0)="你的帐号2的名字" :AA(1,1)="密码" :AA(1,2)="2" :AA(1,3)="1"
REM 上面是保存帐号信息
REM 游戏路径
D2file="C:\game\Diablo_II_CN-Gamersky\Diablo_II\D2Loader-1.11b.exe"
REM 地图路径
Mappath="C:\game\Diablo_II_CN-Gamersky\Diablo_II\ZLP_map"
dim program,i,PP
program=D2file +" -direct -skiptobnet -w -lq -ns -sleepy -pdir "+ Mappath + " -title "
Set Wshell=CreateObject("Wscript.Shell")
REM "-direct -skiptobnet -w -lq -ns -sleepy -pdir C:\game\Diablo_II_CN-Gamersky\Diablo_II\ZLP_map -title 窗口标题"
REM 开始登录
for i=0 to 6
PP=program + AA(i,0)
if AA(i,3)="1" then
PP=PP + " -nohide"
end if
NN = AA(i,2)
REM 启动游戏
set oexec=Wshell.Exec(PP)
Wscript.Sleep 2000
Wshell.SendKeys AA(i,1)
Wscript.Sleep 200
Wshell.SendKeys "{TAB}"
Wscript.Sleep 200
Wshell.SendKeys AA(i,0)
Wscript.Sleep 200
Wshell.SendKeys "{ENTER}"
Wscript.Sleep 3000
REM 开始选择人物
Select case NN
case "1" '第一人物
case "2" '第二人物
Wshell.SendKeys "{RIGHT}"
Wscript.Sleep 200
case "3" '第三人物
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
case "4" '第四人物
Wshell.SendKeys "{RIGHT}"
Wscript.Sleep 200
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
case "5" '第五人物
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
case "6" '第六人物
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
Wshell.SendKeys "{RIGHT}"
Wscript.Sleep 200
case "7" '第七人物
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
case "8" '第八人物
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
Wshell.SendKeys "{DOWN}"
Wscript.Sleep 200
Wshell.SendKeys "{RIGHT}"
Wscript.Sleep 200
End Select
Wshell.SendKeys "{ENTER}"
Wscript.Sleep 2000
Wshell.SendKeys "{ENTER}"
Wscript.Sleep 2000
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

发帖: 6482

金钱: 6743

91币: 1325

信誉: 0

资产: 0 IST
在线时间: 19139 小时
注册时间: 2012-07-06
最后登录: 2024-03-20

只看该作者 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