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://google.ru/'>Google</a>
" & _
"<a href='http://yandex.ru/'>Yandex</a>
" & _
"<a href='http://mail.ru/'>MailRu</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")
_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
ConsoleWrite($o_link.href & @CRLF)
ShellExecute($o_link.href)
EndFunc ;==>_Evt_onClick