#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $hRichEdit
Main()
Func Main()
Local $hGui, $sText = 'AutoIt v3 - бесплатный скриптовый язык, созданный для автоматизации графического интерфейса пользователя Windows (GUI) и ' & _
'создания скриптов общего назначения. Он использует сочетание имитации нажатий клавиш, движений мыши и работу с окнами/управляющими элементами, ' & _
'чтобы автоматизировать задачи в случаях, когда использование других языков невозможно или ненадежно. AutoIt имеет малый размер и не требует ' & _
'наличия каких-либо сторонних библиотек в системе.'
$sText = StringRegExpReplace($sText, '(?is)([a-z]+)', 'news:$1')
$hGui = GUICreate(StringTrimRight(@ScriptName, 4), 420, 350)
$hRichEdit = _GUICtrlRichEdit_Create($hGui, '', 10, 10, 400, 220, _
BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
GUISetState()
GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')
_GUICtrlRichEdit_SetEventMask($hRichEdit, $ENM_LINK)
_GUICtrlRichEdit_AutoDetectURL($hRichEdit, True)
_GUICtrlRichEdit_AppendText($hRichEdit, $sText)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_GUICtrlRichEdit_Destroy($hRichEdit)
GUIDelete()
Exit
EndSwitch
WEnd
EndFunc ;==>Main
Func WM_NOTIFY($hWnd, $iMsg, $iWparam, $iLparam)
#forceref $hWnd, $iMsg, $iWparam
Local $hWndFrom, $iCode, $tNMHDR, $tEnLink, $cpMin, $cpMax, $tMsgFilter
$tNMHDR = DllStructCreate($tagNMHDR, $iLparam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, 'hWndFrom'))
$iCode = DllStructGetData($tNMHDR, 'Code')
Switch $hWndFrom
Case $hRichEdit
Select
Case $iCode = $EN_LINK
$tMsgFilter = DllStructCreate($tagMSGFILTER, $iLparam)
If DllStructGetData($tMsgFilter, 'msg') = $WM_LBUTTONUP Then
$tEnLink = DllStructCreate($tagENLINK, $iLparam)
$cpMin = DllStructGetData($tEnLink, 'cpMin')
$cpMax = DllStructGetData($tEnLink, 'cpMax')
_MyFunc(_GUICtrlRichEdit_GetTextInRange($hRichEdit, $cpMin, $cpMax))
EndIf
EndSelect
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _MyFunc($s_Message)
$s_Message = StringReplace($s_Message, 'news:', '')
MsgBox(64, 'Info', 'Message: ' & '>' & $s_Message & '<')
EndFunc ;==>_MyFunc