试试下面的代码,看能否满足你的需求。#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$Form1 = GUICreate("示例", 623, 442, -1, -1)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 8, 8, 602, 420)
GUISetState(@SW_SHOW)
_IENavigate($Obj1, 'http://mail.163.com')
MsgBox(0, '注意', '垂直滚动条将下移 100 ')
$Obj1.document.parentWindow.scrollBy(0, 100)
MsgBox(0, '再次注意', '水平滚动条将右移 50')
$Obj1.document.parentWindow.scrollBy(50, 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
|