Bookmark to Desktop

; Bookmark to desktop
; https://autohotkey.com/docs/commands/FileCreateShortcut.htm
; IniWrite, http://www.google.com, C:\My Shortcut.url, InternetShortcut, URL
#IfWinActive, Chrom
    F1::
    ^d::
    ; directory
        dir = %A_Desktop%
    ; Get title
        WinGetTitle, title, Chrom
        title := StrReplace(title, "- Google Chrome")
        ; name file are not allow special characters
        if (title != "")
        {
            StringReplace, title, title, `", ', All
            StringReplace, title, title, *, •, All
            StringReplace, title, title, :, ÷, All
            StringReplace, title, title, /, ¦, All
            StringReplace, title, title, |, ¦, All
            StringReplace, title, title, ?, ¿, All
            StringReplace, title, title, `n, %A_Space%~%A_Space%, All
        }
    ; Get url
        Send !c
        Sleep 100
        url = %Clipboard%
    ; Join
        path = %dir%\%title%.url
    ; Write to local
        if (url != "" and title != "")
        {
            IniWrite, %url%, %path%, InternetShortcut, URL
            ToolTip, %path%
            Sleep, 1000
            ToolTip
        }
    return
#IfWinActive