为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文

按键精灵枭雄刷白菜脚本源码

三叶资源网 2018-12-05 22:43:45 按键精灵Q语言 2283 ℃ 8 评论

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

@15198644910     2012/3/2

FindPic 0,0,1024,768,"Attachment:\贼.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
    LeftClick 1  
    Delay 2000  
End If  
  
Rem bj  
    For 2  
FindPic 0,0,1024,768,"Attachment:\贼.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
    LeftClick 1  
    Delay 2000  
End If  
FindPic 0,0,1024,768,"Attachment:\5.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo  intX+10, intY+5  
    LeftClick 1  
    Delay 2000  
End If  
FindPic 0,0,1024,768,"Attachment:\6.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
    LeftClick 1  
    Delay 2000  
End If  
FindPic 0,0,1024,768,"Attachment:\贼.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
    LeftClick 1  
    Delay 2000  
End If  
FindPic 0,0,1024,768,"Attachment:\5.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo  intX+10, intY+5  
    LeftClick 1  
    Delay 2000  
End If  
FindPic 0,0,1024,768,"Attachment:\6.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
    LeftClick 1  
    Delay 2000  
End If  
  
  
FindPic 0,0,1024,768,"Attachment:\武将.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
    LeftClick 1  
    Delay 2000  
End If  
FindPic 0,0,1024,768,"Attachment:\补血.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
End If  
FindPic 0,0,1024,768,"Attachment:\6.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
End If  
Next  
  
FindPic 0,0,1024,768,"Attachment:\左.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
End If  
  
Goto bj  
  
FindPic 0,0,1024,768,"Attachment:\下.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
Goto bj  
End If  
FindPic 0,0,1024,768,"Attachment:\左.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
Goto bj  
End If  
FindPic 0,0,1024,768,"Attachment:\上.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
Goto bj  
End If  
FindPic 0,0,1024,768,"Attachment:\上.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5 
LeftClick 1  
    Delay 2000  
Goto bj  
End If  
FindPic 0,0,1024,768,"Attachment:\左.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
Goto bj  
End If  
FindPic 0,0,1024,768,"Attachment:\下.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
Goto bj  
End If  
FindPic 0,0,1024,768,"Attachment:\右.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
Goto bj  
End If  
FindPic 0,0,1024,768,"Attachment:\右.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX+10, intY+5  
LeftClick 1  
    Delay 2000  
Goto bj  
Delay 40000  
  
End If


文件下载

Tags:

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

已有8位网友发表了看法:

  • 资源分享

    资源分享  评论于 [2021-09-06 22:21:54]  回复

    枭雄刷怪脚本用什么软件

欢迎 发表评论:

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

网站分类
随机tag
socks5RC4加密源码2023-01-23 14:42:10画板源码取电脑硬件信息二维码生成百度旋转识别源码htmlHelpsqllite虎牙登录源码聊呗网页端多线程注册仿微信登录UI界面编码转换类宏插件快速启动获取登陆QQ账号自动注册滑块协议上传
最新评论