URL in Edit control erstellen

Das geht z.B. so:

[autoit][/autoit][autoit][/autoit][autoit]

#include <MsgBoxConstants.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>

[/autoit][autoit][/autoit][autoit]

$Form1_1 = GUICreate("URL Open", 450, 300, 191, 90)
$Edit1 = GUICtrlCreateEdit("Hallo das ist ein text http://www.google.de" & @CRLF & "Test bla http://www.AutoIt.de", 104, 104, 241, 89)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")

[/autoit][autoit][/autoit][autoit]

Opt("GUIOnEventMode", 1)

[/autoit][autoit][/autoit][autoit]

Global $aSelold

[/autoit][autoit][/autoit][autoit]

While 1

[/autoit][autoit][/autoit][autoit]

If _WinAPI_GetFocus() = GUICtrlGetHandle($Edit1) Then
$aSel = _GUICtrlEdit_GetSel($Edit1)

[/autoit][autoit][/autoit][autoit]

if $aSel[0] <> $aSelold then
;msgbox(0,"Pos",$aSel[0]) - Nur fuers Programmieren um den Bereich der URL herauszufinden
switch $aSel[0]
case 22 to 36
msgbox(0,"","Google wurde geklickt")
;Hier URL Oeffnen
case 47 to 60
msgbox(0,"","AutoIt wurde geklickt")
;Hier URL Oeffnen
EndSwitch
endif

[/autoit][autoit][/autoit][autoit]

$aSelold = $aSel[0]

[/autoit][autoit][/autoit][autoit]

endif
sleep(100)
WEnd

[/autoit][autoit][/autoit][autoit]

Func Close()
Exit
EndFunc

[/autoit]