Call Main()

EndScript

//////////////////////////////////////子过程、函数//////////////////////////////////////

//主函数，一直循环到找到窗体为止
Sub Main()
    Dim hwnd
    Do While True
        hwnd=Plugin.Window.MousePoint()
        If Plugin.Window.GetText(hwnd)="Form1" Then
            //继续查找按钮句柄
            hwnd=Plugin.Window.FindEx(hwnd,0,0,"button1")
            If hwnd>0 Then
                Button_Click hwnd
                Exit Sub
            End If
        Else
            Delay 500
        End If
    Loop
End Sub

//每隔一秒在后台单击一下按钮
Sub Button_Click(hwnd)    
    While True
        Plugin.Bkgnd.LeftClick hwnd,0,0
        Delay 1000
    Wend
End Sub