dog
1
缘起
@Kuma 同学热衷于想要搞个quicker平替, 近日打算开发Quicker平替软件,并加我微信让帮忙尝试一个claunch版本的quicker平替。
刚好我也有类似需求,因为quicker经常和我的ahk小工具冲突,但是quicker这样根据软件不同显示不同面板的功能又挺好用的。
简介
在claunch原本基础上,增强了以下功能:
- 根据不同窗口显示不同面板。
- 快速添加ahk脚本。
- 快速更换图标。
- 去除了claunch对于窗口激活的影响,实现了文本编辑等操作。
- 悬浮按钮功能。
使用说明
1. 下载、解压,运行claunahk.ahk,而不是claunch.exe。
2. 三重触发键
默认快捷键为xbutton1。
- 单击xbutton1==非锁定模式打开根据进程的面板,点击按钮后消失。
- 长按xbutton1==锁定模式打开根据进程的面板,适合连续使用。
- 双击xbutton1==以非锁定模式打开通用面板。
3. 创建进程面板
很简单,只需要将该面板命名为对应进程的exe名、"c "+class名 或"t "+ title名即可。
更复杂的窗口匹配规则(如正则匹配、group匹配等)可以自行修改claunahk.ahk添加特例。
这些信息可通过autohotkey的widowspy快捷获得。
4. 快速添加ahk脚本
按下快捷键win+n(new),打开ahk脚本默认存放文件夹、以及锁定模式打开根据进程的面板,方便快速新建脚本并拖到面板。
5. 快速更换图标(仅对 非 长按xbutton1触发的面板起效)
通过snipaste截图到剪贴板后,右键双击目标按钮,此时ico图标地址已放置在剪贴板,粘贴到文件名编辑框处即可。
另外,子文件夹"png转ico手动"中还有一个方便手动将网络下载的png图标转换成ico的工具,可以配合使用。
6. 悬浮按钮(仅对 非 长按xbutton1触发的面板起效)
将鼠标移动到目标按钮,然后按下快捷键win+f(float),即可生成一个悬浮按钮,可以随意拖动使用。悬浮按钮没有数量限制。
。
! 注意:后两个功能对于长按xbutton触发的面板(exe名为clahk.exe)不起效
这是因为,为了便于连续点击按钮时,不影响窗口激活状态,长按触发的面板进行了特殊处理,所以按键无法发送到clahk窗口上面。
下图示例连续点击按钮操作:
下载地址
链接: https://pan.baidu.com/s/125d5jpEFjQ4mR_c_IWvpRw?pwd=pntp 提取码: pntp 复制这段内容后打开百度网盘手机App,操作更方便哦
edit:12.10
更新了一个新版本的悬浮按钮,支持右键单击后锁定/解锁 对当前激活窗口的吸附。
吸附后,主窗口和按钮同步移动、同步最小化。
关闭主窗口,按钮自动关闭。
关闭按钮,不影响主窗口。
该地址==>dogbean.ysepan.com 下载悬浮按钮.exe,替换claunahk文件夹下原本的悬浮按钮.exe即可。
对于小白用户
推荐两款ahk傻瓜式创建器,
- GitHub - Pulover/PuloversMacroCreator: Automation Utility - Recorder & Script Generator
- GitHub - papple23g/ahkcompiler: AutoHotKey 語法產生器(線上網站)
打赏及代码定制
ahk代码定制:咸鱼搜索用户 豆子哆嗦
26 Likes
zhongx
2
这个悬浮按钮可以根据切换程序实现 自动显示隐藏吗?
Kuma
7
老哥,太神了,这个皮肤跟quicker面板好像,图标位置大小想弄多大弄多大,卸载quciker!
个人还是习惯使用右键长按触发窗口(并且公司鼠标没有侧键 ),研究半天勉强实现了……编辑了一万遍帖子,感谢GPT4
Kuma
11
【脚本分享】WPS 首行缩进
SendInput,{Alt}
sendinput,o
SendInput,p
sendinput,{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}
SendInput,{2}{enter}
return
1 Like
Kuma
12
公文格式脚本,平替小恐龙公文排版插件
代码来自 ahk设置WPS办公自动化热键脚本(word/excel类似) - AutoHotkey Community
设置大标题
word := ComObjActive("kwps.Application")
if word.selection.type =1 ;当前Word中未选择具体内容,为光标闪烁状态
{
word.Selection.MoveRight ;向右移动1格光标
word.Selection.MoveUp(unit := 4) ;移动光标到段首
word.Selection.MoveDown(unit := 4,,1) ;选中光标到段尾的内容
}
word.Selection.ClearFormatting ;清除格式
word.Selection.Range.HighlightColorIndex := 0 ;背景色突出显示,不能通过清除格式去掉(注意不是底纹)
word.Selection.ParagraphFormat.CharacterUnitLeftIndent := 0 ;左缩进、右缩进、首行缩进(注意:必须中文设置在前,英文设置在后)
word.Selection.ParagraphFormat.CharacterUnitRightIndent := 0
word.Selection.ParagraphFormat.CharacterUnitFirstLineIndent := 0
word.Selection.ParagraphFormat.LeftIndent := 0
word.Selection.ParagraphFormat.RightIndent := 0
word.Selection.ParagraphFormat.FirstLineIndent := 0
word.Selection.Font.Name := "方正小标宋简体"
word.Selection.Font.Size := 22 ;二号
word.Selection.ParagraphFormat.Alignment := 1 ;0左对齐,1居中,2右对齐,3两端对齐,4分散对齐
word.Selection.ParagraphFormat.LineSpacingRule := 4 ;行距规则,单倍行距多倍行距等,依据菜单项从0到5
word.Selection.ParagraphFormat.LineSpacing := 28 ;行距具体值
MouseMove, 2, 2 , , R
word :=""
Return
设置正文
word := ComObjActive("kwps.Application")
word.Selection.ClearFormatting ;清除格式
word.Selection.Range.HighlightColorIndex := 0 ;背景色突出显示,不能通过清除格式去掉(注意不是底纹)
word.Selection.ParagraphFormat.CharacterUnitLeftIndent := 0 ;左缩进、右缩进、首行缩进(注意:必须中文设置在前,英文设置在后)
word.Selection.ParagraphFormat.CharacterUnitRightIndent := 0
word.Selection.ParagraphFormat.CharacterUnitFirstLineIndent := 2
word.Selection.ParagraphFormat.LeftIndent := 0
word.Selection.ParagraphFormat.RightIndent := 0
word.Selection.ParagraphFormat.FirstLineIndent := 0
word.Selection.Font.Name := "仿宋_GB2312"
word.Selection.Font.Size := 16 ;三号
word.Selection.ParagraphFormat.LineSpacingRule := 4 ;行距规则,单倍行距多倍行距等,依据菜单项从0到5
word.Selection.ParagraphFormat.LineSpacing := 28 ;行距具体值
MouseMove, 2, 2 , , R
word :=""
Return
2 Likes
Kuma
13
WPS的表格,新建标签页,命名为et
合并单元格居中
SendInput,{Alt}
sendinput,h
SendInput,m
sendinput,c
return
设置单元格底色
ket := ComObjActive("Ket.Application")
if OnOff := !OnOff
{
ket.Selection.Interior.Colorindex := 6
}
else
{
ket.Selection.Interior.Colorindex := 0
}
ket :=""
return
zhongx
16
;---- 在网页中搜索选中文字 ------
{
Send, ^c
Sleep 50
Run, https://www.bing.com/search?q=%clipboard%
;Run, https://www.baidu.com/s?wd=%clipboard%
;Run, http://www.google.com/search?q=%clipboard%
Return
}
Kuma
17
【C#脚本】数字转金额大写
引擎与脚本下载
用法:将 csws.exe 数字转大写金额.cs
注册到面板
视频演示
脚本代码
using System;
using System.Windows.Forms;
public class Script
{
static public void Main()
{
string t=Clipboard.GetText();
decimal num=decimal.Parse(t);
// MessageBox.Show(CmycurD(num));
//SendKeys.Send(CmycurD(num));
Clipboard.SetText(CmycurD(num));
}
/// <summary>
/// 转换人民币大小金额
/// </summary>
/// <param name="num">金额</param>
/// <returns>返回大写形式</returns>
static public string CmycurD(decimal num)
{
string str1 = "零壹贰叁肆伍陆柒捌玖"; //0-9所对应的汉字
string str2 = "万仟佰拾亿仟佰拾万仟佰拾元角分"; //数字位所对应的汉字
string str3 = ""; //从原num值中取出的值
string str4 = ""; //数字的字符串形式
string str5 = ""; //人民币大写金额形式
int i; //循环变量
int j; //num的值乘以100的字符串长度
string ch1 = ""; //数字的汉语读法
string ch2 = ""; //数字位的汉字读法
int nzero = 0; //用来计算连续的零值是几个
int temp; //从原num值中取出的值
num = Math.Round(Math.Abs(num), 2); //将num取绝对值并四舍五入取2位小数
str4 = ((long)(num * 100)).ToString(); //将num乘100并转换成字符串形式
j = str4.Length; //找出最高位
if (j > 15) { return "溢出"; }
str2 = str2.Substring(15 - j); //取出对应位数的str2的值。如:200.55,j为5所以str2=佰拾元角分
//循环取出每一位需要转换的值
for (i = 0; i < j; i++)
{
str3 = str4.Substring(i, 1); //取出需转换的某一位的值
temp = Convert.ToInt32(str3); //转换为数字
if (i != (j - 3) && i != (j - 7) && i != (j - 11) && i != (j - 15))
{
//当所取位数不为元、万、亿、万亿上的数字时
if (str3 == "0")
{
ch1 = "";
ch2 = "";
nzero = nzero + 1;
}
else
{
if (str3 != "0" && nzero != 0)
{
ch1 = "零" + str1.Substring(temp * 1, 1);
ch2 = str2.Substring(i, 1);
nzero = 0;
}
else
{
ch1 = str1.Substring(temp * 1, 1);
ch2 = str2.Substring(i, 1);
nzero = 0;
}
}
}
else
{
//该位是万亿,亿,万,元位等关键位
if (str3 != "0" && nzero != 0)
{
ch1 = "零" + str1.Substring(temp * 1, 1);
ch2 = str2.Substring(i, 1);
nzero = 0;
}
else
{
if (str3 != "0" && nzero == 0)
{
ch1 = str1.Substring(temp * 1, 1);
ch2 = str2.Substring(i, 1);
nzero = 0;
}
else
{
if (str3 == "0" && nzero >= 3)
{
ch1 = "";
ch2 = "";
nzero = nzero + 1;
}
else
{
if (j >= 11)
{
ch1 = "";
nzero = nzero + 1;
}
else
{
ch1 = "";
ch2 = str2.Substring(i, 1);
nzero = nzero + 1;
}
}
}
}
}
if (i == (j - 11) || i == (j - 3))
{
//如果该位是亿位或元位,则必须写上
ch2 = str2.Substring(i, 1);
}
str5 = str5 + ch1 + ch2;
if (i == j - 1 && str3 == "0")
{
//最后一位(分)为0时,加上“整”
str5 = str5 + '整';
}
}
if (num == 0)
{
str5 = "零元整";
}
return str5;
}
}
dog
19
没办法,不是直接运行代码,通过启动器比quicker中间多了好几步
不过大部分自动化动作不差这点延迟
需要低延迟的还是用快捷键比较快,鼠标移动点击本来就得个一秒多了
zhongx
21
请问下,如何让代码仅在指定的窗口运行?
网上找的:
#IfWinActive ahk_exe msedge.exe
Send, ^+i
Return
#IfWinActive
没有效果,在其它窗口同样可以运行成功。
感谢楼下解决:
;---- 在指定的软件窗口中运行快捷键 ------
If WinActive("ahk_exe msedge.exe")
Send, ^+i