为编程爱好者分享易语言教程源码的资源网
免费易语言注册机教程 程序员交流社区 挂机,挂机器人服务器95一年 广告位招租 三叶资源网交流群④ 【采购季】上云仅¥223/3年
免费易语言注册机教程 每日疯抢商品 建站服务器 便宜好看的文具盒 三叶资源网交流群④ 【采购季】上云仅¥223/3年
程序员交流社区 每日疯抢商品 建站服务器 便宜好看的文具盒 三叶资源网交流群④ 【采购季】上云仅¥223/3年

网站首页 按键精灵相关 按键精灵Q语言 正文

封神榜助理批量登陆

三叶资源网 2013-05-17 按键精灵Q语言 731 ℃ 0 评论

【功能说明】 

简单实用.(游戏工作室用) 

【使用说明】 

1.将桌面颜色设置为32位色,分辨率1024*768,任务栏提起至3层。 

2.在C盘根目录下建立文件名为"id.txt",编辑"id.txt"文本文件,第一行为密码,第二行至最后行为帐号,之间不能有空格。 

3.设置帐号数量.修改启动.暂停.停止键(勿使用F7/F8/F12键).最小化按键精灵。 

4.将游戏内的[记住帐号]取消,然后正常登陆一次,退出游戏。 

5.登陆封神助理,勿最小化,启动脚本,默认热键为小键盘"/"。 

【作者介绍】 

qianguo1983 

运行环境:分辨率:1440x900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730

UserVar Var1=40 帐号数量  
VBS dim id,pw,x,info,Color2  
Plugin info=Sys.GetScRY()  
If info=768  
    Goto Color  
Else   
    MessageBox "请设置为1024*768分辨率"  
    Goto 结束  
EndIf   
Rem Color  
Plugin Color2=Sys.GetScDep()  
If Color2=32  
    Goto 启动  
Else   
    MessageBox "请设置为32位颜色质量"  
    Goto 结束  
EndIf   
Plugin AllTxt=File.ReadFile("c:\id.txt")  
MyArray=Split(AllTxt,"|")  
If Var1>UBound(MyArray)  
    MessageBox "你填的帐号数量超出!!"  
EndScript   
EndIf   
x=1  
Rem 启动  
For Var1  
    id=MyArray(x)  
    pw=MyArray(0)  
    Gosub 子程序1  
    SayString id  
    Delay 100  
    KeyPress 9,1  
    Delay 100  
    SayString pw  
    Gosub 子程序2  
    x=x+1  
EndFor   
EndScript   
Sub 子程序1  
    Delay 200  
    Rem 启动外挂  
    MoveTo 741,573  
    Delay 100  
    MoveTo 767,572  
    Delay 200  
    LeftClick 1  
    Delay 200  
    Rem 选择服务器  
    IfColor 644,658,deebef,2  
        MoveTo 644,658  
        Delay 200  
        LeftClick 1  
    Else   
        Goto 选择服务器  
    EndIf   
    Rem 准备输入  
    IfColor 645,191,ef,2  
        Goto 输入帐号  
    Else   
        Goto 准备输入  
    EndIf   
    Rem 输入帐号  
    Delay 100  
Return 子程序1  
Sub 子程序2  
    Delay 400  
    KeyPress 13,1  
    Rem 选择人物  
    IfColor 366,605,deebef,2  
        Delay 200  
        KeyPress 13,1  
    Else   
        Goto 选择人物  
    EndIf   
    Rem 进入游戏  
    IfColor 172,148,63f75a,2  
        Delay 400  
        MoveTo 839,219  
        Delay 200  
        LeftClick 1  
        Delay 200  
        MoveTo 202,630  
        Delay 200  
        LeftClick 1  
        Delay 200  
        KeyPressH 119,1  
        Delay 50  
        KeyPressH 118,1  
        Delay 50  
        KeyPressH 123,1  
        Delay 50  
    Else   
        Goto 进入游戏  
    EndIf   
    KeyPressH 36,1  
    Rem 呼挂  
    IfColor 378,523,ced3d6,2  
        Delay 400  
        MoveTo 476,571  
        Delay 400  
                LeftClick 1  
        Delay 1000  
        MoveTo 601,573  
        Delay 400  
        LeftClick 1  
        Delay 400  
        KeyPressH 36,1  
        Delay 220  
    Else   
        Goto 呼挂  
    EndIf   
    Rem 最小化  
    MoveTo 866,95  
    Delay 100  
    MoveTo 871,94  
    Delay 200  
    LeftClick 1  
    Delay 200  
    IfColor 561,599,ced3d6,2  
        Goto 完成  
    Else   
        Goto 最小化  
    EndIf   
    Rem 完成  
Return 子程序2  
Rem 结束


文件下载

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网④群:72857039

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网④群:三叶资源网③群

网站分类
随机tag
打印模块UI界面视频上传微信趣头条文本处理sock5无限视距微商热文采集人工智能调用AI百度云防护5sing网站鼠标指针特性EC反编译子类化QQ头像采集外挂SmartQQ
最新评论
友情链接