C:\my_script\mspaint\msPaint.ahk
;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。
#IfWinActive ahk_exe Mspaint.exe
{
; ` 直线
`::setLine()
; 1 曲线
1::setCurve()
; 2 矩形
2::rectangle()
; 3 下箭头
3::downArrow()
4::selectArea()
5::textInput()
Space::srollDown()
}
setLine(){
; 清除上次的其他形状
SendInput, {Alt}
SendInput, {1}
; 中间需要延时一下,否则太快无法反应
Sleep,300
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Enter}
}
setCurve(){
; 清除上次的其他形状
SendInput, {Alt}
SendInput, {1}
; 中间需要延时一下,否则太快无法反应
Sleep,300
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Right}
SendInput, {Enter}
}
rectangle(){
; 清除上次的其他形状
SendInput, {Alt}
SendInput, {1}
; 中间需要延时一下,否则太快无法反应
Sleep,300
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Right 3}
SendInput, {Enter}
}
downArrow(){
; 清除上次的其他形状
SendInput, {Alt}
SendInput, {1}
; 中间需要延时一下,否则太快无法反应
Sleep,300
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Down 2}
SendInput, {Enter}
}
selectArea(){
SendInput, {Alt}
SendInput, {1}
}
textInput(){
SendInput, {Alt}
SendInput, {2}
}
srollDown(){
SendInput, {WheelDown}
}
C:\my_script\mspaint\msPaint2.ahk
;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。
#IfWinActive ahk_exe Mspaint.exe
{
; ` 直线
`::setLine()
; 1 曲线
1::setCurve()
; 2 矩形
2::rectangle()
; 3 下箭头
3::downArrow()
4::selectArea()
5::textInput()
}
setLine(){
; 清除上次的其他形状
SendInput, {Alt}
SendInput, {1}
; 中间需要延时一下,否则太快无法反应
Sleep,300
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Enter}
}
setCurve(){
; 清除上次的其他形状
SendInput, {Alt}
SendInput, {1}
; 中间需要延时一下,否则太快无法反应
Sleep,300
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Right}
SendInput, {Enter}
}
rectangle(){
; 清除上次的其他形状
SendInput, {Alt}
SendInput, {1}
; 中间需要延时一下,否则太快无法反应
Sleep,300
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Right 3}
SendInput, {Enter}
}
downArrow(){
; 清除上次的其他形状
SendInput, {Alt}
SendInput, {1}
; 中间需要延时一下,否则太快无法反应
Sleep,300
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Down 2}
SendInput, {Enter}
}
selectArea(){
SendInput, {Alt}
SendInput, {1}
}
textInput(){
SendInput, {Alt}
SendInput, {2}
}
C:\my_script\mspaint\msPaintColor.ahk
#IfWinActive ahk_exe Mspaint.exe
{
!R::red()
!O::orange()
!Y::yellow()
!G::green()
!B::blue()
!I::indigo()
!P::purple()
!W::white()
}
red(){
MouseGetPos,x,y
Click,532,71
MouseMove,x,y
}
orange(){
MouseGetPos,x,y
Click,555,71
MouseMove,x,y
}
yellow(){
MouseGetPos,x,y
Click,575,71
MouseMove,x,y
}
green(){
MouseGetPos,x,y
Click,597,71
MouseMove,x,y
}
blue(){
MouseGetPos,x,y
Click,619,71
MouseMove,x,y
}
indigo(){
MouseGetPos,x,y
Click,642,71
MouseMove,x,y
}
purple(){
MouseGetPos,x,y
Click,664,71
MouseMove,x,y
}
white(){
MouseGetPos,x,y
Click,466,93
MouseMove,x,y
}
C:\my_script\mspaint\msPaintColor_position_test.ahk
#IfWinActive ahk_exe Mspaint.exe
{
!R::red()
!O::orange()
!Y::yellow()
!G::green()
!B::blue()
!I::indigo()
!P::purple()
!W::white()
}
red(){
; MouseMove,409,76
; WinGetPos, Xpos, Ypos,MSPaintApp ; 使用前面找到的窗口.
; MsgBox, Notepad is at %Xpos%`,%Ypos%
; MouseMove,404+Xpos,73+Ypos
ControlGet, OutputVar, Line, 1, Edit1, Some Window Title
ControlGet, WhichTab, Tab, , SysTabControl321, Some Window Title
if ErrorLevel
MsgBox There was a problem.
else
MsgBox Tab #%WhichTab% is active.
}
orange(){
MouseGetPos,x,y
Click,555,71
MouseMove,x,y
}
yellow(){
MouseGetPos,x,y
Click,575,71
MouseMove,x,y
}
green(){
MouseGetPos,x,y
Click,597,71
MouseMove,x,y
}
blue(){
MouseGetPos,x,y
Click,619,71
MouseMove,x,y
}
indigo(){
MouseGetPos,x,y
Click,642,71
MouseMove,x,y
}
purple(){
MouseGetPos,x,y
Click,664,71
MouseMove,x,y
}
white(){
MouseGetPos,x,y
Click,466,93
MouseMove,x,y
}
C:\my_script\mspaint\mspaint_auo.ahk
#IfWinActive ahk_exe Mspaint.exe
{
F3::setLine()
F2::setCurve()
F5::rectangle()
F6::downArrow()
`::srollDown()
F8::init()
}
; 清除上次的其他形状
clearHistory(){
SendInput, {Alt}
SendInput, {1}
}
setLine(){
clearHistory()
; 中间需要延时一下,否则太快无法反应
Sleep,500
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Enter}
}
setCurve(){
; 清除上次的其他形状
clearHistory()
; 中间需要延时一下,否则太快无法反应
Sleep,500
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Right}
SendInput, {Enter}
}
rectangle(){
; 清除上次的其他形状
clearHistory()
; 中间需要延时一下,否则太快无法反应
Sleep,500
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Right 3}
SendInput, {Enter}
}
downArrow(){
; 清除上次的其他形状
clearHistory()
; 中间需要延时一下,否则太快无法反应
Sleep,500
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Down 2}
SendInput, {Enter}
}
srollDown(){
SendInput, {WheelDown}
}
intiFontSize(){
SendInput, {Alt}
SendInput, {T}
; 中间需要延时一下,否则太快无法反应
Sleep,500
; 真正使用直线
SendInput, {F}
SendInput, {S}
SendInput, 20
SendInput, {Enter}
}
initSetLine(){
SendInput, {Alt}
SendInput, {3}
SendInput, {Enter}
}
initSetLineWidth(){
; 设置宽度
SendInput, {Alt}
SendInput, {H}
SendInput, {S}
SendInput, {Z}
Sleep,500
SendInput, {Down}
SendInput, {Enter}
}
initSetTextInput(){
SendInput, {Alt}
SendInput, {2}
Click
}
initSetTextBold(){
SendInput, {Alt}
SendInput, {T}
Sleep,500
SendInput, {F}
SendInput, {B}
}
initFontColor(){
SendInput, {Alt}
SendInput, {H}
SendInput, {E}
SendInput, {C}
SendInput, {Tab 7}
SendInput, 255
SendInput, {Tab 4}
SendInput, {Enter}
}
initBackColor(){
SendInput, {Alt}
SendInput, {H}
SendInput, {2}
Sleep,500
SendInput, {Alt}
SendInput, {H}
SendInput, {E}
SendInput, {C}
SendInput, {Tab 7}
SendInput, 0
SendInput, {Tab}
SendInput, 0
SendInput, {Tab}
SendInput, 0
SendInput, {Tab 2}
SendInput, {Enter}
}
initDeleteAll(){
SendInput, {Ctrl Down}a{Ctrl Up}
SendInput,{Delete}
}
init(){
; 设置Font Color
initFontColor()
Sleep,500
initBackColor()
Sleep,500
initDeleteAll()
Sleep,500
; 切换直线
initSetLine()
Sleep,500
; 设置线宽
initSetLineWidth()
Sleep,500
; 切换文字框
initSetTextInput()
Sleep,500
; 设置字体大小
intiFontSize()
Sleep,500
; 设置字体变粗
initSetTextBold()
Sleep,500
; 返回
SendInput, {Alt}
SendInput, {1}
Sleep,500
; 返回,颜色选择重新切换到1
SendInput, {Alt}
SendInput, {H}
SendInput, {1}
}
C:\my_script\mspaint\mspaint_auo_fast.ahk
#IfWinActive ahk_exe Mspaint.exe
{
F3::setLine()
F1::setCurve()
F2::rectangle()
F5::downArrow()
F7::srollDown()
F8::init()
F6::selectRect()
`::textInput()
}
; 清除上次的其他形状
clearHistory(){
SendInput, {Alt}
SendInput, {1}
}
setLine(){
clearHistory()
; 中间需要延时一下,否则太快无法反应
Sleep,200
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Enter}
}
setCurve(){
; 清除上次的其他形状
clearHistory()
; 中间需要延时一下,否则太快无法反应
Sleep,200
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Right}
SendInput, {Enter}
}
rectangle(){
; 清除上次的其他形状
clearHistory()
; 中间需要延时一下,否则太快无法反应
Sleep,200
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Right 3}
SendInput, {Enter}
}
downArrow(){
; 清除上次的其他形状
clearHistory()
; 中间需要延时一下,否则太快无法反应
Sleep,200
; 真正使用直线
SendInput, {Alt}
SendInput, {3}
SendInput, {Down 2}
SendInput, {Enter}
}
srollDown(){
SendInput, {WheelDown}
}
selectRect(){
SendInput, {Alt}
SendInput, {1}
}
textInput(){
SendInput, {Alt}
SendInput, {2}
}
intiFontSize(){
SendInput, {Alt}
SendInput, {T}
; 中间需要延时一下,否则太快无法反应
Sleep,500
; 真正使用直线
SendInput, {F}
SendInput, {S}
SendInput, 20
SendInput, {Enter}
}
initSetLine(){
SendInput, {Alt}
SendInput, {3}
SendInput, {Enter}
}
initSetLineWidth(){
; 设置宽度
SendInput, {Alt}
SendInput, {H}
SendInput, {S}
SendInput, {Z}
Sleep,500
SendInput, {Down}
SendInput, {Enter}
}
initSetTextInput(){
SendInput, {Alt}
SendInput, {2}
Click
}
initSetTextBold(){
SendInput, {Alt}
SendInput, {T}
Sleep,500
SendInput, {F}
SendInput, {B}
}
initFontColor(){
SendInput, {Alt}
SendInput, {H}
SendInput, {E}
SendInput, {C}
SendInput, {Tab 7}
SendInput, 255
SendInput, {Tab 4}
SendInput, {Enter}
}
initBackColor(){
SendInput, {Alt}
SendInput, {H}
SendInput, {2}
Sleep,500
SendInput, {Alt}
SendInput, {H}
SendInput, {E}
SendInput, {C}
SendInput, {Tab 7}
SendInput, 0
SendInput, {Tab}
SendInput, 0
SendInput, {Tab}
SendInput, 0
SendInput, {Tab 2}
SendInput, {Enter}
}
initDeleteAll(){
SendInput, {Ctrl Down}a{Ctrl Up}
SendInput,{Delete}
}
init(){
; 设置Font Color
initFontColor()
Sleep,500
initBackColor()
Sleep,500
initDeleteAll()
Sleep,500
; 切换直线
initSetLine()
Sleep,500
; 设置线宽
initSetLineWidth()
Sleep,500
; 切换文字框
initSetTextInput()
Sleep,500
; 设置字体大小
intiFontSize()
Sleep,500
; 设置字体变粗
initSetTextBold()
Sleep,500
; 返回
SendInput, {Alt}
SendInput, {1}
Sleep,500
; 返回,颜色选择重新切换到1
SendInput, {Alt}
SendInput, {H}
SendInput, {1}
}
C:\my_script\mspaint\Mspaint_Up_And_Down.ahk
; 浏览器截长图功能和画板上下滚动功能
GroupAdd browser, ahk_exe msedge.exe
GroupAdd browser, ahk_exe chrome.exe
#IfWinActive ahk_group browser
{
^!`::screen()
}
#IfWinActive ahk_exe mspaint.exe
{
!w::SendInput, {WheelUp}
!s::SendInput, {WheelDown}
}
screen(){
SendInput, {F12}
Sleep, 3000
SendInput, {CtrlDown}{ShiftDown}p{ShiftUp}{CtrlUp}
Sleep, 2000
SendInput, capture full
Sleep, 1000
SendInput, {Enter}
Sleep, 3000
SendInput, {F12}
}
标签:exe,autohotkey,mspaint,SendInput,Sleep,Enter,Alt,快捷键,500
From: https://www.cnblogs.com/zhuoss/p/16907420.html