分享一套我现在在使用Autohotkey的脚本
2024-05-10 07:27:47
SetCapsLockState, AlwaysOff
;***************************模拟鼠标控制*****************************;|+=======================================================+|;|| ||;|+-------------------------+-----------------------------+|;|| CapsLock+d | 开启 ||;|| CapsLock+f | 关闭 ||;|| | ||;|+-------------------------+-----------------------------+|;|| d | 左键 ||;|| f | 右键 ||;|| ikjl | 鼠标移动 ||;|+=======================================================+|#SingleInstancecount = 0JoyMultiplier = 0.20JoyThreshold = 3JoyThresholdUpper := 50 + JoyThresholdJoyThresholdLower := 50 - JoyThresholdYAxisMultiplier = -1SetTimer, WatchKeyboard, 10Hotkey, d, ButtonLeftHotkey, f, ButtonRightHotkey, i,emptyHotkey, k,emptyHotkey, j,emptyHotkey, l,emptyReturnCapsLock & d::SetTimer, WatchKeyboard,10Hotkey, d, OnHotkey, f, OnHotkey, i, OnHotkey, k, OnHotkey, j, OnHotkey, l, OnReturnCapsLock & f::SetTimer, WatchKeyboard, OffHotkey, d, OffHotkey, f, OffHotkey, i, OffHotkey, k, OffHotkey, j, OffHotkey, l, OffReturnempty:ReturnWatchKeyboard:MouseNeedsToBeMoved := false ; Set default.JoyMultiplier+=0.01SetFormat, float, 03i:=GetKeyState("i","p")k:=GetKeyState("k","p")j:=GetKeyState("j","p")l:=GetKeyState("l","p")if(l){MouseNeedsToBeMoved := trueDeltaX := 10}else if(j){MouseNeedsToBeMoved := trueDeltaX := -10}elseDeltaX = 0if (i){MouseNeedsToBeMoved := trueDeltaY := 10}else if (k){MouseNeedsToBeMoved := trueDeltaY := -10}elseDeltaY = 0if MouseNeedsToBeMoved{SetMouseDelay, -1 ; Makes movement smoother.MouseMove, DeltaX * JoyMultiplier, DeltaY * JoyMultiplier * YAxisMultiplier, 0, R}Elsecount++If(count>20){JoyMultiplier = 0.30count=0}returnButtonLeft:SetMouseDelay, -1 ; Makes movement smoother.MouseClick, left,,, 1, 0, D ; Hold down the left mouse button.SetTimer, WaitForLeftButtonUp, 10returnButtonRight:SetMouseDelay, -1 ; Makes movement smoother.MouseClick, right,,, 1, 0, D ; Hold down the right mouse button.SetTimer, WaitForRightButtonUp, 10returnWaitForLeftButtonUp:if GetKeyState("d")return ; The button is still, down, so keep waiting.; Otherwise, the button has been released.SetTimer, WaitForLeftButtonUp, offSetMouseDelay, -1 ; Makes movement smoother.MouseClick, left,,, 1, 0, U ; Release the mouse button.returnWaitForRightButtonUp:if GetKeyState("f")return ; The button is still, down, so keep waiting.; Otherwise, the button has been released.SetTimer, WaitForRightButtonUp, offMouseClick, right,,, 1, 0, U ; Release the mouse button.return;/*****************在非代码编辑器内实现括号补全*****************************/;|+=======================================================+|;|| 热键 caps + 9 ||;|+=======================================================+|#ifCapsLock & 9::bracketAutoCpOn := !bracketAutoCpOnReturn#if bracketAutoCpOn{$(::send,{(}send,{)}send,{left}return${::send,{{}send,{}}send,{left}return$"::send,{"}send,{"}send,{left}return$'::send,{'}send,{'}send,{left}return}#if;/**************************系统按键修改*****************************/;|+=======================================================+|;|| CapsLock & a | Caps ||;|| ` | esc ||;|| esc | ` ||;|+=======================================================+|CapsLock & a::GetKeyState, CapsLockState, CapsLock, Tif CapsLockState = DSetCapsLockState, AlwaysOffelseSetCapsLockState, AlwaysOnKeyWait, a$`::Esc$esc::`;滚动当前鼠标下的窗口的滚动条GroupAdd,canNotWheel,ahk_class Windows.UI.Core.CoreWindow;开始菜单GroupAdd,canNotWheel,ahk_class ApplicationFrameWindow;uwp应用GroupAdd,canNotWheel,ahk_class HH Parent#IfwinNotActive,ahk_group canNotWheel#IfWinActive,ahk_group canNotWheelcoordmode,Mouse,screenWheelUp::WheelDown::MouseWheelSetp:=(A_ThisHotkey="WheelUp") ? 120 : -120MouseGetPos, MWAW_x, MWAW_yMWAW_Hwnd := DllCall( "WindowFromPoint", "int", MWAW_x, "int", MWAW_y )SendMessage, 0x20A, MouseWheelSetp << 16, ( MWAW_y << 16 )|MWAW_x,, ahk_id %MWAW_Hwnd%return#If;/***********************键盘编辑用的热键*****************************/;|+=======================================================+|;|| CapsLock & [ | WheelUp ||;|| CapsLock & ] | WheelDown ||;|| CapsLock & 1 | ` ||;|| CapsLock & 2 | ~ ||;|+-------------------------+-----------------------------+|;|| CapsLock & ijkl | 上下左右 ||;|| CapsLock & alt & ik | sublime 内光标 ||;|| CapsLock & alt & jl | 单词移动 ||;|| CapsLock & ctl & + jl | 选中单词 ||;|| CapsLock & ctr & jk | sublime 内 行移动 ||;|+-------------------------+-----------------------------+|;|| CapsLock & g | AppsKey ||;|| CapsLock & o | delete ||;|| CapsLock & p | BackSpace ||;|| CapsLock & h | BackSpace ||;|| CapsLock & n | BackSpace ||;|| CapsLock & shift & h | shift+home ||;|| CapsLock & shift & n | shift+end ||;|| CapsLock & alt & h | ctrl+home ||;|| CapsLock & alt & n | ctrl+end ||;|| win & ctrl & tab | ctrl+win+{right} ||;|| win & ctrl & shift+tab | ctrl+win+{left} ||;|| CapsLock & ; | = ||;|| CapsLock & ' | + ||;|+-------------------------------------------------------+|;|| 数字键 ||;|+-------------------------+-----------------------------+|;|| F7 | 开启键 ||;|+-------------------------+-----------------------------+|;|| n/m | 0 ||;|| j | 1 ||;|| k | 2 ||;|| l | 3 ||;|| u | 4 ||;|| i | 5 ||;|| o | 6 ||;|| 7 | 7 ||;|| 8 | 8 ||;|| 9 | 9 ||;|| 0 | / ||;|| p | * ||;|| ; | - ||;|| / | + ||;|+-------------------------------------------------------+|;|| 音量控制 ||;|+-------------------------+-----------------------------+|;|| XButton1 | Volume_Up ||;|| XButton2 | Volume_Down ||;|| XButton2 & WheelDown | Volume_Down ||;|| XButton2 & WheelUp | Volume_Up ||;|| CapsLock & PgUp | Volume_Up ||;|| CapsLock & PgDn | Volume_Down ||;|+=======================================================+|;滑动CapsLock & [::send,{WheelUp}CapsLock & ]::send,{WheelDown};`&&~CapsLock & 1::send,``CapsLock & 2::send,{~}; move leftCapsLock & j::if GetKeyState("LShift", "P")send, +{Left}else if GetKeyState("LAlt", "P")send,^{left}else if GetKeyState("LControl", "P")send,^+{left}elsesend, {Left}Return; move rightCapsLock & l::if GetKeyState("LShift", "P")send, +{right}else if GetKeyState("LAlt", "P")send,^{right}else if GetKeyState("LControl", "P")send,^+{right}elsesend, {right}Return; move upCapsLock & i::if GetKeyState("LShift", "P")send, +{up}else if GetKeyState("LAlt", "P")send,^!{up}else if GetKeyState("LControl", "P")send,^+{up}elsesend, {up}Return; move downCapsLock & k::if GetKeyState("LShift", "P")send, +{down}else if GetKeyState("LAlt", "P")send,^!{down}else if GetKeyState("LControl", "P")send,^+{down}elsesend, {down}Return;homeCapsLock & h::if GetKeyState("LShift", "P")send, +{home}else if GetKeyState("LAlt", "P")send, ^{home}elsesend, {home}Return; endCapsLock & n::if GetKeyState("LShift", "P")send, +{end}else if GetKeyState("LAlt", "P")send, ^{end}elsesend, {end}Return;ctrl win {left/right}Lwin & tab::if GetKeyState("LCtrl","P")if GetKeyState("Lshift","P")send,^#{left}elsesend,^#{right}Elsesend,#{tab}Return;AppsKeyCapsLock & g:: Send, {AppsKey};delelteCapsLock & o::send,{delete} CapsLock & p::send,{BackSpace};= + ()CapsLock & `;::send,{=}CapsLock & '::send,{+};!F4LCtrl & w::if GetKeyState("alt"){Send, !{F4}}Else{Send, ^w} ;|return;数字键 热键F7#ifF7::ONOFF := !ONOFFReturn#if ONOFF{u::4i::5o::6j::1k::2l::3m::0n::00::/p::*`;::-/::+}#if;鼠标控制音量XButton1::Volume_UpXButton2::Volume_DownXButton2 & WheelDown::send,{Volume_Down}XButton2 & WheelUp::send,{Volume_Up}CapsLock & PgUp::send,{Volume_Up}CapsLock & PgDn::send,{Volume_Down};/********************扩展的快捷方式***********************/;|+=======================================================+|;|| CapsLock & c | calc ||;|| caps+alt+s | sublime text ||;|| win+t | cmder ||;|| win+f | everything ||;|| ^#f | fastcopy ||;|| ^#f | fastcopy ||;|+-------------------------+-----------------------------+|;|| | YodaoDict ||;|| CapsLock & F9 | radar ||;|| | BaiduSnapshot ||;|+-------------------------+-----------------------------+|;|| CapsLock & z | website目录 ||;|| CapsLock & x | 我的手册 ||;|| ^#c | 获取路径 ||;|| !#c | 拾色器 ||;|| Cap & r | 键盘录制 ||;|+=======================================================+|;计算器CapsLock & c::run calc.exe;sublime_textCapsLock & s::if GetKeyState("LALT", "P")run sublime_textReturn;cmder#t::send ^csleep,200clipboard=cd %clipboard% ;%null%tooltip,%clipboard%sleep,500tooltip,run C:\Program Files (x86)\cmder\Cmder.exeReturn;everything#f::run C:\Program Files\Everything\Everything.exe;fastcopy^#f::run C:\Program Files (x86)\FastCopy\FastCopy.exe;截图^+a::run D:\Program Files (x86)\MY_Tools\BaiduSnapshot.exe;打开我开机要运行的程序CapsLock & F9::run D:\Program Files (x86)\YodaoDict\YodaoDict.exerun D:\Program Files (x86)\MY_Tools\radar.exerun D:\Program Files (x86)\ss\Shadowsocks.exeReturn;打开www文件夹CapsLock & z::www=D:\myWebSiterun %www%Return;打开我的手册CapsLock & x::handnote=D:\myhandnoterun %handnote%Return; 获取路径^#c::send ^csleep,200clipboard=%clipboard% ;%null%tooltip,%clipboard%sleep,500tooltip,return;拾色器!#c::run D:\Program Files (x86)\MY_Tools\TakeColor.exe; MouseGetPos, mouseX, mouseY; PixelGetColor, color, %mouseX%, %mouseY%, RGB; StringRight color,color,6; clipboard = #%color%; tooltip,color is %color%; sleep 2000; tooltip,returnCapsLock & r:: run D:\Program Files (x86)\MY_Tools\key_record.ahk;/**********************简单实用的剪切板*******************/;|+=======================================================+|;|| * 支持拷贝多段文字 ||;|| * 顺序粘贴 ||;|+-------------------------+-----------------------------+|;|| #0： | 清空 ||;|| ^c | 复制 ||;|| #v | 依次粘贴 ||;|| #] | 依次粘贴，但顺序相反 ||;|+=======================================================+|handleClip(action){global static AddNextNumglobal static GetNextNumglobal static HighestNumglobal static getprevnumglobal static highest1global static ClipArrayglobal static ClipArray1global static ClipArray2global static ClipArray3global static ClipArray4global static ClipArray5global static ClipArray6global static ClipArray7global static ClipArray8global static ClipArray9global static ClipArray10global static ClipArray11global static ClipArray12global static ClipArray13global static ClipArray14global static ClipArray15global static ClipArray16global static ClipArray17global static ClipArray18global static ClipArray19global static ClipArray20global static ClipArray21global static ClipArray22global static ClipArray23global static ClipArray24global static ClipArray25global static ClipArray26global static ClipArray27global static ClipArray28global static ClipArray29global static ClipArray30if (action = "save"){if (AddNextNum < 30){AddNextNum += 1 ;}else{AddNextNum := 1 ;}if (HighestNum < 30){HighestNum += 1 ;}GetNextNum := AddNextNum ;ClipArray%AddNextNum% := Clipboardhighest1 := highestnum + 1getprevnum := 1}else if ((action = "get") OR (action = "roll")){if (GetNextNum != 0){if (action = "roll"){Send, ^z}Clipboard := ClipArray%GetNextNum%if (GetNextNum > 1){GetNextNum -= 1 ;getprevnum++}else{getprevnum := 1GetNextNum := HighestNum}Send, ^v}}else if (action = "get-reverse"){if (GetNextNum != 0){Clipboard := ClipArray%getprevnum%if (GetNextNum > 1){GetNextNum -= 1 ;getprevnum++}else{getprevnum := 1GetNextNum := HighestNum}Send, ^v}}else if (action = "rollforward"){if (GetNextNum != 0){Send, ^zif (GetNextNum < HighestNum){GetNextNum += 1 ;}else{GetNextNum := 1}Clipboard := ClipArray%GetNextNum%Send, ^v}}else if (action = "clear"){GetNextNum := 0AddNextNum := 0HighestNum := 0getprevnum := 0}};控键#0::handleClip("clear")return^c::suspend onSend, ^csuspend offhandleClip("save")return#v::handleClip("get-reverse")return#]::handleClip("get")return#/::clipboard =return#^\::handleClip("rollforward")return; end 剪切分享一套我现在在使用Autohotkey的脚本相关推荐
- 建房子 最安全图纸_农村建什么样的房子合适？分享15套图纸，总有一套适合你...
农村建房可是一件大事,少说也要住几十年.所以外观设计要美观,户型设计也要舒适宜居,最好造价还不高.那么什么样的房子适合农村呢?今天给大家分享15套图纸,总有一套适合你! 第1套:双入户门+老虎窗,9× ...
- 分享一套超棒的iOS “空状态” (empty state) 界面UI设计
日期:2013-2-1 来源:GBin1.com 大家在程序开发或者界面设计中常常会遇到这样一些情况: 404 error 内容未找到 账户余额不够 文件没有找到 等等 这 些典型的属于empty ...
- 分享一套基于SpringBoot和Vue的企业级中后台开源项目，这个项目有点哇塞！
点击上方蓝字关注「程序员的技术圈子」 今天圈子哥给大家分享一套很不错的企业级的开源项目,最近一直比较忙,所以一直没有写文章,但也是一直想着给大家分享一些有价值的东西,而项目经验可能对于很多的在校学生来 ...
- 分享45套2011年和2012年的高质量免费网站模板
日期:2012-11-11 来源:GBin1.com 前端时间我们分享了12套超酷的后台管理员界面网站模板,相信看过的朋友肯定已收入囊中了,今天呢,我们继续推荐45套高质量的免费网站模版,相信如果需 ...
- 分享一套阿里高级Java面试题，要去阿里的先过这些题。
转载自 分享一套阿里高级Java面试题,要去阿里的先过这些题.
- 分享一套高级Java笔试题(实拍高清图)
转载自 分享一套高级Java笔试题(实拍高清图) 下面是部分分享原图
- 3月份分享一套 abcchn 的网站程序
3月份分享一套 abcchn 的网站程序,我一看就不好意思了,云霞满天,它可是一只狗啊,他喜欢给同学起绰号,像五颜六色的焰火溅落人间,全都去抄家伙,指导教师,七彩的abcchn烛光快乐的闪烁着. ab ...
- I-EIM分享一套局域网通讯源码
通讯员就羡慕得不得了,有一棵棵高达挺拔的白杨, 飞鸽传书 今年内首次载人飞行即将付诸实现,汕头市强大的团队决定将小公园规划为历史风貌保护区,骄傲,我痛下决心,他还有灵活的双手,正在铲着路上的积雪,一定 ...
- 分享几套古典复古式的UI设计
古典复古的UI界面设计能够非常好的点缀你的网页,特别是如果你需要展示你的产品或者内容的深度内涵或者体验你的内容或者产品的经久不衰的气质的 话,古典或者复古式的界面UI绝对是你首选,在这里我们收集了10 ...
最新文章
- 第一次亲密接触vim编辑器
- matlab 判断文件有多少行,在Matlab中有没有办法确定文件中的行数,而不是循环遍历每一行？...
- 中国十大最美梯田，个个都美如画！
- Spark IDEA 编程环境配置
- 怎样增加phpmyadmin导入文件上限
- 【HAOI2008】【BZOJ1045】糖果传递（环形纸牌均分，前缀和）
- sqlserver之创建视图
- GoodUP:智协云店通+BitCOO的4WiN全球互贸链 | 翼次元空间
- 制作自己的openwrt刷机包_openwrt刷机教程
- html5 基本知识
- 计算机弹奏卡布奇诺,计算机学院信息安全技术协会卡布奇诺加糖队在第十二届全国大学生信息安全竞赛中喜获佳绩...
- Scene之间的数据传递
- 划词翻译脚本--AutoHotkey
- OpenCV-Python投影透视变换函数getPerspectiveTransform及warpPerspective详解
- 最近公共祖先 (Lowest common ancestor)
- 漏洞挖掘之乱拳打死老师傅——Fuzzer
- 趁“未老”，再认真一次，我觉得你能更好！
- c语言随机产生100个字母,C语言实现生成1到100随机数的方法
- LCD段/断码屏的针脚如何设计？
- 阿里P7级别Java程序员跳槽，爆出税后工资，竟比阿里高