C:\my_script\typora\typora - 副本.ahk
;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。
; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题
#IfWinActive ahk_exe Typora.exe
{
; alt+0 红色
;!0::addFontColor("black")
; alt+1 红色
!1::addFontColor("#ef7a82")
; alt+1 橙色
!2::addFontColor("#ffa631")
; alt+3 绿色
!3::addFontColor("#9ed900")
; alt+4 紫色
!4::addFontColor("#cca4e3")
; alt+5 蓝灰色
!5::addFontColor("#a1afc9")
; alt+6 紫色
;!6::addFontColor("purple")
; alt+7 黄色
;!7::addFontColor("yellow")
; 增加 字体框
;!f::addFont()
;增加 div 标签
;!d::addDiv()
;增加 ` 号
;!`::addPunctuation()
}
; 快捷增加字体颜色
addFontColor(color){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
; Typora 在这不会自动补充
SendInput {TEXT}</font>
; 清空剪切板
clipboard := ""
}else{
; Typora中自动补全标签
SendInput {TEXT}</
}
}
; 添加 font 标签
addFont(){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}<font style="color:;font-size:">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
SendInput {TEXT}</font> ; Typora 在这不会自动补充
clipboard := "" ; 清空剪切板
}else{
SendInput {TEXT}</ ; Typora中自动补全标签
}
}
; 添加 Div 标签
addDiv(){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}<div style="">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
SendInput {TEXT}</div> ; Typora 在这不会自动补充
clipboard := "" ; 清空剪切板
}else{
SendInput {TEXT}</ ; Typora中自动补全标签
}
}
addPunctuation(){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}``
SendInput {ctrl down}v{ctrl up} ; 粘贴
SendInput {TEXT}``
}
C:\my_script\typora\typora.ahk
;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。
; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题
#IfWinActive ahk_exe Typora.exe
{
; alt+0 红色
;!0::addFontColor("black")
; alt+1 红色
!1::addFontColor("#ef7a82")
; alt+1 橙色
!2::addFontColor("#ffa631")
; alt+3 绿色
!3::addFontColor("#9ed900")
; alt+4 紫色
!4::addFontColor("#cca4e3")
; alt+5 蓝灰色
!5::addFontColor("#a1afc9")
; alt+6 紫色
;!6::addFontColor("purple")
; alt+7 黄色
;!7::addFontColor("yellow")
; 增加 字体框
;!f::addFont()
;增加 div 标签
;!d::addDiv()
;增加 ` 号
;!`::addPunctuation()
}
; 快捷增加字体颜色
addFontColor(color){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
; Typora 在这不会自动补充
SendInput {TEXT}</font>
; 清空剪切板
clipboard := ""
}else{
; Typora中自动补全标签
SendInput {TEXT}</
}
}
; 添加 font 标签
addFont(){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}<font style="color:;font-size:">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
SendInput {TEXT}</font> ; Typora 在这不会自动补充
clipboard := "" ; 清空剪切板
}else{
SendInput {TEXT}</ ; Typora中自动补全标签
}
}
; 添加 Div 标签
addDiv(){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}<div style="">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
SendInput {TEXT}</div> ; Typora 在这不会自动补充
clipboard := "" ; 清空剪切板
}else{
SendInput {TEXT}</ ; Typora中自动补全标签
}
}
addPunctuation(){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}``
SendInput {ctrl down}v{ctrl up} ; 粘贴
SendInput {TEXT}``
}
C:\my_script\typora\typoraRead.ahk
;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。
; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题asssaasaaaaa
#IfWinActive ahk_exe Typora.exe
{
A::SendInput, {Shift down}{Enter}{Shift up}
S::SendInput, {Enter}
}
C:\my_script\typora\博客园-Chrome.ahk
;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。
; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题
; Define the group: 博客园和typora
GroupAdd, Ms_Ty, ahk_exe Chrome.exe ;
GroupAdd, Ms_Ty, ahk_exe Typora.exe
#IfWinActive ahk_group Ms_Ty
{
; alt+0 红色
;!x::addFontColor("black")
; alt+1 红色
!1::addFontColor("#ef7a82")
; alt+1 橙色
!2::addFontColor("#ffa631")
; alt+3 绿色
!3::addFontColor("#9ed900")
; alt+4 紫色
!4::addFontColor("#cca4e3")
; alt+5 蓝灰色
!5::addFontColor("#a1afc9")
; alt+6 紫色
;!6::addFontColor("purple")
; alt+7 黄色
;!7::addFontColor("yellow")
}
; 快捷增加字体颜色
addFontColor(color){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
content = %clipboard%
SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
; Typora 在这不会自动补充
SendInput {TEXT}</font>
; 清空剪切板
clipboard := ""
}else{
str1 := "](http"
str3 := "**"
flag:= False
IfInString, content, %str1%
{
flag:= True
}
IfInString, content, %str3%
{
flag:= True
}
If flag
{
SendInput {TEXT}</font>
}Else{
SendInput {TEXT}</
}
}
}
C:\my_script\typora\博客园.ahk
;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。
; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题
; Define the group: 博客园和typora
GroupAdd, Ms_Ty, ahk_exe msedge.exe ;
GroupAdd, Ms_Ty, ahk_exe Typora.exe
#IfWinActive ahk_group Ms_Ty
{
; alt+0 红色
;!x::addFontColor("black")
; alt+1 红色
!1::addFontColor("#ef7a82")
; alt+1 橙色
!2::addFontColor("#ffa631")
; alt+3 绿色
!3::addFontColor("#9ed900")
; alt+4 紫色
!4::addFontColor("#cca4e3")
; alt+5 蓝灰色
!5::addFontColor("#a1afc9")
; alt+6 紫色
;!6::addFontColor("purple")
; alt+7 黄色
;!7::addFontColor("yellow")
; 增加 字体框
;!f::addFont()
;增加 div 标签
;!d::addDiv()
;增加 ` 号
;!`::addPunctuation()
}
; 快捷增加字体颜色
addFontColor(color){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
; Typora 在这不会自动补充
SendInput {TEXT}</font>
; 清空剪切板
clipboard := ""
}else{
; Typora中自动补全标签
SendInput {TEXT}</
}
}
; 添加 font 标签
addFont(){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}<font style="color:;font-size:">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
SendInput {TEXT}</font> ; Typora 在这不会自动补充
clipboard := "" ; 清空剪切板
}else{
SendInput {TEXT}</ ; Typora中自动补全标签
}
}
; 添加 Div 标签
addDiv(){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}<div style="">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
SendInput {TEXT}</div> ; Typora 在这不会自动补充
clipboard := "" ; 清空剪切板
}else{
SendInput {TEXT}</ ; Typora中自动补全标签
}
}
addPunctuation(){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
SendInput {TEXT}``
SendInput {ctrl down}v{ctrl up} ; 粘贴
SendInput {TEXT}``
}
C:\my_script\typora\博客园高级版.ahk
;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。
; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题
; Define the group: 博客园和typora
GroupAdd, Ms_Ty, ahk_exe msedge.exe ;
GroupAdd, Ms_Ty, ahk_exe Typora.exe
#IfWinActive ahk_group Ms_Ty
{
; alt+0 红色
;!x::addFontColor("black")
; alt+1 红色
!1::addFontColor("#ef7a82")
; alt+1 橙色
!2::addFontColor("#ffa631")
; alt+3 绿色
!3::addFontColor("#9ed900")
; alt+4 紫色
!4::addFontColor("#cca4e3")
; alt+5 蓝灰色
!5::addFontColor("#a1afc9")
; alt+6 紫色
;!6::addFontColor("purple")
; alt+7 黄色
;!7::addFontColor("yellow")
}
; 快捷增加字体颜色
addFontColor(color){
clipboard := "" ; 清空剪切板
Send {ctrl down}c{ctrl up} ; 复制
content = %clipboard%
SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
SendInput {ctrl down}v{ctrl up} ; 粘贴
If(clipboard = ""){
; Typora 在这不会自动补充
SendInput {TEXT}</font>
; 清空剪切板
clipboard := ""
}else{
str1 := "](http"
str3 := "**"
flag:= False
IfInString, content, %str1%
{
flag:= True
}
IfInString, content, %str3%
{
flag:= True
}
If flag
{
SendInput {TEXT}</font>
}Else{
SendInput {TEXT}</
}
}
}
标签:addFontColor,autohotkey,ctrl,TEXT,typora,SendInput,clipboard,alt,快捷键
From: https://www.cnblogs.com/zhuoss/p/16907423.html