打印

[转载] 零基础自己用写字板战网多开自动登录(非BOT机器人)

零基础自己用写字板战网多开自动登录(非BOT机器人)

anhei3战网
分享自己找到的代码资源,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 soj +50 精品文章 2021-9-28 22:31
  • yhjl 鲜花 +2 精品文章 2021-9-28 22:31
您目前仅能浏览部分内容,查看全部内容及附件,请先 登录注册
分享到:


TOP

Powered by discuz ©2008-2009 暗黑战网(anhei3.net)

川公网安备 51160202511654号

蜀ICP备14017336号