iibull

iibull

关注
发信
基于 HTML5 WebGL 的 3D 渲染引擎构建工厂运作系统
多线程条件下的计数器(2)
接口bus的含义
ABAP获取过账日期之间的年度
灯光设计 herve leger cheap
在.NET中使用DiagnosticSource
php session 跨域的解决办法
【PS平面设计教程】6种最常用抠图技巧，十万人都抢着收藏
用Java实现FTP批量大文件上传下载(五)
python脚本模拟发送http请求时获取response.read()一直为空，获取不到值
亿万富翁陷美国史上最大逃税案 涉案金额20亿美元
构建Android 1.5系统映像
初二男生长假带作业骑行395公里怎么回事？具体详情曝光太有意义了
android 细节注意
愿灾难过去，死者安息，生者勇敢

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

扫码查看
一个demo 包含函数定义, 鼠标动作, 键盘输入, 时间控制, 流程控制, 跳转. 以后可供参考

点击(此处)折叠或打开

  1. '搜索的视图大小。
  2. STD_LEFT = 20
  3. STD_TOP = 100
  4. STD_RIGHT = 620
  5. STD_BOTTOM = 1000
  6.     
  7. Function DoClick
  8.     LeftDown 1
  9.     Delay 20
  10.     LeftClick 1
  11.     Delay 20
  12.     LeftUp 1
  13.     Delay 1
  14.     LeftUp 1
  15.     Delay 1
  16. End Function

  18. Function CloseAGWindow
  19.     MoveTo 616, 8
  20.     Delay 500
  21.     LeftClick 1
  22.     LeftUp 1
  23. End Function

  25. Function LoadAGFromIM
  26.     CloseAGWindow
  27.     '==========以下是按键精灵录制的内容========== 需要把 99U 放置在屏幕右下角， 非自动隐藏状态。    
  28.     iconRetry = 3
  29.     While (iconRetry > 0)
  30.         img = "C:\Users\ray\Desktop\AG_BMP\AppIco.bmp"
  31.         FindPic 1000, 990, 1200, 1020, img, 0.9, BmpPos(0), BmpPos(1)
  32.         If (BmpPos(0) >= 0) Then
  33.             iconRetry = 0
  34.         Else
  35.             Delay 1000
  36.             iconRetry = iconRetry -1
  37.         End If
  38.     Wend
  39.     
  40.     If (BmpPos(0) <= 0) Then
  41.         BmpPos (0) = 1055
  42.         BmpPos(1) = 1008
  43.     End If
  44.     
  45.     If (BmpPos(0) >= 0) Then
  46.         MoveTo BmpPos(0), BmpPos(1)
  47.         Delay 100
  48.         LeftDoubleClick 1
  49.         Delay 78
  50.         MoveTo 1017, 564
  51.         LeftClick 1
  52.     End If    
  53.     
  54.     MoveTo 1017, 564
  55.     LeftClick 1
  56.     
  57. '==========以上是按键精灵录制的内容==========
  58. End Function

  60. Function btnBackClick        '返回按钮。
  61.     MoveTo 89,116
  62.     DoClick
  63. End Function

  65. Function ReloadApp            ' 浏览器刷新菜单
  66.     MoveTo 79,62
  67.     DoClick
  68. End Function


  71. '全局， 根据图像列表， 找到第一个匹配的对象， 并返回坐标点。
  72. Dim BmpList(100)
  73. Dim BmpIdx        '当前正在查找图像的位置 0 坐标开始
  74. Dim BmpPos(2) '第一个找到的坐标位置。 X， Y

  76. Function FindBmp(bmpPath)
  77.     img = "C:\Users\ray\Desktop\AG_BMP\"' & bmpPath & "bmp"
  78.     img = img & bmpPath
  79.     img = img & ".bmp"
  80.     isFileExist = Plugin.File.IsFileExist(img)
  81.     If isFileExist = True Then
  82.         FindPic STD_LEFT, STD_TOP, STD_RIGHT, STD_BOTTOM, img, 0.9, BmpPos(0), BmpPos(1)
  83.     Else
  84.         BmpPos(0) = -1
  85.         BmpPos(1) = -1
  86.     End If
  87.     
  88.     FindBmp = BmpPos(0)
  89.     If (BmpPos(0) > 0) And (BmpPos(1) > 0) Then //得到确切的位置。即中心点坐标。
  90.         Set Bmp = CreateObject("WIA.ImageFile")
  91.         Bmp.LoadFile (img)
  92.         width = Bmp.Width
  93.         height = Bmp.Height
  94.         BmpPos(0) = BmpPos(0) + Round(width/2)
  95.         BmpPos(1) = BmpPos(1) + Round(height/2)
  96.     End If        
  97. End Function

  99. '从 BmpList 中前 bmpCnt个中依次查找， 找到的内容进行反馈到 bmpInx 和 BmpPos中。
  100. Dim BmpNamePrefix '图片前缀
  101. Function LocateBmpFromList(BmpNameCnt) '图片个数
  102.     BmpList(0) = BmpNamePrefix    
  103.     idx = 1
  104.     While idx < BmpNameCnt
  105.         img = BmpNamePrefix & "_" & (idx - 1)
  106.         BmpList(idx) = img        
  107.         idx = idx + 1
  108.     Wend
  109.     
  110.     idx = 0
  111.     While idx < BmpNameCnt
  112.         FindBmp (BmpList(idx))
  113.         If (BmpPos(0) > 0) And (BmpPos(1) > 0) Then
  114.             BmpIdx = idx
  115.             LocateBmpFromList = BmpIdx
  116.             Exit Function
  117.         End If
  118.         idx = idx + 1
  119.     Wend
  120.     
  121.     BmpIdx = -1
  122. End Function

  124. MinSpan = 5
  125. DefSpan = 10
  126. sMinute = -10
  127. eMinute = 0
  128. spanMinute = 0
  129. iNewDay = - 1
  130. iTimeEscape = 0
  131. iDoNothing = 0
  132. sHour = 0 // reload per hour

  134. Function InitVariant
  135.     If (iNewDay < 0) Then
  136.         iNewDay = Date
  137.         sMinute = -10
  138.     End If
  139. End Function

  141. Function CheckMinuteSpan
  142.     eMinute = Minute(Now)
  143.     If eMinute >= sMinute Then
  144.         spanMinute = eMinute - sMinute
  145.     Else
  146.         spanMinute = eMinute - sMinute + 60
  147.     End If
  148. End Function

  150. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  151. DebugImgIndex = 0
  152. ' 主程序开始
  153. Rem LOOP_START

  155. eHour = Hour(Now)
  156. If (eHour <> sHour) Then
  157.     sHour = eHour    
  158.     'LoadAGFromIM '重新启动一个守护实例， 查看是否打工成功。
  159. End If

  161. Delay 1000
  162. InitVariant
  163. iDoNothing = iDoNothing + 1

  165. '========= 首页， 领取金币按钮 ==========
  166. BmpNamePrefix = "GetCoin"
  167. LocateBmpFromList(5)
  168. If (BmpIdx >= 0) Then
  169.     MoveTo BmpPos(0),BmpPos(1)                ' 领取金币位置
  170.     DoClick
  171.     Goto LOOP_START
  172. End If

  174. '========= 一键获取 按钮 ==========
  175. BmpNamePrefix = "btnOneKeyGet"
  176. LocateBmpFromList(5)

  178. If (BmpIdx >= 0) Then
  179.     CheckMinuteSpan
  180.     If (spanMinute
  181.         btnBackClick
  182.     Else
  183.         sMinute = Minute(Now)    
  184.         MoveTo BmpPos(0), BmpPos(1)        
  185.         DoClick    
  186.         Delay 6000'等待倒计时结束
  187.     End If
  188. End If

  190.  
  191. ' 一键获取后出现的不理会和领取的按钮。
  192. BmpNamePrefix = "btnGetit"
  193. LocateBmpFromList(5)
  194. If (BmpIdx >= 0) Then
  195.     MoveTo BmpPos(0),BmpPos(1)                
  196.     DoClick
  197.     Delay 1000
  198.     'Goto LOOP_START
  199. End If

  201. ' 一键获取后的关闭未处理事件。
  202. BmpNamePrefix = "btnClose"
  203. LocateBmpFromList(5)
  204. If (BmpIdx >= 0) Then
  205.     MoveTo BmpPos(0),BmpPos(1)                
  206.     DoClick
  207.     Delay 1000
  208.     'Goto LOOP_START
  209. End If
  210. '========= 一键获取后， 完成打工的“尚有未处理事件”的提示框 ==========
  211. BmpNamePrefix = "btnOneKeyGetEvent"
  212. LocateBmpFromList(5)
  213. If (BmpIdx >= 0) Then
  214.     MoveTo BmpPos(0),BmpPos(1)                
  215.     DoClick
  216.     Delay 1000
  217.     'Goto LOOP_START
  218. End If
  219. '========= 无人打工的界面 ==========
  220. BmpNamePrefix = "AddSym"
  221. LocateBmpFromList(5)
  222. If (BmpIdx >= 0) Then
  223.     MoveTo BmpPos(0),BmpPos(1)                
  224.     DoClick
  225.     Delay 3000
  226.     sMinute = Minute(Now)    
  227.     'Goto LOOP_START
  228. End If

  230. '========= 新派遣打工 按钮 ==========
  231. BmpNamePrefix = "StartWork"
  232. LocateBmpFromList(5)
  233. If (BmpIdx >= 0) Then
  234.     sMinute = Minute(Now)
  235.     MoveTo 300,940
  236.     DoClick
  237.     Delay 1000
  238.     'LoadAGFromIM '重新启动一个守护实例， 查看是否打工成功。
  239.     
  240.     Goto LOOP_START
  241. End If            

  243. '========= 首页， 派遣按钮 ==========
  244. BmpNamePrefix = "btnStart"
  245. LocateBmpFromList(5)
  246. If (BmpIdx >= 0) Then
  247.     CheckMinuteSpan
  248.     If (spanMinute >= DefSpan) Then
  249.         MoveTo 212,941
  250.         DoClick
  251.         Delay 1000
  252.     End If
  253.     
  254.     Goto LOOP_START
  255. End If

  257. '========= 生产按钮 ==========
  258. BmpNamePrefix = "btnProduce"
  259. LocateBmpFromList(5)
  260. If (BmpIdx >= 0) Then
  261.     MoveTo BmpPos(0),BmpPos(1)
  262.     DoClick
  263.     Goto LOOP_START
  264. End If
  265. '====== MoreSee , repeat for more times doWorker action =====
  266. BmpNamePrefix = "MoreWorker"
  267. LocateBmpFromList(5)
  268. If (BmpIdx >= 0) Then
  269.     MoveTo BmpPos(0),BmpPos(1)    
  270.     DoClick
  271.     Goto LOOP_START
  272. End If

  274. '========= 重复登录按钮 ==========
  275. BmpNamePrefix = "btnExit"
  276. LocateBmpFromList(5)
  277. If (BmpIdx >= 0) Then     
  278.     '此时可能在手机端有操作， 那么冗余10分钟时间给手机端使用。
  279.     Delay 600000
  280.     MoveTo BmpPos(0), BmpPos(1)
  281.     DoClick
  282.     Goto LOOP_START
  283. End If

  285. '========= 个人中心页面/ 天使名*录页面 ==========
  286. BmpNamePrefix = "selfcenter"
  287. LocateBmpFromList(5)
  288. If (BmpIdx >= 0) Then
  289.     btnBackClick
  290.     Goto LOOP_START
  291. End If
  292. BmpNamePrefix = "SomeBody"
  293. LocateBmpFromList(5)
  294. If (BmpIdx >= 0) Then
  295.     btnBackClick
  296.     Goto LOOP_START
  297. End If

  299. '========= 每日签到 ==========
  300. BmpNamePrefix = "SigIn"
  301. LocateBmpFromList(5)
  302. If (BmpIdx >= 0) Then
  303.     MoveTo BmpPos(0),BmpPos(1)
  304.     DoClick
  305.     Delay 1000
  306. End If

  308. BmpNamePrefix = "SigOK"
  309. LocateBmpFromList(5)
  310. If (BmpIdx >= 0) Then
  311.     BmpNamePrefix = "SigClose"
  312.     LocateBmpFromList(5)
  313.     If (BmpIdx >= 0) Then
  314.         MoveTo BmpPos(0),BmpPos(1)
  315.         DoClick
  316.         'LoadAGFromIM '重新启动一个守护实例， 查看是否打工成功。
  317.         Goto LOOP_START
  318.     End If
  319. End If



  323. '========= 如果到此， 判断是否在主页上。 ==========
  324. BmpNamePrefix = "MainPage"
  325. LocateBmpFromList(5)
  326. If (BmpIdx >= 0) Then
  327.     inMainPage = 1
  328. Else
  329.     inMainPage = 0
  330. End If

  332. If (inMainPage = 0) Then
  333.     iTimeEscape = iTimeEscape + 1
  334. Else
  335.     iTimeEscape = 0
  336. End If

  338. If (iTimeEscape = 20) Then
  339.     'LoadAGFromIM
  340.     iTimeEscape = 0
  341. ElseIf (iTimeEscape = 10) Then
  342.     ReloadApp
  343. Else
  344.     If (iTimeEscape = 5) Then
  345.         btnBackClick
  346.         Delay 1000
  347.     End If
  348. End If


  351. 'imgDebug = CStr(Month(Now)) & "-" & CStr(Day(Now)) & "_" & CStr(Hour(Now)) & "." & CStr(Minute(Now)) & "_" & CStr(DebugImgIndex) & ".bmp"
  352. 'imgDebug = "C:\Users\ray\Desktop\AG_BMP\ScreenShot\" & imgDebug
  353. 'Call Plugin.Pic.PrintScreen(0, 0, 600, 1000, imgDebug)
  354. 'DebugImgIndex = DebugImgIndex + 1

  356. '随机点击' 存在某些弹出框， 例如每日签到等情况
  357. If (iTimeEscape = 5 ) Then
  358.     rndPosX = 320
  359.     rndPosY = 300
  360.     
  361.     While rndPosY < 900
  362.         MoveTo rndPosX, rndPosY
  363.         DoClick
  364.         Delay 10
  365.         rndPosY = rndPosY + 20
  366.     Wend
  367. End If



10-26 03:03
查看更多
Powered by LMLPHP ©2025 iibull 0.076434