AutoHotkey: Make shortcut file from clipboard contents

Make a new shortcut (*.LNK for local targets, *.URL for internet URLs),

-taking the clipboard's contents as target address and

-trying to auto-detect the file name for *.lnk/*.url

Leaves only the last RETURN key press to the user, the rest is automated.

Related links:

• TC Forum discussion

; /////////////////////////////////////////////////////////////////////
; // MkNewShortcut_from_Clipboard.ahk v1.22  -  (W) StatusQuo 2008-2021
; /////////////////////////////////////////////////////////////////////
; // Make new shortcut (lnk/URL) using actual clipboard information.
; // Tested on Win2k SP4 (v1.01) and Win7 (Update v1.10..v1.22).
; // Probably not working on WinVista: MS removed the NewLinkHere function and put it back in Win7.
; //
; // Thanks to icfu for pointing me to appwiz.cpl function
; /////////////////////////////////////////////////////////////////////

#SingleInstance, ignore
#NoEnv
#Warn

boDebug := "0"
sRunCmd = rundll32.exe appwiz.cpl`,NewLinkHere %A_WorkingDir%\
sWinTitleNewLinkW7  := "ahk_class NativeHWNDHost"
sWinTitleNewLinkW2k := "ahk_class #32770"
sTempFileName       := A_WorkingDir . "\" . A_Now . "_" . A_ScriptName . ".tmp"
if not (boDebug)
	sURL := Clipboard
;
; *** W2k
DlgUrlEdit  := "Edit1"
DlgUrlBut   := "Button3"
DlgFileEdit := "Edit1"
;DlgFileBut  := 	; *** using manual Enter!
; *** W7
if A_OSVersion in WIN_95,WIN_98,WIN_ME,WIN_NT4,WIN_2000,WIN_XP	; *** WIN_VISTA: unsupported by MS tool; Win_7: new syntax for MS tool
{
} else {
	FileAppend,, %sTempFileName%
	sRunCmd = rundll32.exe appwiz.cpl`,NewLinkHere %sTempFileName%
	DlgUrlEdit  := "Edit1"
	DlgUrlBut   := "Button1"
	DlgFileEdit := "Edit2"
	;DlgFileBut  := "Button2"	; *** using manual Enter!
}

Run, %sRunCmd%
Loop, 12
{
	Sleep, 300
	IfWinActive, %sWinTitleNewLinkW2k%	; *** Win2k
		Break
	IfWinActive, %sWinTitleNewLinkW7%	; *** Win7
		Break
}
IfWinNotActive, %sWinTitleNewLinkW7%
	IfWinNotActive, %sWinTitleNewLinkW2k%
	{
		MsgBox, *** Error: `n`nWaiting for CreateLink-Window timed out.
		ExitApp
	}
ControlSetText, %DlgUrlEdit%, %sURL%
Sleep, 250	; *** let user get a quick look at the URL
ControlClick,   %DlgUrlBut%	; ControlSend,    %DlgUrlEdit%, {ENTER}
Sleep, 250	; *** time to display 2nd window (target file name)

sFileName := sURL	; %Clipboard%
{		; Clipboard = Internet or local URL
		; StringGetPos: zero-based, first char is #0
		; InStr()     :  One-based, first char is #1
		; ---------
		; *** trim left of file name, after last (back)slash
	StringGetPos, iPosLastSep, sFileName, /, R	; *** 0=first char, -1=not found
	if (iPosLastSep < 0)	; *** Clipboard = local path
	{
		StringGetPos, iPosLastSep, sFileName, \, R	; *** 0=first char, -1=not found
	}
	if (iPosLastSep < 0)	; *** Clipboard = useless
	{
		Exit
	}
	if (iPosLastSep + 1 >= StrLen(sFileName))	; *** last char is separator/(back)slash, no filename found in clipboard
	{
		Exit
	} else {
		StringMid, sFileName, sFileName, iPosLastSep + 2	; *** start after found separator
		iPosLastSep = -1	; *** 0=PosName, -1=virtual separator pos after all have been removed
	}
		; ---------
		; *** trim left of file name, after param separator
	if (SubStr(sFileName, 1, 1) = "?")	; *** parameters first, filename in one of parameters (last?)
	{
		sFileName := SubStr(sFileName, 2)	; *** remove question mark before file name/parameters
		;
		if (iPosLastSep < 0)	; *** Clipboard = FN param in long URL
		{		; https://base.tld/redirect/?a=name&s=s&d=pa&f=file.exe&xy=text - any pos, param name "f"
			StringGetPos, iPosLastSep, sFileName, f=, R	; *** 0=first char, -1=not found
			if (iPosLastSep >= 0)
				iPosLastSep := iPosLastSep + 1	; *** "f=": skip 2 chars instead of 1
		}
		if (iPosLastSep < 0)	; *** Clipboard = FN param in long URL
		{		; https://base.tld/redirect/?a=name&s=s&d=pa&xy=file.exe        - end pos, param name undefined
			StringGetPos, iPosLastSep, sFileName, =, R	; *** 0=first char, -1=not found
		}
	}
		; ---------
		; *** trim right
	if (InStr(sFileName, "?") > 0)	; *** remove trailing parameter from URL/filename
	{
		sFileName := (SubStr(sFileName, 1, InStr(sFileName, "?") - 1))
		;Goto FnExtractDone
	}
		; ---------
		; *** trim right
	if (iPosLastSep + 1 >= StrLen(sFileName))	; *** last char is separator, no filename found in clipboard
	{
		Exit
	} else {
		StringMid, sFileName, sFileName, iPosLastSep + 2	; *** start after found separator (iPosLastSep=-1 if no separator existing, then no change)
	}
	if (InStr(sFileName, "&") > 1)	; *** cut additional trailing parameters
	{
		sFileName := SubStr(sFileName, 1, InStr(sFileName, "&") - 1)
	}
}
FnExtractDone:

While (InStr(sFileName, "%20") > 0)	; *** remove HTML hex codes from URL/filename
{
	sFileName := (SubStr(sFileName, 1, InStr(sFileName, "%20") - 1)) . " " . (SubStr(sFileName, InStr(sFileName, "%20") + 3))
}

if (FileExist(sFileName . ".url"))
	sFileName := sFileName . "_from"

	;- wait for system to process the link and proceed to link file name
	;- check, if system proceeded to second window, asking for link file name;  if not: wait
Loop, 15
{	
	ControlGetText, sTmp, %DlgFileEdit%
	if sTmp!=%sURL%
		Break
	Sleep, 100
}
if sTmp=%sURL%
{	MsgBox, *** Error: `n`nFirst CreateLink window still active, aborting.
	Return	; Exit
}

ControlSetText, %DlgFileEdit%, %sFileName%	; ControlSendRaw, %DlgFileEdit%, %sFileName%
ControlSend   , %DlgFileEdit%, {END}	; let cursor jump to end, emulating real input behaviour
Return

;

Back to AutoHotkey