关于按键精灵操作

稻草人112 发表于 2021-11-7 20:12

本帖最后由稻草人112 于 2021-11-8 11:04 编辑

烦请各位大佬，这个程序怎么才能更高效的运行呢？这个查找起来有点费时间，就是无限循环。本人是小白，自己写的麻瓜程序，烦请大佬给点意见。{:301_1007:}
码在3楼，烦请大佬移位3楼查看。

稻草人112 发表于 2021-11-7 20:15

本帖最后由稻草人112 于 2021-11-7 20:34 编辑

Tap 420, 1330
Dim intX,intY
Do
Do
TracePrint SetDictEx(0, "Attachment:建设.txt")
FindStr(194,476,340,547,"建设","FDFDFD-505050",0.9,intX,intY)
If intX > -1 And intY > -1 Then
   Tap 71, 639
   Tap 70,765
   Tap 69,934
   Tap 67,1102
   Tap 440,1349
   Exit Do
   Else
   Exit Do
End If
Loop
Do
TracePrint SetDictEx(0, "Attachment:集群.txt")
FindStr(15,554,132,621,"集群","FDFDFD-505050",0.9,intX,intY)
If intX > -1 And intY > -1 Then
   Tap 72,712
   Tap 72,836
   Tap 72,965
   Tap 66, 1089
   Delay 10
   Tap 70, 1220
   Delay 10
   Tap 72,1342
   Tap 438,1554
   Exit Do
   Else
   Exit Do
End If
Loop
Do
TracePrint SetDictEx(0, "Attachment:升级.txt")
FindStr(540,479,790,543,"升级","FDFDFD-505050",0.9,intX,intY)
If intX > -1 And intY > -1 Then
   Tap 73,711
   Tap 73,837
   Tap 71,963
   Tap 72,1094
   Tap 452,1296
   Exit Do
   Else
   Exit Do
End If
Loop
Do
TracePrint SetDictEx(0, "Attachment:字体.txt")
FindStr(279,484,445,547,"字体","FDFDFD-505050",0.9,intX,intY)
If intX > -1 And intY > -1 Then
   Tap 72,713
   Exit Do
   Else
   Exit Do
End If
Loop
Do
TracePrint SetDictEx(0, "Attachment:LOGO.txt")
FindStr(330,473,495,550,"LOGO","FDFDFD-505050",0.9,intX,intY)
If intX > -1 And intY > -1 Then
   Tap 72,641
   Tap 73,768
   Tap 439,1227
   Exit Do
   Else
   Exit Do
End If
Loop
Do
TracePrint SetDictEx(0, "Attachment:公益.txt")
FindStr(286,488,451,541,"公益","FDFDFD-505050",0.9,intX,intY)
If intX > -1 And intY > -1 Then
   Tap 72,641
   Tap 74,765
   Tap 68,896
   Tap 69,1019
   Tap 454,1235
   Exit Do
   Else
   Exit Do
End If
Loop
Do
TracePrint SetDictEx(0, "Attachment:创新.txt")
FindStr(262,554,435,614,"创新","FDFDFD-505050",0.9,intX,intY)
If intX > -1 And intY > -1 Then
   Tap 71,712
   Exit Do
   Else
   Exit Do
End If
Loop
Do
TracePrint SetDictEx(0, "Attachment:调性.txt")
FindStr(652,472,796,547,"调性","FDFDFD-505050",0.9,intX,intY)
If intX > -1 And intY > -1 Then
   Tap 73,1019
   Exit Do
   Else
   Exit Do
End If
Loop
Do
TracePrint SetDictEx(0, "Attachment:描述.txt")
FindStr(201,489,368,537,"描述","FDFDFD-505050",0.9,intX,intY)
If intX > -1 And intY > -1 Then
   Tap 74,642
   Tap 70,812
   Tap 76,934
   Tap 74,1058
   Tap 444,1268
   Exit Do
   Else
   Exit Do
End If
Loop
Loop

稻草人112 发表于 2021-11-7 20:14

本帖最后由稻草人112 于 2021-11-8 11:06 编辑

@1.shui
@楚子沦i
大佬，程序能优化吗

小懒虫丶 发表于 2021-11-7 20:24

你这不就是模拟手动下载？

稻草人112 发表于 2021-11-7 20:29

小懒虫丶发表于 2021-11-7 20:24
你这不就是模拟手动下载？

是答题{:301_995:}，我是小白，只会写这么简单的，大佬能简洁一点吗？比如用call

岁月饶过谁 发表于 2021-11-7 20:49

这个是玩游戏用的吗？

稻草人112 发表于 2021-11-7 20:52

岁月饶过谁发表于 2021-11-7 20:49
这个是玩游戏用的吗？

不是，答题用的，识字选答案

小懒虫丶 发表于 2021-11-7 20:52

稻草人112 发表于 2021-11-7 20:29
是答题，我是小白，只会写这么简单的，大佬能简洁一点吗？比如用call

不懂按键精灵，可以学学POST

稻草人112 发表于 2021-11-7 20:55

小懒虫丶发表于 2021-11-7 20:52
不懂按键精灵，可以学学POST

按键精灵很简单的，都不太会，难的更不会了{:301_995:}

cheng050231 发表于 2021-11-7 20:56

利用按键精灵抓抓的提取元素功能配合紫猫插件的ElementEx.GetXYElementEx.click 试试

页: [1] 2 3 4 5

吾爱破解 - 52pojie.cn's Archiver

关于按键精灵操作