Opt("GUICloseOnESC", 0)
#include <IE.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
Global $sCode, $oIE
$sCode = "<html><body><table width=100% height=100%><tr><td align=center>" & _
"<a href='http://example.org/test/page.html'>Это пример ссылки, на которую нужно нажать</a>
" & _
"</td></tr></table></body></html>"
$oIE = _IECreateEmbedded()
Global $gui = GUICreate("test event", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
Global $obj = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
GUICtrlSetState($obj, $GUI_FOCUS)
GUISetState(@SW_SHOW)
_IENavigate($oIE, "about:blank")
_IEAction($oIE, "stop")
$oIE.document.open()
$oIE.document.write($sCode)
$oIE.document.close()
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
$sLinkId = _IEPropertyGet($oLink, "uniqueid")
ConsoleWrite("unique id: "&$sLinkId&@CRLF)
_IEHeadInsertEventScript($oIE, $sLinkId, "onclick", "return false;")
_IEHeadInsertEventScript($oIE, $sLinkId, "oncontextmenu", "return false;")
ObjEvent($oLink, "_Evt_")
Next
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
GUIDelete()
Func _Evt_onClick()
Local $o_link = @COM_EventObj
MsgBox(64, 'clicked', "Вы нажали на ссылку "&@CRLF&"URL адрес: "&$o_link.href&@CRLF&"Текст: "&$o_link.innerText&@CRLF&"Здесь уже делайте что хотите", 60, $gui)
EndFunc ;==>_Evt_onClick