Dim AA(8,2),Mappath,D2file,NN
NN=1 '第几人物
KEYOn=1 '是否启动KEY，0不启动，1启动
RRON=0 'RR人物是否启动，0不加载，1加载
MapOn=1 'RR人物地图是加载，0不加载，1加载
BUSON=1 'BUS人物是否启动，0不加载，1加载
AA(0,0)="acc0" :AA(0,1)="mm1" 'BUS 帐号和密码
AA(8,0)="acc8" :AA(8,1)="mm8" 'KEY 帐号和密码
REM RR 的帐号和密码
AA(1,0)="acc1" :AA(1,1)="mm1"
AA(2,0)="acc2" :AA(2,1)="mm2"
AA(3,0)="acc3" :AA(3,1)="mm3"
AA(4,0)="acc4" :AA(4,1)="mm4"
AA(5,0)="acc5" :AA(5,1)="mm5"
AA(6,0)="acc6" :AA(6,1)="mm6"
AA(7,0)="acc7" :AA(7,1)="mm7"
D2file="F:\暗黑破坏神\D2Loader.exe" '游戏载入路径
Mappath="F:\暗黑破坏神\113map" '游戏地图载入路径
dim program,i,PP
program=D2file + " -direct -skiptobnet -w -lq –ns " '载入参数
Set Wshell=CreateObject("Wscript.Shell")
REM KEY 登录
If KEYOn=1 then
PP=program +" -pdir "+Mappath+" -title KEY"
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 BUS 登录
if BUSON=1 then
PP=program +" -pdir "+Mappath+" -title BUS"
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 将以上编码复制至写字板，更改对应的账号ACC、密码MM、载入地址、启动参数，存为.vbs文件，双击即可启动多账号登录
[ 此贴被冷兮在2012-08-14 10:30重新编辑 ]
