发送文字
F3::
send,1111
return
执行程序前先关闭程序
#SingleInstance force ;;执行程序前先关闭程序
最大化窗口
F9::
WinMaximize,A ;;最大化当前窗口
return
恢复原来窗口的大小
F10::
WinRestore, A ;;恢复原来的窗口大小
return
置顶当前窗口
CapsLock & p::
winset,AlwaysOnTop,, A ;;置顶当前程序的窗口
Return
打开任务管理器
^!NumpadIns:: ;;打开任务管理器
^!Numpad0::
IfWinExist, Windows 任务管理器
{
WinHide, Windows 任务管理器
}
else
{
run,taskmgr
WinActivate, Windows 任务管理器
Winshow, Windows 任务管理器
}
Return
打开记事本
#N::
Run Notepad ;;打开记事本
return
打开计算器
#J:: ;;打开计算器
Run, calc
return
用Alt来替换系统原有的复制、粘贴和剪切键
!c::
Send,^c ;;用Alt+C替换系统的复制键Ctrl+C
Return
!x::
Send,^x ;;用Alt+X替换系统的剪切键Ctrl+X
Return
!v::
Send,^v ;;用Alt+V替换系统的粘贴键Ctrl+V
Return
将字符串中的空格替换为换行符
a = 1 2 34
stringreplace, out, a, ` , `n, All
msgbox, %out%
划词一键进行百度翻译:
F9:: ;~百度一键翻译
send,^c
Loop
{
StringReplace, clipboard,clipboard, `r`n,%A_SPACE%, UseErrorLevel
if ErrorLevel = 0 ;全部替换完,退出循环
break
}
Loop
{
StringReplace, clipboard,clipboard, %A_SPACE%%A_SPACE%, %A_SPACE%, UseErrorLevel;替换两个空格为一个空格
if ErrorLevel = 0
break
}
IfWinExist, 百度翻译
{
WinActivate, 百度翻译
IfWinActive, 百度翻译
{
send,^w
}
}
str = %clipboard%
stringreplace, out, str, ` , `%20, All
baidu = https://fanyi.baidu.com/?#en/zh/
URL = %baidu%%out%
run,%URL%
return
F10:: ;~谷歌一键翻译
send,^c
Loop
{
StringReplace, clipboard,clipboard, `r`n,%A_SPACE%, UseErrorLevel
if ErrorLevel = 0 ;全部替换完,退出循环
break
}
Loop
{
StringReplace, clipboard,clipboard, %A_SPACE%%A_SPACE%, %A_SPACE%, UseErrorLevel;替换两个空格为一个空格
if ErrorLevel = 0
break
}
IfWinExist, Google 翻译
{
WinActivate, Google 翻译
IfWinActive, Google 翻译
{
send,^w
}
}
str = %clipboard%
stringreplace, out, str, ` , `%20, All
Google = https://translate.google.cn/#view=home&op=translate&sl=en&tl=zh-CN&text=
URL = %Google%%out%
run,%URL%
return
F11:: ;~搜狗一键翻译
send,^c
Loop
{
StringReplace, clipboard,clipboard, `r`n,%A_SPACE%, UseErrorLevel
if ErrorLevel = 0 ;全部替换完,退出循环
break
}
Loop
{
StringReplace, clipboard,clipboard, %A_SPACE%%A_SPACE%, %A_SPACE%, UseErrorLevel;替换两个空格为一个空格
if ErrorLevel = 0
break
}
IfWinExist, 搜狗翻译
{
WinActivate, 搜狗翻译
IfWinActive, 搜狗翻译
{
send,^w
}
}
str = %clipboard%
stringreplace, out, str, ` , `%20, All
sougou = https://fanyi.sogou.com/?keyword=
URL = %sougou%%out%
run,%URL%
return
显示当前系统时间(年月日)
!w:: ;;显示当前的系统时间(年月日)
a = %clipboard%
d = %A_YYYY%.%A_mm%.%A_dd%
clipboard = %d%
Send ^v
sleep,100
clipboard = %a%
return
显示当前的系统时间(年月日-时分秒)
!e:: ;;显示当前的系统时间(年月日-时分秒)
a = %clipboard%
sleep,100
d = %A_YYYY%.%A_mm%.%A_dd%-%A_Hour%:%A_Min%:%A_Sec%
clipboard = %d%
send,^v
sleep,100
clipboard = %a%
return
使用百度搜索关键词
!f:: ;;使用百度搜索关键词
send,^c
run,https://www.baidu.com/s?wd=%clipboard%
return
点击鼠标50次
F1:: ;;点击鼠标50次
Loop 50
{
MouseClick
}
Return
关闭当前窗口
`::
send,!{F4} ;;关闭当前窗口
return
快速设置热词
!-:: ;快速设置热词
send,::我::{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{;}{;}
send,{Enter}
send,{Enter}{R}eturn{Space}
return
快速设置热键
!0:: ;快速设置热键
send,::{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{;}{;}
send,{Enter}{Enter}{Enter}{Enter}
send,{R}eturn {Space}
send,{Home}{BackSpace}
send,{Up}{Up}{Up}
return
anki中用到的代码块
#IfWinActive ahk_class QWidget
Esc:: ;;
WinHide, 添加
send,!s
WinWait, 耗时
WinHide,耗时
WinShow, 添加
WinWait, 添加
IfWinNotActive, 添加, , WinActivate, 添加,
WinWaitActive, 添加,
Send, ^v
Return
F5::
send,^+!c ;;将F5作为Anki填空题不改变序号的快捷键
return
F6::
send,^+c ;;将F6作为Anki填空题的快捷键
return
F7:: ;;在中文输入法的情况下设置Latex行间公式环境
Send,^{Space}
Send,^t
Send,e
Send, ^{Space}
send,+
Return
F8:: ;;在粘贴文本时直接加上anki的LaTeX环境并且进行填空题挖空
send,^x
sleep,20
A := clipboard
b ={{c1::[$]
c=[/$]}}
d= %b% %A% %c%
sleep,20
clipboard = % d
send,^v
sleep,20
clipboard := A
sleep,20
Return
F9::
Send, {SHIFTDOWN}{HOME}{SHIFTUP}
send,{CTRLDOWN}x{CTRLUP}
A:= clipboard
b =[$]
c=[/$]
d= %b% %A% %c%
sleep,50
clipboard = % d
send,^v
sleep,50
clipboard := A
sleep,50
Send, {SPACE}
Send, {SHIFTDOWN}{CTRLDOWN}{END}{SHIFTUP}{CTRLUP}
Send, {CTRLDOWN}x{CTRLUP}
A := clipboard
b ={{c1::[$]
c=[/$]}}
d= %b% %A% %c%
sleep,50
clipboard = % d
send,^v
sleep,50
clipboard := A
sleep,50
return
!e:: ;;在粘贴文本时直接加上anki的LaTeX环境
A:= clipboard
b =[$]
c=[/$]
d= %b% %A% %c%
sleep,50
clipboard = % d
send,^v
sleep,50
clipboard := A
sleep,50
return
!t::
A := clipboard
b ={{c1::[$]
c=[/$]}}
d= %b% %A% %c%
sleep,50
clipboard = % d
send,^v
sleep,50
clipboard := A
sleep,50
return
#IfWinActive
限定程序只运行在Word中
#IfWinActive ahk_class OpusApp ;;这个是对应的程序的类别名
!e:: ;;显示当前的系统时间
a = %clipboard%
sleep,100
d = %A_Hour%:%A_Min%:%A_Sec%
clipboard = %d%
send,{enter}
send,{up}
send,{backspace}
send,^e
send,^v
sleep,100
clipboard = %a%
send,{down}
return
#IfWinActive