打印

[攻略&心得] RR自动登录--完美篇

RR自动登录--完美篇

anhei3战网
前些日子写过一篇 用批处理来自动登陆暗黑 ---rr提速必备
经过研究和测试,在此基础之上,进行改进,形成今天的完美篇。
原理都 不在这里说明

下载附件文件,不要马上运行,你需要设置一下
一、你的基本设置,代码中是洋红色
1.你的BUS帐号密码和密码 [这里默认的BUS是第一人物]
2.你的RR帐号和密码
3.你的KEY帐号密码和密码 [这里默认的KEY是第一人物]
4.你的D2地址和地图地址
二、个人需求设置
1.比如砸石头,就不用启动KEY了,BUS 也要改
2.第二次RR时,也就是第二人物,此时 要改一下NN值 NN=2
三、个人地图加载情况
将“program=D2file +" -direct -skiptobnet -w -lq –ns" ”改为你相应的参数
引用:
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
[ 本帖最后由 drip 于 2010-12-21 14:52 编辑 ]

附件

RR自动登录器.rar (921 Bytes)

2010-12-21 14:36, 下载次数: 1140

本帖最近评分记录
您目前仅能浏览部分内容,查看全部内容及附件,请先 登录注册
分享到:


Acc:drip
        dripy

评分 TOP

:anhei3.net-85 顶 抢一个沙发坐坐

评分 TOP

抢个板凳来学习一下,后面的就坐地板啦,呕耶

[ 本帖最后由 kmlq135 于 2011-2-9 22:56 编辑 ]

评分 TOP

想请教一下,如果BUS不是第一个人物怎么办?RR的时候用同一个帐号里的7个人物怎么办?

评分 TOP

一个问题,我打开以后地图加载不上!!
另外,可能楼主的登录延迟时间设得太短,还是我这里网络不行,2秒延迟根本不够,前几个还行,后面的就不够,我都改成5秒了!

评分 TOP

这是FZRR吗
KEY就是无杖KEY还是40级的3BBKEY

如果RR  BUS号和KEY号放一起怎么设参数

望楼主解惑 谢谢

评分 TOP

要是有次次可以出22一上的技巧就赞了。。。。。。。。。。。黑黑
┣━┒    ┣—┒  
┟━┃ ┍╄┓ ┟━│ ╃━  
┝—┃ ┣╈┤ ┣━┃ / ╈  
┗━┘ ┗┸┛ └━┛/┃┻-..  
长期收40+life电板和标枪板子

评分 TOP

强烈顶

评分 TOP

```

为什么我启动自动登录器是无限开暗黑的啊 开了50多个暗黑还在开 直接强行关机了 再开机手动都登录不上了
这是个狗**自动登录器 害得我现在还登录不上

评分 TOP

弄完了,不行啊,开了七八个窗口有什么用,设置密码了它不会自动输入,感觉还没有手动开的快。

评分 TOP


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