Email / Hyperlink anklicken

**BugFix**

Zitat von autoBert

@Mod/Admin: bitte wegen mangenlder Selbstbeteiligung schliessen

Kann ich zwar nachvollziehen, aber das geht dann doch etwas über unsere eigenen Regeln hinaus.

@TE:
Wenn du im Internet durch Rumgeklicke Geld verdienen möchtest, ist das deine Sache.
Wenn das rechtlich zulässig ist, interessiert es mich auch nicht weiter.
Aber:
Ich sehe keinen Grund, dass wir dir dabei helfen Geld zu verdienen. Wir sind nicht die Wohlfahrt und unser Einsatz hier im Forum ist für umme.
Und solange du kein Skript lieferst an dem du ein Problem hast, ist dieses hier tatsächlich der falsche Platz für deine Frage.

Es liegt nun an dir, ob und wie es weiter geht. Die entsprechenden Entscheidungswege wurden dir hier aufgezeigt.

butter

Spoiler anzeigen

Ich habe hier von Oscar die UDF mal genommen und bisschen von dem seinem Script gespickt

Ein Teil des Scriptes:

Spoiler anzeigen

[autoit]

Local $aPos, $aMsg, $iSelect, $iNumber, $sEMail
_FileCreate("C:/test.txt")
For $i = 0 To $iAccount - 1
If $aAccount[$i][0] = GUICtrlRead($hAccount) Then $iSelect = $i
Next
$aSelect = _GUICtrlListView_GetSelectedIndices($hLVHandle, True)
If $POP3_ISCONNECTED Or _POP3Connect("xxx@gmx.de","pw","pop.gmx.net") Then
$iNumber = _GUICtrlListView_GetItemText($hLVHandle, $aSelect[1], 0)
$sEMail = _POP3Retr($iNumber)
If $sEMail = '0' Then
MsgBox(0,"Error","Error")
EndIf
$txt = "C:\test.txt"
FileWrite($txt,$sEMail)
;$string1
ShellExecute($string1,1)
EndIf

[/autoit]

da wo ;$string1 steht, weiß ich nicht welche String-Funktion ich dafür brauche.
Ich bräuchte sowas ähnliches:

[autoit]

StringInStr($txt, "http://")

[/autoit]

Nur das die func, die komplette URL kopieren soll.
Oder wäre es auch möglich in der .txt nach http:// die Zeile zu suchen, und die Zeile(URL) mit ShellExecute ausführen ?
Aber da wäre es günstiger den String zu suchen, oder?

MfG

Habe die Func gefunden die ich suche, aber ich versteh das nicht so ganz, was ich da einsetzen.soll ..
Das Beispiel:

[autoit]

Dim $array[2]

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

$array[0] = "425-65-XY4587543-ghzgt7"
$array[1] = "4 25-65 XY4587543-ghzgt7"

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

For $i = 0 To UBound($array) - 1
$regexp = StringRegExp($array[$i], "(?:\-XY| XY)\d*\-", 3)
_ArrayDisplay($regexp, $array[$i])
Next

[/autoit]

MfG