为编程爱好者分享易语言教程源码的资源网
三叶资源网官方③群:33301895 网络创业点子 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 网络创业点子 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

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

封神榜助理批量登陆

三叶资源网 2013-05-17 按键精灵Q语言 292 ℃ 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 结束


文件下载

Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

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

欢迎 发表评论:

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

网站分类
随机tag
电商订单监控喊麦模拟系列教程http访问仓库管理系统取QQ昵称次世代QQ好友批量点名片赞e2ee支持库图形按钮DX2登录变现NoobyProtectSELOL无限视距加载皮肤动态加密KMP算法界面UI源码聊呗网页端
最新评论