AutoHotKey (AHK) 自定义快捷键

AutoHotKey (AHK) 自定义快捷键：代码编辑器为SciTE4AutoHotkey-Plus。
自定义Alt开头的快捷键： 1-file1第一个文件（各项工作.docx）；D-add date写入当前日期； DF-add date to file or folder rename重命名文件及文件件加日期； F1-（帮助）， F-folder（文件夹：2022三资办资料）； B-browser浏览器； P-Printing sevicer打印服务电脑； SC-shortcut快捷方式文件夹; W-WeChat微信； Y-粤政易

;如何快捷的输入当前日期-2021年8月31日快捷输入当前日期的AutoHotkey热字串脚本
;一. # 开头表示指令, 通常是进行一些预处理或者设置, 比如
;按键修饰符：

;  #（Win 徽标键） !（Alt） ^（Ctrl） +（Shift） <>（左右区域） <^>!（AltGr） UP（抬起）
;#b::
;脚本开始执行时不显示托盘的图标
;#NoTrayIcon


;自定义快捷键帮助查询和记忆。
;MsgBox, Text
;MsgBox [, Options, Title, Text, Timeout]，要看帮助文件，下面表示5秒后自动关闭
!F1::
MsgBox, 0, , "自定义Alt开头的快捷键：    1-file1第一个文件（各项工作.docx）；D-add date写入当前日期；     DF-add date to file or folder rename重命名文件及文件件加日期；      F1-（帮助），     F-folder（文件夹：2022三资办资料）；    B-browser浏览器；     P-Printing sevicer打印服务电脑；     SC-shortcut快捷方式文件夹;     W-WeChat微信；    Y-粤政易；", 5
;  C-copy rename复制文件或文件夹去除“-副本”；T-timer rename重命名文件及文件件加时间戳
return


;重命名文件、文件夹，文件名前加日期date
!D::
{
FormatTime, now_date, %A_Now%, yyyy年MM月dd日 ;获取当前时间
Send, % now_date ;输出时间戳
Return
}


;重命名文件、文件夹，文件名前加日期
^+D::
;Send, {F2}{Left} ;按F2重命名文件夹会选中文件名，按向左的键会调到开头
Send, {F2}{Home} ;按F2重命名文件夹会选中文件名，按向左的键会调到开头
Sleep, 100

FormatTime, now_date, %A_Now%, yyyyMMdd ;获取当前时间
Send, % now_date ;输出时间戳
Send, `-
;Send, -
Send, {Enter}
Return



;打开默认浏览器Alt B代表browser
!B::Run, https://www.baidu.com

;打开文件夹Alt F代表folder
!F::Run, H:\2022三资办资料

;打开文件1, Alt 1，不能用数字键盘的数字，要用主键盘的数字。
!1::Run, H:\2021三资办资料\2021三资办各项工作.docx


;打开默认浏览器Alt P代表printing service computer打印服务机(电脑）
!P::Run, file:\\User-20211012hg\扫描文件

;打开默认浏览器Alt SC代表shortcut快捷方式文件夹
!K::Run, C:\Users\Administrator\Desktop\桌面其他快捷方式

;打开文件夹Alt W代表wechat
!W::Run, C:\Program Files (x86)\Tencent\WeChat\WeChat.exe

;打开文件夹Alt Y代表粤政易
!Y::Run, E:\Program Files (x86)\WXWorkLocal\WXWorkLocal.exe

;打开文件夹Alt Q代表QQ，不能用，用自带的快捷键Ctrl shift X
;!Q::Run, C:\Program Files (x86)\Tencent\QQ\Bin\QQ.exe


; 在资源管理器中按鼠标访问上一级目录;
;当您位于文件夹中时，通常需要访问上一级目录。在早期版本的Windows中，退格键可以完成工作，但现在退格键是切回到上一个访问的目录。我不喜欢单击该小图标来向上移动文件夹，因此我使用以下脚本通过单击鼠标中键来访问上一级目录。
#IfWinActive, ahk_class CabinetWClass
~MButton::
Send !{Up} 
return
#IfWinActive
; 按~ 调转到当前目录的上一级
#IfWinActive, ahk_class CabinetWClass
`::
Send !{Up} 
return
#IfWinActive


