Creating hyperlink file (.url) to webpage (e.g. from Chrome to Windows Explorer) Topic is solved

[cadudesun]

Hi,

I’d appreciate your assistance to create a hyperlink file to a webpage, as shown in this short screencast: http://bit.ly/2QYd61f

The workflow:
- In Google Chrome, pressing a shortcut (e.g. alt+F12) would grab the webpage hyperlink, changing the focus to Windows Explorer (File Manager).
- In Windows Explorer, the link would be created having the default .url file format, in which

File name.url =
Webpage title (e.g. Life Is Beautiful Ending - YouTube.url)

File content =
[InternetShortcut]
URL=https://www.youtube.com/watch?v=K7FW7t-N4jI

Is it possible to achieve?

Thank you!
Carlos

[Xtra]

Code: Select all

#If WinActive("ahk_class Chrome_WidgetWin_1")
!F12::CreateChromeHyperlink()
#If

CreateChromeHyperlink()
{
    WinGetActiveTitle, WinTitle
    Send, {Ctrl Down}l{Ctrl Up}
    Clipboard := ""
    Sleep 50
    Send, {Ctrl Down}c{Ctrl Up}
    ClipWait, 1
    FileAppend, % "[InternetShortcut]`nURL=" . Clipboard, % StrReplace(WinTitle, " - Google Chrome") . ".url"
}

This should get you started. You can edit as needed. (add blockinput, save path, check errorlevel etc)

[cadudesun]

Hi @Xtra,

Thank you very much for the script and directions!

Could you please provide further assistance to adjust your script to send "page title" + "URL" to clipboard instead?

Example:
Webpage title (e.g. Life Is Beautiful Ending - YouTube.url)
URL (e.g. https://www.youtube.com/watch?v=K7FW7t-N4jI)

Clipboard output:

Life Is Beautiful Ending - YouTube
https://www.youtube.com/watch?v=K7FW7t-N4jI

[Xtra]

Added another function:

Code: Select all

#If WinActive("ahk_class Chrome_WidgetWin_1")
+F12::ClipChromeHyperlink()
!F12::CreateChromeHyperlink()
#If

ClipChromeHyperlink()
{
    WinGetActiveTitle, WinTitle
    Send, {Ctrl Down}l{Ctrl Up}
    Clipboard := ""
    Sleep 50
    Send, {Ctrl Down}c{Ctrl Up}
    ClipWait, 1
    Clipboard := StrReplace(WinTitle, " - Google Chrome") . "`n" . Clipboard
}

CreateChromeHyperlink()
{
    WinGetActiveTitle, WinTitle
    Send, {Ctrl Down}l{Ctrl Up}
    Clipboard := ""
    Sleep 50
    Send, {Ctrl Down}c{Ctrl Up}
    ClipWait, 1
    FileAppend, % "[InternetShortcut]`nURL=" . Clipboard, % StrReplace(WinTitle, " - Google Chrome") . ".url"
}

[cadudesun]

Thank you so much @Xtra !