Rem 选择窗口
Hwnd = Plugin.Window.MousePoint()
stemp=Plugin.Window.GetClass(Hwnd)
If InStr(stemp,"Internet Explorer_Server")>0 then
Else
Call Plugin.Msg.ShowScrTXT(0, 0, 400, 20,"你没有选中IE窗口", "0000FF")
Delay 300
Goto 选择窗口
End If
Call Plugin.Msg.ShowScrTXT(0, 0, 400, 20,"你已经选中IE窗口", "0000FF")
Delay 1000
Call Plugin.Msg.ShowScrTXT(0, 0, 400, 20,"请将鼠标放在按钮位置处,并按下F1键", "0000FF")
Rem 等待按键
k=WaitKey
If k=112 Then
GetCursorPos x, y
Else
Goto 等待按键
End If
sRect = Plugin.Window.GetClientRect(Hwnd)
dim MyArray
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
Call Plugin.Msg.ShowScrTXT(0, 0, 400, 20,"现在可以把鼠标拿开了,看看效果吧???", "0000FF")
Rem 继续
Call Plugin.Bkgnd.LeftClick(Hwnd, x-L, y-T)
Delay 1000
Goto 继续