Claunahk小工具——ahk用户的quicker平替，简单但不简陋

[dog (荒废千年)]

缘起

@Kuma 同学热衷于想要搞个quicker平替， 近日打算开发Quicker平替软件，并加我微信让帮忙尝试一个claunch版本的quicker平替。

刚好我也有类似需求，因为quicker经常和我的ahk小工具冲突，但是quicker这样根据软件不同显示不同面板的功能又挺好用的。

简介

在claunch原本基础上，增强了以下功能：

1. 根据不同窗口显示不同面板。
2. 快速添加ahk脚本。
3. 快速更换图标。
4. 去除了claunch对于窗口激活的影响，实现了文本编辑等操作。
5. 悬浮按钮功能。

使用说明

1. 下载、解压，运行claunahk.ahk，而不是claunch.exe。

2. 三重触发键

默认快捷键为xbutton1。

1. 单击xbutton1==非锁定模式打开根据进程的面板，点击按钮后消失。
2. 长按xbutton1==锁定模式打开根据进程的面板，适合连续使用。
3. 双击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傻瓜式创建器，

1. GitHub - Pulover/PuloversMacroCreator: Automation Utility - Recorder & Script Generator

2. GitHub - papple23g/ahkcompiler: AutoHotKey 語法產生器(線上網站)

打赏及代码定制

ahk代码定制：咸鱼搜索用户 豆子哆嗦

[zhongx]

还有这种骚操作。

找到个窗口吸附的脚本，可能对悬浮按钮有帮助。
[AHK]吸附窗口_ahk_class scitewindow-CSDN博客

[leeyaunlong (lee)]

这种创新值得期待!

[CallieLari]

这个悬浮按钮可以根据切换程序实现 自动显示隐藏吗？

[dog (荒废千年)]

你自己改代码呗。

[Kuma (IFwz1729)]

感谢大大费心研究，虚心学习了

[Kuma (IFwz1729)]

老哥，太神了，这个皮肤跟quicker面板好像，图标位置大小想弄多大弄多大，卸载quciker！

[Evelynall (Evelynl)]

个人还是习惯使用右键长按触发窗口（并且公司鼠标没有侧键 ），研究半天勉强实现了……编辑了一万遍帖子，感谢GPT4

[mou]

非常感谢大神分享，惦记很久的功能了。

[heizhugan (安达)]

支持，支持~！

[Kuma (IFwz1729)]

【脚本分享】WPS 首行缩进

SendInput,{Alt}
sendinput,o
SendInput,p
sendinput,{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}
SendInput,{2}{enter}
return

[Kuma (IFwz1729)]

公文格式脚本，平替小恐龙公文排版插件
代码来自 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

[Kuma (IFwz1729)]

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

[Cycadaceae]

建议放到GitHub上面

[dog (荒废千年)]

账号忘了好几年。。。我试试找回一下。。。

[zhongx]

;---- 在网页中搜索选中文字 ------
{
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 (IFwz1729)]

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

[crows]

这延迟，也太大了

[dog (荒废千年)]

没办法，不是直接运行代码，通过启动器比quicker中间多了好几步

不过大部分自动化动作不差这点延迟

需要低延迟的还是用快捷键比较快，鼠标移动点击本来就得个一秒多了

[zhongx]

请问下，如何让代码仅在指定的窗口运行？
网上找的：

#IfWinActive ahk_exe msedge.exe
	Send, ^+i
	Return
#IfWinActive

没有效果，在其它窗口同样可以运行成功。
感谢楼下解决：

;---- 在指定的软件窗口中运行快捷键 ------
If WinActive("ahk_exe msedge.exe")
Send, ^+i