按键精灵应用1

a=0

Do

Delay 2000

Hwnd = Plugin.window.Find(0,"网页消息")

Hwnd1 = Plugin.window.FindEx(Hwnd, 0, 0, "确定")  

If Hwnd1 <> 0 Then 

Call Plugin.Window.Active(Hwnd1)

Call Plugin.Bkgnd.KeyPress(Hwnd1, 13)

a = a + 1

TracePrint "单击次数："&a&"(时间："&now&")" 

End If

Loop