复制文本后，按住热键，自动获取标题为文件名，自动保存到文件中

#z::

MouseGetPos, , , id, control

WinGetTitle, title, ahk_id %id%

WinGetClass, class, ahk_id %id%

Msgbox,4,请您选择, 当前复制:# 是否保存到 %title%文件#

IfMsgBox,yes

{

StringTrimRight,T,title,16

;StringSplit,T,title,16

D=%A_YYYY%年%A_MM%月%A_DD%号%A_Hour%时%A_Min%分%A_Sec秒%

N=%T%%d%

FileAppend,, X:UsersenusDesktop%N%.html

FileAppend,%clipboard%,X:UsersenusDesktop%N%.html

return

}

IfMsgBox,no

Return