'搜索的视图大小。

STD_LEFT = 20

STD_TOP = 100

STD_RIGHT = 620

STD_BOTTOM = 1000

Function DoClick

LeftDown 1

Delay 20

LeftClick 1

Delay 20

LeftUp 1

Delay 1

LeftUp 1

Delay 1

End Function

Function CloseAGWindow

MoveTo 616, 8

Delay 500

LeftClick 1

LeftUp 1

End Function

Function LoadAGFromIM

CloseAGWindow

'==========以下是按键精灵录制的内容========== 需要把 99U 放置在屏幕右下角， 非自动隐藏状态。

iconRetry = 3

While (iconRetry > 0)

img = "C:\Users\ray\Desktop\AG_BMP\AppIco.bmp"

FindPic 1000, 990, 1200, 1020, img, 0.9, BmpPos(0), BmpPos(1)

If (BmpPos(0) >= 0) Then

iconRetry = 0

Else

Delay 1000

iconRetry = iconRetry -1

End If

Wend

If (BmpPos(0) <= 0) Then

BmpPos (0) = 1055

BmpPos(1) = 1008

End If

If (BmpPos(0) >= 0) Then

MoveTo BmpPos(0), BmpPos(1)

Delay 100

LeftDoubleClick 1

Delay 78

MoveTo 1017, 564

LeftClick 1

End If

MoveTo 1017, 564

LeftClick 1

'==========以上是按键精灵录制的内容==========

End Function

Function btnBackClick        '返回按钮。

MoveTo 89,116

DoClick

End Function

Function ReloadApp            ' 浏览器刷新菜单

MoveTo 79,62

DoClick

End Function

'全局， 根据图像列表， 找到第一个匹配的对象， 并返回坐标点。

Dim BmpList(100)

Dim BmpIdx        '当前正在查找图像的位置 0 坐标开始

Dim BmpPos(2) '第一个找到的坐标位置。 X， Y

Function FindBmp(bmpPath)

img = "C:\Users\ray\Desktop\AG_BMP\"' & bmpPath & "bmp"

img = img & bmpPath

img = img & ".bmp"

isFileExist = Plugin.File.IsFileExist(img)

If isFileExist = True Then

FindPic STD_LEFT, STD_TOP, STD_RIGHT, STD_BOTTOM, img, 0.9, BmpPos(0), BmpPos(1)

Else

BmpPos(0) = -1

BmpPos(1) = -1

End If

FindBmp = BmpPos(0)

If (BmpPos(0) > 0) And (BmpPos(1) > 0) Then //得到确切的位置。即中心点坐标。

Set Bmp = CreateObject("WIA.ImageFile")

Bmp.LoadFile (img)

width = Bmp.Width

height = Bmp.Height

BmpPos(0) = BmpPos(0) + Round(width/2)

BmpPos(1) = BmpPos(1) + Round(height/2)

End If

End Function

'从 BmpList 中前 bmpCnt个中依次查找， 找到的内容进行反馈到 bmpInx 和 BmpPos中。

Dim BmpNamePrefix '图片前缀

Function LocateBmpFromList(BmpNameCnt) '图片个数

BmpList(0) = BmpNamePrefix

idx = 1

While idx < BmpNameCnt

img = BmpNamePrefix & "_" & (idx - 1)

BmpList(idx) = img

idx = idx + 1

Wend

idx = 0

While idx < BmpNameCnt

FindBmp (BmpList(idx))

If (BmpPos(0) > 0) And (BmpPos(1) > 0) Then

BmpIdx = idx

LocateBmpFromList = BmpIdx

Exit Function

End If

idx = idx + 1

Wend

BmpIdx = -1

End Function

MinSpan = 5

DefSpan = 10

sMinute = -10

eMinute = 0

spanMinute = 0

iNewDay = - 1

iTimeEscape = 0

iDoNothing = 0

sHour = 0 // reload per hour

Function InitVariant

If (iNewDay < 0) Then

iNewDay = Date

sMinute = -10

End If

End Function

Function CheckMinuteSpan

eMinute = Minute(Now)

If eMinute >= sMinute Then

spanMinute = eMinute - sMinute

Else

spanMinute = eMinute - sMinute + 60

End If

End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

DebugImgIndex = 0

' 主程序开始

Rem LOOP_START

eHour = Hour(Now)

If (eHour <> sHour) Then

sHour = eHour

'LoadAGFromIM '重新启动一个守护实例， 查看是否打工成功。

End If

Delay 1000

InitVariant

iDoNothing = iDoNothing + 1

'========= 首页， 领取金币按钮 ==========

BmpNamePrefix = "GetCoin"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

MoveTo BmpPos(0),BmpPos(1)                ' 领取金币位置

