引用:

Dim AA(8,2),Mappath,D2file,NN
NN=1 '第几人物
KeyOn=1'是否启动KEY，0不启动，1启动
MapOn=1 'RR人物是否加地图，0不加载，1加载

AA(0,0)="zhanghao"  :AA(0,1)="mm"   'BUS 帐号和密码
REM　RR　的帐号和密码　
AA(1,0)="rr1" :AA(1,1)="11"
AA(2,0)="rr2" :AA(2,1)="11"
AA(3,0)="rr3" :AA(3,1)="11"
AA(4,0)="rr4" :AA(4,1)="11"
AA(5,0)="rr5" :AA(5,1)="11"
AA(6,0)="rr6" :AA(6,1)="11"
AA(7,0)="rr7" :AA(7,1)="11"

AA(8,0)="zhkey"  :AA(8,1)="mm"   'KEY 帐号和密码
D2file="E:\My\d2\D2Loader.exe" '你D2Loder的地址
Mappath="E:\My\d2\map-chinese" '你地图的地址


dim program,i,PP
program=D2file +" -direct -skiptobnet -w -lq –ns"
Set Wshell=CreateObject("Wscript.Shell")

REM BUS 登录
PP=program +" -pdir "+Mappath+" -title bus"
set oexec=Wshell.Exec(PP)
Wscript.Sleep 2000
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 3000
Wshell.SendKeys "{ENTER}"

REM RR小号登录
for i=1 to 7
    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 3000
    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

REM KEY 登录
If KeyOn=1 then
    PP=program +"-title Key"
    set oexec=Wshell.Exec(PP)
    Wscript.Sleep 2000
    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 3000
    Wshell.SendKeys "{ENTER}"
End If