按键精灵_截图的方式检测卡屏

Dim 地址, x1, y1, x2, y2, 连续卡屏次数, 卡屏秒数,卡屏值
For i = 0 to 卡屏秒数
    卡屏值 = 卡屏值 + i
Next
If 地址 = "" Then 
    MessageBox "请设置图片存放路径，这里是绝对路径"
End If
If x1 = "" Then 
    MessageBox "请设置图片起点x1坐标"
End If
If y1 = "" Then 
    MessageBox "请设置图片起点y1坐标"
End If
If x2 = "" Then 
    MessageBox "请设置图片终点x2坐标"
End If
If y2 = "" Then 
    MessageBox "请设置图片终点y2坐标"
End If
If 连续卡屏次数 = "" Then 
    连续卡屏次数 = 3
End If
If 连续卡屏次数 < 1 Then 
    连续卡屏次数 = 1
End If 
If 卡屏秒数 = "" Then 
    卡屏秒数 = 10
End If
If 卡屏秒数 < 2 Then 
    卡屏秒数 = 2
End If
x = 0
Do 

    kp = 0

    For i = 0 to 卡屏秒数

        //删除图片，以防出错

        Call Plugin.File.DeleteFile(地址)

        //截图

        Call Plugin.Pic.PrintScreen(x1, y1, x2, y2, 地址)

        Delay 1000

        //检测

        FindPic x1 - 2, y1 - 2, x2 + 2, y2 + 2, 地址, 1.0, intX, intY

        If intX >= 0 and intY >= 0 Then 
            kp = kp + i
        End If

    Next
    If kp = 卡屏值 Then 

        //卡屏

        If x = 连续卡屏次数 Then 

            x = 0

            MessageBox "连续卡屏" & 连续卡屏次数 & "次"

        End If

        MessageBox "卡屏" & x & "次，卡屏值为" & kp

    Else 

        x = 0

        MessageBox "正常，卡屏值为" & kp

    End If

Loop