按键精灵 脚本找多个同样的图依次点击

2024年11月27日 15:29
有3个网友回答
网友(1):

Hwnd = Plugin.Window.MousePoint()
Arr = Split(Plugin.Window.GetWindowRect(Hwnd), "|")
Do
Call 找多图(Arr(0), Arr(1), Arr(2), Arr(3), "Attachment:\1.bmp", 1.0)
Loop
Function  找多图(起点X,起点Y,终点X,终点Y,图片,相似度)
    Dim tx, ty, tx1, ty1
    找到的坐标=""
    tx = 起点X : ty = 起点Y : tx1 = 终点X : ty1 = 终点Y
    Do
        FindPic tx, ty, tx1, ty1, 图片, 相似度, intX, intY
        If intX > 0 and intY > 0 Then 
            找到的坐标 = 找到的坐标 & intX & "," & intY & "|"
            MoveTo intX,intY
                Delay 100
            LeftClick 1
                            Delay 100
            tx = intX + 5
            ty = intY
        Else 
            ty = ty + 5
            tx = 起点X
            If intX = - 1  and intY = - 1  Then
                FindPic tx, ty, tx1, ty1, 图片,相似度, intX, intY
                If intX > 0 and intY > 0 Then 
                    找到的坐标 = 找到的坐标 & intX & "," & intY & "|"
                    MoveTo intX,intY
                Delay 100
            LeftClick 1
                            Delay 100
                    tx = intX + 5
                    ty = intY
                Else 
                    Exit Do
                End If
            End If
        End if
    Loop
  End Function

网友(2):

题目不够明朗,你的这些文件如果是桌面固定位置直接取坐标点就行,要是不固定位置你这个脚本需要大量编写区域找图,就是把全屏分成图标小区域,因为一个图标只能固定在一个区域,某个区域找到满足条件的图,则重头筛查区域并略过第一次找到的区域,以此类推可以实现。但是利用找图来判断十个文本是不行的,他不够精确来调用哪个文本,找字才能精准调用你需要打开的文本1-10依次打开。你打开文本又不执行动作。。。叫人搞不懂。如果你只想问除了找字用什么方法可以得到你这个要求,你可以用句柄能精准实现。

网友(3):

目不够明朗,你的这些文件如果是桌面固定位置直接取坐标点就行