首页 > 其他分享 >mspaint autohotkey 快捷键

mspaint autohotkey 快捷键

时间:2022-11-19 22:57:22浏览次数:56  
标签:exe autohotkey mspaint SendInput Sleep Enter Alt 快捷键 500

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

相关文章

  • autohotkey typora 快捷键
    C:\my_script\typora\typora-副本.ahk;热键标记;!感叹号代表Alt键;#井号代表Windows键;^上三角号代表Ctrl键;+加号代表Shift键;执行;::代表按下前......
  • autohotkey video remote 遥控器
    C:\my_script\videoRemote\remoteKey.ahkGroupAdd,remoteKey,ahk_exemsedge.exeGroupAdd,remoteKey,ahk_exechrome.exeGroupAdd,remoteKey,ahk_exe哔哩哔哩.......
  • 常用快捷键
    电脑常用快捷键键盘功能键:Tab、Shift、Ctrl、Alt、空格、Enter、Window、上下左右键键盘快捷键:全选、复制、粘贴、撤销、保存、关闭窗口、运行、永久删除······Ct......
  • VS Code 常用配置、快捷键和插件
    工欲善其事,必先利其器!常见前端开发IDE:HBuilder(国产)、SublimeText、WebStorm、VisualStudioCodeVSCode官网:​​​​https://code.visualstudio.com/​​免费的,直接下载;下......
  • eclipse 快捷键失效解决方法
    有时候eclispe快捷键失效了,编码起来太难受了。 1、Eclipse下进入Windows->Preperences->General->keys2、把wordcompletion的快捷键设置alt+/删掉!3、把ContentAssist......
  • pycharm快捷键
    https://www.jb51.net/article/205459.htm1、编辑(Editing)Ctrl+Space:基本的代码完成(类、方法、属性)Ctrl+Alt+Space:快速导入任意类Ctrl+Shift+Enter:语句完成Ctrl......
  • Qt Creator中设置自动补充快捷键
    QtCreator中本身就设置了自动补全功能,默认其快捷键为Ctrl+Space Tool->Option->Environment->Keyboard在搜索框中输入:compl 选中CompleteThis后,点击Record,输入......
  • QtCreator常用快捷键
    快捷键功能Esc切换到代码编辑状态F1查看帮助(选中某一类或函数,按下F1,出现帮助文档)F2在光标选中对象的声明和定义之间切换(和Ctrl+鼠标左键一样的效果,选中......
  • IDEA 快捷键
    1、输出system.output.println() sout 2、主函数publicstaticvoidmain()psvm3、循环for(inti=0;i<;i++){}fori4、生成构造函数alter+insert5、自动创建对......
  • Endnote在word中插入参考文献崩溃的另一个原因——mathtype和快捷键Alt+2
    EndnoteX9和20插入word时会崩溃,网上的方法大多是清除域代码和清除自动校对什么的,对我来说这些方法都不管用而且不合理。后来发现可能是Mathtype的加载项与endnote有冲突,......