为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

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

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

三叶资源网 2018-12-29 按键精灵Q语言 128 ℃ 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

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

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
支付酷Q源代码svg图片转换内存操作游戏UI源码多彩浏览框ExDUI视频教程酷Q机器人qq消息群发QQPC8.6协议源码ACCESS操作程序调试微信Hook信号量易编辑框源码剑侠情缘界面设计获取登陆QQwebsocket音频处理
最新评论