#include <IE.au3>
Local $oIE = _IECreate("http://www.baidu.com/")
_IELoadWait($oIE)
Local $oDiv = _IEGetObjById($oIE, "kw")
_IEFormElementSetValue($oDiv, "beautiful")
Local $oBtnSearch = _IEGetObjById($oIE, "su")
_IEAction ($oBtnSearch, "click")
_IELoadWait($oIE)
$oLinks = _IELinkGetCollection ($oIE)
Local $kwstr="百度词典"
For $oLink In $oLinks
$intext=_IEPropertyGet($oLink, "innertext")
Local $result = StringInStr($intext, $kwstr)
;MsgBox(0, "Link Info", "$text is " & $result)
If ($result) Then
MsgBox(0, "Link Info", "$text is " & $intext)
EndIf
Next
_IEQuit($oIE)
Local $oIE = _IECreate("http://www.baidu.com/")
_IELoadWait($oIE)
Local $oDiv = _IEGetObjById($oIE, "kw")
_IEFormElementSetValue($oDiv, "beautiful")
Local $oBtnSearch = _IEGetObjById($oIE, "su")
_IEAction ($oBtnSearch, "click")
_IELoadWait($oIE)
$oLinks = _IELinkGetCollection ($oIE)
Local $kwstr="百度词典"
For $oLink In $oLinks
$intext=_IEPropertyGet($oLink, "innertext")
Local $result = StringInStr($intext, $kwstr)
;MsgBox(0, "Link Info", "$text is " & $result)
If ($result) Then
MsgBox(0, "Link Info", "$text is " & $intext)
EndIf
Next
_IEQuit($oIE)