Problem with FileCreateShortcut() and certain urls

[Jos]

@mike1950rPlease stick to one topic! 

** Merged **

Edited February 27, 2023 by Jos

[mike1950r]

Sorry to everybody for my confusion.

Infact the methode creating an internet shortcut i used was completely wrong.

Nevertheless it worked for most urls.

Anyway it must be another procedure like this:

Func FileCreateInternetShortcut($sUrl, $sFileName, $sWorkingDir, $sIcon)
    Local $bSuccess, $iSec, $sIni

    $bSuccess = False

    $sWorkingDir = StringRegExpReplace($sWorkingDir, "\\+\z", "") & "\"

    If FileExists($sWorkingDir) Then
        $sFileName = StringReplace($sFileName, ".url", "") & ".url"

        $sIni = $sWorkingDir & $sFileName
        $iSec = "InternetShortcut"
        $sUrl = StringRegExpReplace($sUrl, "^.*?:/+", "")

        IniWrite($sIni, $iSec, "URL", $sURL)
        IniWrite($sIni, $iSec, "IDList", "")
        IniWrite($sIni, $iSec, "IconFile", $sIcon)
        IniWrite($sIni, $iSec, "IconIndex", "")

        $bSuccess = True
    EndIf

    Return $bSuccess
EndFunc   ;==>FileCreateInternetShortcut

This is not created by me, I just modified it for my use.
It creates another type of file not the same like FileCreateShortcut does.
It accepts all Urls and creates the internet shortcuts like Internet Explorer does.
The icon part is for those, who download the icon first from the internet sites, like me.

Anyway, I want to thank everybody for assisting me and leaving me stealing their time.

Thanks again.

Cheers mike

☺️

Edited February 27, 2023 by mike1950r

[mike1950r]

Have to set:

IniWrite($sIni, $iSec, "IconIndex", "0")

Cheers mike

Edited February 28, 2023 by mike1950r

[mike1950r]

Working fine now.

Edited February 28, 2023 by mike1950r