mspaint autohotkey 快捷键

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}
}