'搜索的视图大小。

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

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

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

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

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

  2. IOS 安卓 按键精灵 触动精灵脚本逆向解密

    IOS 安卓 按键精灵 触动精灵 脚本逆向解密

  3. 接苹果安卓按键精灵 触动精灵脚本逆向解密

    接苹果安卓 按键精灵 触动精灵脚本逆向解密

  4. C# 实现按键精灵 记录录制键盘鼠标

    是一个非常实用的键盘鼠标脚本录制工具,通过它你可以轻松地进行脚本录制,简单易用,不需要任何编程知识就能做出功能强大的脚本,只要你在电脑前用双手可以完成的动作,都可以替你完成. 下载地址: 下载软件 特 ...

  5. C++用钩子模仿按键精灵录制键盘鼠标的功能

    最近需要做个跟按键精灵类似的软件,模仿键盘鼠标的动作,然后重播一次,最开时候的时候用键盘钩子和鼠标钩子做的,虽然实现了功能,但是鼠标移动速度非常快,所以换成WH_JOURNALPLAYBACK 和WH ...

  6. java写键盘鼠标录制器,易语言仿按键精灵录制键盘鼠标操作的代码

    DLL命令表 .版本 2 .DLL命令 取按键状态, 短整数型, "user32.dll", "GetAsyncKeyState" .参数 鼠标键, 整数型 . ...

  7. 按键精灵——键盘鼠标

    按键 正确写法 KeyPress 65,1//按[A]键1次 KeyPress 66,2//按[B]键2次 KeyPress "D",100//按[D]键100次 错误写法 不能& ...

  8. python实现按键精灵的功能_pyautogui简介_python中的按键精灵_键盘鼠标模拟

    以下翻译来自官司网说明网站 pyautogui.readthedocs.io pyautogui模块的目的是提供跨平台的自动化键盘鼠标操作.这个模块我们尽可能设计得容易使用.例如,下面的代码都会把鼠标 ...

  9. 按键显示按键编码 keycode

    按键显示按键编码 keycode <!doctype html> <html> <head> <meta charset="utf-8"& ...

最新文章

  1. percona server修改数据目录datadir为/data/mysql：
  2. python3 去除列表中重复的元素 保存原来顺序
  3. python从入门到精通视频(全60集)-【网盘下载】Python从入门到精通视频（全60集）...
  4. java编译错误 程序包javax.servlet不存在javax.servlet.*
  5. 关于数据库备份的问题
  6. 技术实践第二期｜Flutter异常捕获
  7. Java-优先级队列（堆）
  8. 职称计算机excel2015年,【2015年职称计算机Excel重点精讲:创建数据透视表】- 环球网校...
  9. Redis基础学习记录(1)
  10. myeclipse/eclipse方法和类的自动注解
  11. Android总结篇系列：Activity中几个主要函数详解
  12. MySQL主从复制技术（纯干货）
  13. 基于jQuery的AJAX和JSON的实例
  14. 《嵌入式 – GD32开发实战指南》第10章 串口通信
  15. 明解c语言第7章答案,明解C语言 入门篇 第六章答案
  16. android app wifi密码,手机WiFi密码显示APP
  17. 深入PCI与PCIe
  18. OpenLayers使用高德导航接口实现动画animate
  19. Thinkphp 5.0实战 仿百度糯米开发多商家电商平台
  20. 小米笔记本桌面没有计算机,没有4K屏幕，只有3.5K，小米笔记本真好用吗？

热门文章

  1. 4.6. 个人防火墙
  2. 输入一个十进制数将它转换为八进制和十六进制数
  3. 杜永光为你解析脸萌为什么这么红
  4. 利用 Python 计算资产 beta 值和市场 beta 值
  5. OPenSSL漏洞原理与安全加固
  6. 机器学习算法——朴素贝叶斯（贝努利模型和多项式模型实现分类）
  7. office办公软件安装教程
  8. office2019卸载组件_Office2019 软件安装教程 = 安卓 + Windows
  9. Linux 目录卡死
  10. Revit机电翻模插件【管线编辑】跨系统分类