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

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

按键精灵爽歪歪精练打洞装备(傻瓜版)

三叶资源网 2018-12-29 按键精灵Q语言 185 ℃ 0 评论

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

@vb5308304132010/5/27

DY=10 "第一组强化次数(一般不改)最大10"  
UserVar DE=10 "第二组强化次数(一般不改)最大10"  
UserVar DS=10 "第三组强化次数(一般不改)最大10"  
UserVar tm=100 "网络延时1s=1000ms根据网速定)"  
UserVar sj=50 "双击鼠标的延时ms根据网速定)"  
UserVar BJ=5 "三组全部强化以后失败报警次数"  
UserVar BJYS=200 "三组全部强化失败后报警间隔时间"  
UserVar QHSJ=23000"每组强化中的时间推荐23000"  
Hwnd = Plugin.Window.Find(0,"FLYFF")  
Rect = Plugin.Window.GetClientRect(Hwnd)  
MyArray = Split(Rect, "|")  
qx = Cint(MyArray(0))  
qy = Cint(MyArray(1))  
w = Cint(MyArray(2))  
h = Cint(MyArray(3))  
a1=0  
a2=0  
a3=0  
Delay 500  
Rem aaa  
MoveTo 592+qx,283+qy  
Delay tm  
For 10  
    LeftDoubleClick 1  
    Delay sj  
Next  
MoveTo 624+qx,283+qy  
Delay 100  
For 10  
    LeftDoubleClick 1  
    Delay sj  
Next  
Delay tm  
MoveTo 81+qx,513+qy  
Delay tm  
LeftClick 1  
Delay QHSJ  
MoveTo 244+qx,511+qy  
Delay tm  
LeftClick 1  
a1=a1+1  
If a1=DY then  
    Goto bb    
End If  
Delay tm  
Goto aaa  
//第一组结束  
Rem bb  
Rem bbb  
Delay 500  
MoveTo 591+qx,318+qy  
Delay 100  
For 10  
    LeftDoubleClick 1  
    Delay sj  
Next  
MoveTo 626+qx,319+qy  
Delay tm  
For 10  
    LeftDoubleClick 1  
    Delay sj  
Next  
Delay tm  
MoveTo 81+qx,513+qy  
Delay tm  
LeftClick 1  
Delay QHSJ  
MoveTo 244+qx,511+qy  
Delay tm  
LeftClick 1  
a2=a2+1  
If a2=DE then  
    Goto cc  
End If  
Delay tm  
Goto bbb  
//第二组结束  
Rem cc  
Rem ccc  
Delay 500  
MoveTo 592+qx,351+qy  
Delay tm  
For 10  
    LeftDoubleClick 1  
    Delay sj  
Next  
MoveTo 624+qx,351+qy  
Delay tm  
For 10  
    LeftDoubleClick 1  
    Delay sj  
Next  
Delay tm  
MoveTo 81+qx,513+qy  
Delay tm  
LeftClick 1  
Delay QHSJ  
MoveTo 244+qx,511+qy  
Delay tm  
LeftClick 1  
a3=a3+1  
If a3=DS then  
    for BJ  
        Delay BJYS  
        beep   
    Next  
    MessageBox "超哥恭喜你人品太差了!!强化了297次没有加10!!"  
    EndScript  
End If  
Delay tm  
Goto ccc  
//第三组结束
文件下载

Tags:

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

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

欢迎 发表评论:

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

网站分类
随机tag
进销存系统权威指南多线程异步套接字源码scriptcontrol对象Fiddler二进制易语言编程基础教程SUI代码框自绘精易皮肤模块百度AI界面引擎资源管理器动态调用汇编360UIVmprotectDLL函数查看器工具箱文件拖拽淘宝登录
最新评论