#include <IE.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode",2)
Global $oIE = _IECreateEmbedded()
Global $Form = GUICreate("测试", 700, 600, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_MAXIMIZE, $WS_SIZEBOX))
GUISetOnEvent($GUI_EVENT_CLOSE, "_DeleteWin")
GUICtrlCreateObj($oIE, 0, 0, @DesktopWidth, @DesktopHeight - 35)
_IENavigate($oIE,"http://www.soso.com/tb.q")
GUISetState()
$Div = _IETagNameGetCollection($oIE,"div",0)
$Left = _IEPropertyGet($Div,"browserx")
$Top = _IEPropertyGet($Div,"browsery")
$Width = _IEPropertyGet($Div,"width")
$Height = _IEPropertyGet($Div,"height")
MouseMove($Left, $Top)
MouseMove($Left + $Width, $Top)
MouseMove($Left+ $Width, $Top + $Height)
MouseMove($Left, $Top + $Height)
MouseMove($Left, $Top)
MouseMove($Left + $Width/2, $Top + $Height/2)
While 1
Sleep(10)
WEnd
Func _DeleteWin()
Exit
EndFunc ;==>_DeleteWin
|