按键精灵8后台命令使用示例

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