请教大家一个函数的写法 Topic is solved

[AAHKUser]

各位高手，大家好〜

想请教大家下面的这段代码如何用函数的方式实现，因为涉及到许多按键的同样方式的替换，所以我想用函数的方式来重写这段代码，但我自己尝试总不成功。

Code: Select all

:*:n::
If (A_CaretX  > 0){
	if GetKeyState("Shift"){
	sendinput, N
	}
	else{
		sendinput, n
		}  
	}
else{
sendinput, ^+n
}
return

我自己写的函数如下，不知为何失败，希望能得到各位指点，谢谢！

Code: Select all

:*:n::   ; 一键N新建文件夹
GetTheKey(n, ^+n) 
return

GetTheKey(TheKey, TheFunc) 

Str :=TheKey
SringUpper, String2, Str
	if (A_CaretX  > 0){
		if GetKeyState("Shift"){
			SendInput, %String2%
		}
		else{
			SendInput, %TheKey%
		}
	}
	else{
		SendInput, %TheFunc%
	}

[Mod edit: [code][/code] tags added.]

[fwejifjjwk2]

我這裡寫 ahk v2 的代碼，給你參考。
我把你另外一篇「模仿mac系统的回车重命名」的需求也合併進來了，創建上下文相關的熱鍵和熱字串很適合用在這裡。

Code: Select all

#HotIf (WinActive("ahk_exe Explorer.EXE")) and (not CaretGetPos(&x, &y))
; 新資料夾
:*:n::
{
	Send "^+n"
}

; 重新命名
$enter::
{
	Send "{F2}"
}
#HotIf

[AAHKUser]

我這裡寫 ahk v2 的代碼，給你參考。
我把你另外一篇「模仿mac系统的回车重命名」的需求也合併進來了，創建上下文相關的熱鍵和熱字串很適合用在這裡。

Code: Select all

#HotIf (WinActive("ahk_exe Explorer.EXE")) and (not CaretGetPos(&x, &y))
; 新資料夾
:*:n::
{
	Send "^+n"
}

; 重新命名
$enter::
{
	Send "{F2}"
}
#HotIf

非常感谢！真的从您这里学到了非常多技巧！