按键精灵如果找不到A图片则执行依次点击B、C、D图片

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

x = Plugin.Sys.GetScRX()
y = Plugin.Sys.GetScRY()
Do
    For i = 1 To 4
        FindPic 0, 0, x, y, "Attachment:\" & i & ".bmp", 0.9, intX, intY
        If intX > 0 And intY > 0 and i = 1 Then 
            Delay 200
            MoveTo intX, intY
            Delay 200
            LeftClick 1
            Exit Do 
        ElseIf intX > 0 And intY > 0 and i = 2 and b=0 Then
            Delay 200
            MoveTo intX, intY
            Delay 200
            LeftClick 1
            b=1
        ElseIf intX > 0 And intY > 0 and i = 3  and b=1 Then
            Delay 200
            MoveTo intX, intY
            Delay 200
            LeftClick 1
            c=1
        ElseIf intX > 0 And intY > 0 and i = 4  and c=1  Then
            Delay 200
            MoveTo intX, intY
            Delay 200
            LeftClick 1
            d=1
        End If
        Delay 100
    Next
Loop

图片名为1、2、3、4四张图放到附件,记得用抓抓截。