; 热键Ctrl + Shift + C 可以用百度搜索选中的文字
^+c::
{
 Send, ^c
 Sleep 50
 Run, https://www.baidu.com/s?wd=%clipboard%
 Return
}



; 暂时挂起 AutoHotKey脚本
#ScrollLock::Suspend ; Win + scrollLock
return



/* 
;复制文件、文件夹，文件名将副本替换为01
!C::

Send, {Ctrl}{C}
Sleep, 1000
Send, {Ctrl}{V}
Sleep, 1000
Send, {F2}{Right}
Sleep, 1000
Send, {Left}
Sleep, 1000
a := "01"

Send, %a%
Send, {Enter}
Return
*/


/* 
;重命名文件、文件夹，文件名前加时间戳，Alt T代表timer rename
!T::
;F2系统自带的重命名快捷键

Send, {F2}
;此处必须要停顿，没有停顿试了很多次，不能修改粘贴板内容
Sleep, 1000
Send, ^C
;ClipWait  ; 等待剪贴板中出现文本.
;Sleep, 2000
;ahk获取当前日期时间脚本
d = %A_YYYY%%A_MM%%A_DD%
;Clipboard := "01" Clipboard

Clipboard := d " " Clipboard
;使用 ClipWait 提高脚本的可靠性:
;Sleep , 3000s
ClipWait  ; 等待剪贴板中出现文本.
;Sleep, 2000
;MsgBox, clipboard
Send, ^V
;Sleep, 2000
Send, {Enter}
return
*/

二、版本2

#2:: ;win+2运行
PreLang := GetLang()
SetEN(0x00000804)
SetTimeStamp()
SetLang(PreLang)
return

;获取当前语言，返回当前语言值
GetLang(){
	return DllCall("GetKeyboardLayout", UInt)
}

;设置英文模式 0x00000804
SetEN(dwLayout){
    HKL:=DllCall("LoadKeyboardLayout", Str, dwLayout, UInt, 0)
    SetLang(HKL)
	return
}

;设置语言模式
SetLang(HKL)
{
	ControlGetFocus,ctl,A
    SendMessage,0x50,0,HKL,%ctl%,A
	return
}

;设置时间戳
SetTimeStamp()
{
	Send, {F2}{Right}
	Sleep, 100
	FormatTime, now_date, %A_Now%, MMddhhmm ;获取当前时间
	Send, `_
	Send, % now_date ;输出时间戳
	Send, {Enter}
	Return
}






/*
;如何快捷的输入当前日期-2021年8月31日快捷输入当前日期的AutoHotkey热字串脚本
;一. # 开头表示指令, 通常是进行一些预处理或者设置, 比如

;#NoEnv ;不检查空变量是否为环境变量(建议所有新脚本使用).

;#NoTrayIcon ;不显示[托盘图标]

;#Hotstring EndChars `n `t ;自定义热字串终结符
#SingleInstance,force
#Persistent
#NoTrayIcon
;~ 设置插入当前日期和时间的热字串为 rq 空格
;~ 用搜狗拼音输入法输入"rq"再按主键区数字2也可以方便快捷的输入当前日期，定义热字串使用两个冒号结尾, 以 return 束,如:
::rq::
	Sleep,100
	ClipSaved := ClipboardAll ; 把剪贴板的所有内容保存到您选择的变量中
	Sleep,100
	FormatTime,NowTimeStr,%A_YYYY%%A_MM%%A_DD%日,yyyy年M月dd日
	Sleep,100
	Clipboard :=NowTimeStr
	Sleep,200
	Send ^v
	Sleep,100
	Clipboard := ClipSaved ; 恢复剪贴板为原来的内容. 注意这里使用 Clipboard (不是 ClipboardAll).
	Sleep,100
	ClipSaved = ; 在原来的剪贴板含大量内容时释放内存.
return
*/