❶ 按鍵精靈找多圖並點擊
Function countSubStr(string1,string2)
'查找string2在string1中出現的次數
start = 1
length = 1
countSubStr = 0
While start < len(string1) + 1
str = Left(string1, length)
If Instr(start, str, string2)>0 Then
countSubStr = countSubStr + 1
End If
start = start + 1
length = length + 1
Wend
End Function
Function locationPic(x1,y1,x2,y2,picName)
'查找圖片,找到後滑鼠移動到坐標
'查找區域為左上坐標x1,y1到右下坐標x2,y2
'返回boolean"True",否則返回"False",true=-1,false=0
'默認附件路徑
FindPic x1, y1, x2, y2, "Attachment:\" & picName & ".bmp", 0.8, tempX, tempY
If tempX > 0 And tempY > 0 Then
MoveTo tempX, tempY
locationPic = True
Else
locationPic = False
End If
End Function
Function findMultiPics(x1,y1,x2,y2,pics)
'找多圖,結合循環和判斷語句可以有更多玩法,
'返回值類型為boolean,true=-1,false=0
'查找區域為左上坐標x1,y1到右下坐標x2,y2
'pics可以是單圖名稱,也可以用 | 符號連接的多個圖片名
'找多圖時按照下標順序查找,找到後返回True,不再繼續查找
'默認附件路徑,在函數locationPic()中設置
separation = "|"
picArr = split(pics, separation)
cntSS = countSubStr(pics, separation)
If cntSS = 0 Then
findMultiPics = locationPic(x1, y1, x2, y2, pics)
Else
picCnt = 0
While picCnt <= cntSS
findMultiPics = locationPic(x1, y1, x2, y2, picArr(picCnt))
If findMultiPics = True Then
Goto ExitWhile
End If
picCnt = picCnt + 1
Wend
Rem ExitWhile
End If
End Function
Function loopFindMultiPics(x1,y1,x2,y2,pics)
'增強版找多圖,找不到目標圖片就一直找,直到找到為止
'返回值類型為boolean,true=-1,false=0
'查找區域為左上坐標x1,y1到右下坐標x2,y2
'pics可以是單圖名稱,也可以用 | 符號連接的多個圖片名
'找多圖時按照下標順序查找,找到後返回True,不再繼續查找
'默認附件路徑,在函數locationPic()中設置
separation = "|"
picArr = split(pics, separation)
cntSS = countSubStr(pics, separation)
Do
If cntSS = 0 Then
loopFindMultiPics = locationPic(x1, y1, x2, y2, pics)
If loopFindMultiPics = True Then
Exit Do
End If
Else
picCnt=0
While picCnt <= cntSS
loopFindMultiPics = locationPic(x1, y1, x2, y2, picArr(picCnt))
If loopFindMultiPics = True Then
Exit Do
End If
picCnt = picCnt + 1
Wend
End If
Loop
End Function
'想要返回偏移坐標可以調用tempX和tempY
❷ 按鍵精靈如何判斷一張圖出現的次數
Function查找屏幕圖片數量(左坐標,上坐標,右坐標,下坐標,圖片路徑,相似度)
//A1.B1.C1.D1是為了便於設置找圖的范圍
DimA1,B1,C1,D1,a,b,c,d,n,x,y,H
A1=左坐標:B1=上坐標:C1=右坐標:D1=下坐標
//(a.b.c.d)不要修改
a=A1:b=B1:c=C1:d=D1
//n是圖片的數量
n=0
Rem循環搜索
CallFindPic(a,b,c,d,圖片路徑,相似度,x,y)
If(x>=0andy=banda=A1)Or(x>=0andy=banda<>A1)Or(x>=0anda=A1andy<>b)Then
n=n+1:H=y:a=x+1:b=y
保存坐標=保存坐標&x&","&y&"|"
Goto循環搜索
ElseIfa>A1Then
a=A1:b=H+1
Goto循環搜索
EndIf
查找屏幕圖片數量=n
EndFunction左坐標=0:上坐標=0
右坐標=1024:下坐標=768
圖片路徑="d:UserschenDesktop.bmp"
相似度=1
aa=查找屏幕圖片數量(左坐標,上坐標,右坐標,下坐標,圖片路徑,相似度)
TracePrintaa
TracePrint保存坐標
❸ 請問按鍵精靈如何循環找多個圖
按鍵精靈循環找多個圖的功能可以通過在工具欄的腳本中添加重復語句的方法實現。按鍵精靈是一款輔助軟體,具有腳本語句、錄制鍵鼠操作、多界面編輯、腳本向導、命令庫加密、雲腳本儲存、製作腳本、文獻檢索、內置資源庫、自動收發郵件等特點功能。
更多關於按鍵精靈如何循環找多個圖,進入:https://www.abcgonglue.com/ask/3ea4241615823959.html?zd查看更多內容
❹ 按鍵精靈怎麼判斷一張圖片出現次數
Function查找屏幕圖片數量(左坐標,上坐標,右坐標,下坐標,圖片路徑,相似度)
//A1.B1.C1.D1是為了便於設置找圖的范圍
DimA1,B1,C1,D1,a,b,c,d,n,x,y,H
A1=左坐標:B1=上坐標:C1=右坐標:D1=下坐標
//(a.b.c.d)不要修改
a=A1:b=B1:c=C1:d=D1
//n是圖片的數量
n=0
Rem循環搜索
CallFindPic(a,b,c,d,圖片路徑,相似度,x,y)
If(x>=0andy=banda=A1)Or(x>=0andy=banda<>A1)Or(x>=0anda=A1andy<>b)Then
n=n+1:H=y:a=x+1:b=y
保存坐標=保存坐標&x&","&y&"|"
Goto循環搜索
ElseIfa>A1Then
a=A1:b=H+1
Goto循環搜索
EndIf
查找屏幕圖片數量=n
EndFunction左坐標=0:上坐標=0
右坐標=1024:下坐標=768
圖片路徑="d:UserschenDesktop.bmp"
相似度=1
aa=查找屏幕圖片數量(左坐標,上坐標,右坐標,下坐標,圖片路徑,相似度)
ifaa=1then
//執行程序
Elseifaa=2then
//執行b
Else
//不執行
Endif
❺ 按鍵精靈怎麼找多圖啊
找圖命令,判定指定窗口1920X1080區域,查找圖片a.bmp,找到該圖執行命令
FindPic 0+Ux,0+Uy,1920+Ux,1080+Uy,"Attachment:\a.bmp",0.8,aX,aY
If aX > 0 And aY > 0 Then
FindPic 0+Ux,0+Uy,1920+Ux,1080+Uy,"Attachment:\b.bmp",0.8,bX,bY
If bX > 0 And bY > 0 Then
//尋找圖a,找圖b,雙圖找到到後執行命令
End If
End If
❻ 按鍵精靈如何找多圖
如圖:
注意修改圖片路徑及查找間隔。
//查找圖一是否存在
FindPic 0,0,1024,768,"Attachment:圖一.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到了圖一後,等待一段時間後,繼續查找圖二
intX = 0 : intY = 0
Delay 1000//等待時間(ms)
//查找圖二是否存在
FindPic 0,0,1024,768,"Attachment:圖二.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到了圖二後,等待一段時間後,繼續查找圖三
intX = 0 : intY = 0
Delay 1000//等待時間(ms)
//查找圖三是否存在
FindPic 0,0,1024,768,"Attachment:圖三.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到了圖三。
intX = 0 : intY = 0
MessageBox "已找到圖三"
End If
End If
End If