StringRegExp

$nOffset = 1
While 1
    $array = StringRegExp('"http://www.autoitscript.com/forum/"index.php?showtopic=38568&hl=Regexp+http" kjhttp://www.163.com/    khttphttphttpjlj', 'http://[^ ,\r\n,",\s]*', 2, $nOffset)


    If @error = 0 Then
        $nOffset = @extended
    Else
        ExitLoop
    EndIf
    for $i = 0 to UBound($array) - 1
        msgbox(0, "Script. Start - Add your code below here", $array[$i])
    Next
WEnd