DoClick

Goto LOOP_START

End If

'========= 一键获取 按钮 ==========

BmpNamePrefix = "btnOneKeyGet"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

CheckMinuteSpan

If (spanMinute <= MinSpan) Then

btnBackClick

Else

sMinute = Minute(Now)

MoveTo BmpPos(0), BmpPos(1)

DoClick

Delay 6000'等待倒计时结束

End If

End If

' 一键获取后出现的不理会和领取的按钮。

BmpNamePrefix = "btnGetit"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

MoveTo BmpPos(0),BmpPos(1)

DoClick

Delay 1000

'Goto LOOP_START

End If

' 一键获取后的关闭未处理事件。

BmpNamePrefix = "btnClose"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

MoveTo BmpPos(0),BmpPos(1)

DoClick

Delay 1000

'Goto LOOP_START

End If

'========= 一键获取后， 完成打工的“尚有未处理事件”的提示框 ==========

BmpNamePrefix = "btnOneKeyGetEvent"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

MoveTo BmpPos(0),BmpPos(1)

DoClick

Delay 1000

'Goto LOOP_START

End If

'========= 无人打工的界面 ==========

BmpNamePrefix = "AddSym"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

MoveTo BmpPos(0),BmpPos(1)

DoClick

Delay 3000

sMinute = Minute(Now)

'Goto LOOP_START

End If

'========= 新派遣打工 按钮 ==========

BmpNamePrefix = "StartWork"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

sMinute = Minute(Now)

MoveTo 300,940

DoClick

Delay 1000

'LoadAGFromIM '重新启动一个守护实例， 查看是否打工成功。

Goto LOOP_START

End If

'========= 首页， 派遣按钮 ==========

BmpNamePrefix = "btnStart"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

CheckMinuteSpan

If (spanMinute >= DefSpan) Then

MoveTo 212,941

DoClick

Delay 1000

End If

Goto LOOP_START

End If

'========= 生产按钮 ==========

BmpNamePrefix = "btnProduce"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

MoveTo BmpPos(0),BmpPos(1)

DoClick

Goto LOOP_START

End If

'====== MoreSee , repeat for more times doWorker action =====

BmpNamePrefix = "MoreWorker"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

MoveTo BmpPos(0),BmpPos(1)

DoClick

Goto LOOP_START

End If

'========= 重复登录按钮 ==========

BmpNamePrefix = "btnExit"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

'此时可能在手机端有操作， 那么冗余10分钟时间给手机端使用。

Delay 600000

MoveTo BmpPos(0), BmpPos(1)

DoClick

Goto LOOP_START

End If

'========= 个人中心页面/ 天使名*录页面 ==========

BmpNamePrefix = "selfcenter"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

btnBackClick

Goto LOOP_START

End If

BmpNamePrefix = "SomeBody"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

btnBackClick

Goto LOOP_START

End If

'========= 每日签到 ==========

BmpNamePrefix = "SigIn"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

MoveTo BmpPos(0),BmpPos(1)

DoClick

Delay 1000

End If

BmpNamePrefix = "SigOK"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

BmpNamePrefix = "SigClose"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

MoveTo BmpPos(0),BmpPos(1)

DoClick

'LoadAGFromIM '重新启动一个守护实例， 查看是否打工成功。

Goto LOOP_START

End If

End If

'========= 如果到此， 判断是否在主页上。 ==========

BmpNamePrefix = "MainPage"

LocateBmpFromList(5)

If (BmpIdx >= 0) Then

inMainPage = 1

Else

inMainPage = 0

End If

If (inMainPage = 0) Then

iTimeEscape = iTimeEscape + 1

Else

iTimeEscape = 0

End If

If (iTimeEscape = 20) Then

'LoadAGFromIM

iTimeEscape = 0

ElseIf (iTimeEscape = 10) Then

ReloadApp

Else

If (iTimeEscape = 5) Then

btnBackClick

Delay 1000

End If

End If

'imgDebug = CStr(Month(Now)) & "-" & CStr(Day(Now)) & "_" & CStr(Hour(Now)) & "." & CStr(Minute(Now)) & "_" & CStr(DebugImgIndex) & ".bmp"

'imgDebug = "C:\Users\ray\Desktop\AG_BMP\ScreenShot\" & imgDebug

'Call Plugin.Pic.PrintScreen(0, 0, 600, 1000, imgDebug)

'DebugImgIndex = DebugImgIndex + 1

'随机点击' 存在某些弹出框， 例如每日签到等情况

If (iTimeEscape = 5 ) Then

rndPosX = 320

rndPosY = 300

While rndPosY < 900

MoveTo rndPosX, rndPosY

