代码利用图形界面实现设置文字颜色,居中及图片标题
ALT+1:设置图片路径及标题
ALT+2:设置文字颜色
ALT+3:设置文字居中
WinActive("ahk_exe Typora.exe")
!1::
{
global MyGui := Gui()
MyGui.Add("Text",, "请输入图片路径及标题")
global MyEdit1 := MyGui.Add("Edit", "r1 vMyEdit1 w255", "在这里输入图片路径")
global TempText := MyEdit1.Text
global MyEdit2 := MyGui.Add("Edit", "r1 vMyEdit2 w255", "在这里输入图片标题")
global TempTitle := MyEdit2.Text
MyBtn := MyGui.Add("Button", "Default w255", "OK")
MyBtn.OnEvent("Click",MyBtn_Click1) ; 当点击时调用 MyBtn_Click.
MyGui.Show()
}
MyBtn_Click1(*)
{
global
TPath := MyEdit1.Text
TTitle := MyEdit2.Text
WinClose MyGui
SetImagePath(TPath,TTitle)
}
SetImagePath(TempPath,TempTitle)
{
;MsgBox(TColor)
ActivateTypora()
Sleep(100)
SetImeEnglis()
Sleep(100)
SendInput "<div>