自动复制的实现与逻辑分析

大家的板块 AutoHotkey
1

温馨提示：本文使用 Ahk v2 进行代码编写，如有需求，自行修改为v1代码。

昨天学习了KeyWait，第一反应是可以做一个自动复制的脚本。

说干就干，仔细分析一下功能需求：

  1. 鼠标左键按下，选中文本，实现复制；

  2. 鼠标点击需要插入文本的地方Ctrl+V粘贴文本。

初步尝试

第一版代码出来了：

~LButton::{
	KeyWait "LButton"
	Send "^c"
}

写的很快，错的也很快。

虽然实现了快速复制，但是我每次鼠标点击都会触发事件。

回到需求 2，很明显复制的文本会立刻被覆盖，难道用来（搭配微信输入法）做剪贴板同步吗？

鸡肋！（骂骂咧咧继续思考）

引入sleep和GetKeyState

一夜无果，第二天重新思考并在群里进行了询问。

很明显，我不需要在任何时候去进行复制，而选择被复制的文本肯定需要一定时间。

初步将这个时间定为 1s。

首先是决定加入sleep，简单的加入并不能解决问题，因为会阻塞运行，导致我的鼠标勾选不显示。

由群里@逍遥大佬的第一版本建议出现了，我接触到一个新的函数GetKeyState：

~LButton::{
    StartTime := A_TickCount
    While GetKeyState("LButton", "P")
    {
        If (A_TickCount - StartTime > 2000)
        {
            Send "^c"
            Return
        }
        Sleep 10
    }
}

建议的很好，仍然觉得哪里不对，打开文档查一下：

对于键盘键和鼠标按钮, 如果键位向下(或切换开启), 该函数返回 1(true) 如果键位向上(或切换关闭), 该函数返回 0(false).

咦，这样看来，while循环发生在我按住鼠标的时候啊，那岂不是不等我完全选中就要开始复制了？

事实证明，的确如此（大哭）。

问题解决（两种方案）

我没解决，饭后再看发现群里已经出现了两种解法，鲁迅说过：拿来吧你，现在都是我的了。

本着拿来主义精神，我对代码分析后得到了满足需求的两个版本：

第一个版本仍然是逍遥大佬给出的：

~LButton:: {
	StartTime := A_TickCount
	While GetKeyState("LButton", "P")
	{
		Sleep 10
	}
	If (A_TickCount - StartTime > 1000)
	{
		; MsgBox "长按左键1秒钟了！"
		Send "^c"
	}
}

这个解法的思路是：要在松开左键时判断，那就在左键按住时阻塞他，于是有了while循环的Sleep，当释放鼠标，进行判断。

思路奇妙而省心。（今日大收获之while不仅可以用来循环，还可以用来等待）

第二个版本是@白天提出：

~LButton:: {
	StartTime := A_Now
	KeyWait "LButton"
	if DateDiff(A_Now, StartTime, "Seconds") >= 1 {
		SendInput "^c"
	}
}

这里以按下左键触发程序，然后立刻做了一个锚点StartTime，当KeyWait执行结束后将时间进行对比，这其实更加的合理，只是我最初的思路是，一步到位的等待KeyWait LButton Up，反而执行失败。

思考的点在于，我没料到，在我一直按住左键这段时间，可以额外添加一个KeyWait "LButton"来进行判断。

写程序最重要的是思维，今天一个程序的两个解法让我收获匪浅，今后将继续学习下去。

最后重新放上两种解法：

~LButton:: {
	StartTime := A_TickCount
	While GetKeyState("LButton", "P")
	{
		Sleep 10
	}
	If (A_TickCount - StartTime > 1000)
	{
		; MsgBox "长按左键1秒钟了！"
		Send "^c"
	}
}

~LButton:: {
	StartTime := A_Now
	KeyWait "LButton"
	if DateDiff(A_Now, StartTime, "Seconds") >= 1 {
		SendInput "^c"
	}
}