#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Local $oIE = _IECreateEmbedded()
GUICreate("Embedded Web control Test", 640, 580, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 10, 40, 600, 360)
Local $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
Local $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
Local $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
Local $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
Local $GUI_Button_Search = GUICtrlCreateButton("搜索并获取数值", 450, 420, 100, 30)
GUISetState() ;显示GUI
_IENavigate($oIE, "http://www.baidu.com")
$oForm = _IEFormGetObjByName ($oIE, "f1") ;指定form名称
$oText = _IEFormElementGetObjByName ($oForm, "wd");将要获取的表单名称
$a=_IEFormElementGetValue ($oText)
; 等待用户关闭窗口
While 1
Local $msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
_IENavigate($oIE, "http://www.baidu.com")
Case $msg = $GUI_Button_Back
_IEAction($oIE, "back")
Case $msg = $GUI_Button_Forward
_IEAction($oIE, "forward")
Case $msg = $GUI_Button_Stop
_IEAction($oIE, "stop")
Case $msg = $GUI_Button_Search
_IEAction($oIE, "click")
EndSelect
WEnd
GUIDelete()
Exit
我想在搜索框输入数值后,点击$gui_button_search就可以点击搜索,请问高人,如何解决?
如何用$oForm = _IEFormGetObjByName ($oIE, "f1") ;指定form名称
$oText = _IEFormElementGetObjByName ($oForm, "wd");将要获取的表单名称
$a=_IEFormElementGetValue ($oText) |