关于按键精灵操作

稻草人112

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

稻草人112

[Visual Basic] 纯文本查看 复制代码

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

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

小懒虫丶

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

稻草人112

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

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

岁月饶过谁

这个是玩游戏用的吗？

稻草人112

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

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

小懒虫丶

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

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

稻草人112

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

按键精灵很简单的，都不太会，难的更不会了

cheng050231

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