为编程爱好者分享易语言教程源码的资源网
易语言源码视频(易学院) A全站文字广告,诚邀与您合作 建站,挂机器人,挂监控服务器 易语言实地培训火热招生 三叶资源网官方③群:33301895
每日必买商品 20块一小时,一小时一结账 299买3年腾讯云服务器 乐易论坛 三叶资源网官方③群:33301895

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

封神榜助理批量登陆

三叶资源网 2013-05-17 按键精灵Q语言 340 ℃ 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注册精易论坛编码转换常量支持库宏插件外挂开心ol前台打怪CURL火山调用jar子类化调试列表框线程
最新评论