//Sub 找图点击(图片)
// FindPic 0, 0, 3000, 3000, "c:\" & 图片 & ".bmp", 0.8, x, y
// If x >= 0 Then
// MoveTo x, y
// LeftClick 1
// TracePrint 图片
// End If
// Delay 500
//End Sub
//Do
// 找图点击 "完成任务"
// 找图点击 "立即装备"
//Loop
//另一种写法
Sub 找图点击(图片, 图片数量)
图标列表 = Split(图片, "|")
For i = 0 To 3
FindPic 0, 0, 3000, 3000, "c:\" & 图标列表(i) & ".bmp", 0.8, x, y
If x >= 0 Then
MoveTo x, y
LeftClick 1
TracePrint 图片
End If
Next
Delay 500
End Sub
Do
Call 找图点击("完成任务|立即装备|学习技能|自动提取",4)
Loop
按键精灵找图基础写法
最新推荐文章于 2024-12-13 14:51:02 发布