DoClick

Delay 10

rndPosY = rndPosY + 20

Wend

End If

python 按键精灵脚本_按键精灵的脚本 - 对于重复动作(含键盘鼠标)太好用了相关推荐

  1. php和按键精灵,按键精灵的脚本 - 对于重复动作(含键盘鼠标)太好用了

    '搜索的视图大小. STD_LEFT = 20 STD_TOP = 100 STD_RIGHT = 620 STD_BOTTOM = 1000 Function DoClick LeftDown 1 ...

  2. android 类似按键精灵脚本_按键精灵【第一期】教你 0 基础学写脚本 ———— 【金猪教程】...

    金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot,Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚 ...

  3. shell调用python获取返回值_[linux的shell脚本调用python脚本的返回值][shell调python][ubuntu的shell调用python脚本得到返回值]...

    最近搞个东西,需要写shell脚本,但在shell脚本里需要调用python并得到变量值,网上找了很多都是python调shell的,最后请教了一下郭总 知道了sys.argv的用法后才搞定了,在此感 ...

  4. unity双击打不开脚本_游戏对象和脚本 (创建一个时钟)

    该文章是一篇译文,附上原文链接 Game Objects and Scripts​catlikecoding.com 使用简单对象构建一个时钟 编写一个C#脚本 转动时钟的指针来显示时间 创建指针动画 ...

  5. python调用按键精灵插件_按键精灵——办公常用脚本集锦

    这是奔跑的键盘侠的第123篇文章 临时起意,想想按键精灵的官方视频教程虽然比较有条理,但是毕竟内容有限,甚至重点是在讲游戏挂机.其实很多人都不怎么玩游戏,应用场景一旦转移至办公,很多人可能就有点苍白了 ...

  6. python调用按键精灵插件_按键精灵——如何实现办公自由（四）

    这是奔跑的键盘侠的第174篇文章 作者|我是奔跑的键盘侠 来源|奔跑的键盘侠(ID:runningkeyboardhero) 转载请联系授权(微信ID:ctwott) 前面写的几篇,不知道大家是否能看 ...

  7. python调用按键精灵插件_按键精灵自动寻路系列换算地图坐标寻路法

    金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot,Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚 ...

  8. 奇迹按键精灵挂机脚本_按键精灵做连击脚本(奇迹MU战士用)

    按键精灵做连击脚本 1.123键的按法精彩内容,尽在百度攻略:https://gl.baidu.com 所谓按法实际上就是各种代码方式 常见的有以下几种(time为延时,自己修改) KeyPress ...

  9. python和按键精灵自动化测试_按键精灵对APP自动化测试（上）

    简单介绍下应用背景:测试安卓app时发现重复点击某一按钮的时候会出现报错,开发修复后提交测试.如果采用手动点击按钮,效率不高,在领导提示下使用按键精灵实现自动操作. 一．       安卓手机按键精灵 ...

最新文章

  1. python编程输入标准-Python练习题，,T1.编写程序，输入
  2. Python之max(num, key=lambda x:x[0])用法的详细解析
  3. python实现输出日历_python实例9：输出时间日期和当月日历
  4. wxWidgets：wxPGProperty类用法
  5. mysql插入日期 vs oracle插入日期
  6. java udp丢包_linux 系统 UDP 丢包问题分析思路
  7. git linux 部署网站,centos 搭建git自动部署web应用
  8. 微信支付小年上线“点鞭炮，响优惠”活动 大额提现免费券限时发放
  9. Veeam虚拟化备份
  10. ASP.NET:关于.net中的runat
  11. RS请求错误之RSV-BBP-0028
  12. C#中backgroundworker的使用
  13. 使用SimHash进行海量文本去重
  14. 新机购入 戴尔成就5000
  15. 计算机乘法函数公式word,Word表格怎么用公式乘法
  16. RGB HSV CMYK LAB颜色空间
  17. 一、Windows许可证即将过期怎么办
  18. 结合聚酞菁钴催化材料和碳纳米管载体的有机-无机相结合的复合材料
  19. 只读（Readonly）与禁用（Disable）的区别与使用
  20. 机器学习笔记——逻辑斯蒂回归(Logistic)

热门文章

  1. 你好，我是计算机组成原理（计算机组成原理1）
  2. whoosh使用简介
  3. 免费申报！5G网络Awards参评企业征集，欢迎参与！
  4. 对WEB标准以及W3C的理解与认识
  5. 关于'//![cdata['和 '//]]'解答
  6. 协处理器CP15操作指令
  7. Qt实现最小化窗口到托盘图标
  8. 说说越婢加术汤(黄煌)
  9. 【jquery Ajax 练习】图书管理
  10. SQL Server修改密码