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