anhei3战网 - Powered by Discuz! Board

标题: [转载] 零基础自己用写字板战网多开自动登录（非BOT机器人） [打印本页]

作者: iuie 时间: 2021-9-28 19:43 标题: 零基础自己用写字板战网多开自动登录（非BOT机器人）

分享自己找到的代码资源，D2目录下新建TXT写字板文件，复制代码修改后，另存为vbs文件启动即可（可发送快捷方式到桌面）。
请把游戏目录、地图目录和AA中账号和密码设置为自己的，地图参数根据自己使用实际更改，需要多开几个人物请自行删减代码。以下是代码：

Dim AA(8,2),Mappath,D2file,NN
NN=1 '第几人物
name1On=1  '是否启动name1，0不启动，1启动
RRON=0 'RR人物是否启动，0不加载，1加载
MapOn=1  'RR人物地图是加载，0不加载，1加载
name2ON=1  'name2人物是否启动，0不加载，1加载
AA(0,0)="账号" :AA(0,1)="密码" 'name2 帐号和密码
AA(8,0)="账号"  :AA(8,1)="密码" 'name1 帐号和密码

REM　RR　的帐号和密码　
AA(1,0)="账号" :AA(1,1)="密码"
AA(2,0)="账号" :AA(2,1)="密码"
AA(3,0)="账号" :AA(3,1)="密码"
AA(4,0)="账号" :AA(4,1)="密码"
AA(5,0)="账号" :AA(5,1)="密码"
AA(6,0)="账号" :AA(6,1)="密码"
AA(7,0)="账号" :AA(7,1)="密码"

D2file="G:\暗黑破坏神2\D2Loader.exe" '游戏载入路径
Mappath="G:\暗黑破坏神2\113map"             '游戏地图载入路径

dim program,i,PP
program=D2file + " -direct -txt -pdir 113map -locale chi -skiptobnet  -nofixaspect -w -title Traditional-Chinese<www.anhei3.net>" '载入参数

Set Wshell=CreateObject("Wscript.Shell")

REM name1 登录
If name1On=1 then
PP=program +" -pdir "+Mappath+" -title name1"
set oexec=Wshell.Exec(PP)
Wscript.Sleep 3000
Wshell.SendKeys AA(8,1)
Wscript.Sleep 200
Wshell.SendKeys "{TAB}"
Wscript.Sleep 200
Wshell.SendKeys AA(8,0)
Wscript.Sleep 200
Wshell.SendKeys "{ENTER}"
Wscript.Sleep 2000
Wshell.SendKeys "{ENTER}"
end if

REM name2 登录
if name2ON=1 then
PP=program +" -pdir "+Mappath+" -title name2"
set oexec=Wshell.Exec(PP)
Wscript.Sleep 3000
Wshell.SendKeys AA(0,1)
Wscript.Sleep 200
Wshell.SendKeys "{TAB}"
Wscript.Sleep 200
Wshell.SendKeys AA(0,0)
Wscript.Sleep 200
Wshell.SendKeys "{ENTER}"
Wscript.Sleep 2000
Wshell.SendKeys "{ENTER}"
end if

REM RR小号登录
if RRON=1 then
  for i=1 to 7                         '登陆RR号个数（1—8）
if MapOn=1 then
      PP=program +" -pdir "+Mappath+" -title " & i
else
      PP=program +" -title " & i
end if

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 2000
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}"
  next

end if

REM

[ 本帖最后由 iuie 于 2021-9-28 19:45 编辑 ]

作者: yhjl 时间: 2021-9-28 22:31

高手，好东西！

作者: 369369369 时间: 2021-9-28 22:55

按键精灵也有此功能，脚本好像更短，不过你很厉害了，节省了登录时间，游戏内还是手动

作者: begenuine 时间: 2021-9-28 23:09

牛人

作者: sypk99 时间: 2023-9-24 16:56

自己没文化现在遭到制裁了

作者: ico405 时间: 2023-9-26 19:42

很好很强大

欢迎光临 anhei3战网 (http://bbs.anhei2.com/)