发现这样取色是快了,但是又一个问题求解决

你能做到这个地步真不简单
我这边有两种不占用剪切板的方式给你做参考
AHK的缺点是两个脚本之间无法使用常规方法互通变量，因此当时我遇到类似问题时看到别的大佬采取了如下方式
1、直接把值写到INI文件中，通过读取INI获取变量
2、或者写进内存，读取内存的值获取变量
我个人采用一种比较笨拙的方式，就是按键宏脚本自身先生成一个荧幕外的GUI，而取色宏使用postMessage将取色结果发送到该GUI，然后通过按键脚本读取自身GUI的内容，间接获取取色宏的变量

这个就是先分配内存大小和地址，并且将内存地址写进剪切板里，然后将字符串写进对应地址的内存中。然后通过读取剪切板的内存地址信息，读到该地址的文字
;写
size := 1024 ; 分配的内存大小为1024字节
ptr := DllCall("GlobalAlloc", "UInt", 0x40, "UInt", size) ; 分配内存，并返回内存地址
clipboard := "" ; 让剪贴板初始为空
clipboard = %ptr%
str := "这是字符串"
char_num := StrPut(str, ptr, -1, "UTF-16") ; 将字符串复制到内存地址中
;读
char_num := 1024 ; 假设我们要读取1024个字符
str := StrGet(clipboard, char_num, "UTF-16") ; 从剪切板的内存地址中读取字符串
DllCall("GlobalFree", "UInt", clipboard) ; 释放剪切板的内存地址的内存
MsgBox % str ; 显示结果

@eisenhower
你若是要在两个脚本之间单向传递字符串可以用如下方式：
建立两个脚本
接收字符串的脚本起个名字，比如1.ahk
发送字符的脚本名称无所谓
【发送端】的内容
F1::
StringToSend = 这里改成你想发送的内容 ;发送的字符串
TargetScriptTitle := "1.ahk ahk_class AutoHotkey" ;接收上方字符串的脚本全名
Send_WM_COPYDATA(StringToSend, TargetScriptTitle) ;发送字符串到其他脚本的动作
return
Send_WM_COPYDATA(ByRef StringToSend, ByRef TargetScriptTitle)
{
VarSetCapacity(CopyDataStruct, 3*A_PtrSize, 0)
SizeInBytes := (StrLen(StringToSend) + 1) * (A_IsUnicode ? 2 : 1)
NumPut(SizeInBytes, CopyDataStruct, A_PtrSize)
NumPut(&StringToSend, CopyDataStruct, 2*A_PtrSize)
Prev_DetectHiddenWindows := A_DetectHiddenWindows
Prev_TitleMatchMode := A_TitleMatchMode
DetectHiddenWindows On
SetTitleMatchMode 2
SendMessage, 0x004A, 0, &CopyDataStruct,, %TargetScriptTitle%
DetectHiddenWindows %Prev_DetectHiddenWindows%
SetTitleMatchMode %Prev_TitleMatchMode%
return ErrorLevel
}
【接收端 】1.ahk的内容
global CopyOfData := "未接收到任何值" ;定义接收字符串的变量为全局，以便在本脚本引用
F2::
OnMessage(0x004A, "Receive_WM_COPYDATA") ;从其他脚本接收命令
msgbox,%CopyOfData%
return
Receive_WM_COPYDATA(wParam, lParam)
{
StringAddress := NumGet(lParam + 2*A_PtrSize)
CopyOfData := StrGet(StringAddress)
return true
}
-------------------------------------------
这样的话，你同时打开两个脚本时
按下F1，发送端就会把字符串传递到1.ahk里
此时再按F2，1.ahk就会显示传递过来的字符串

占用剪切板的问题很好解决，第一个取色脚本里加一个打断循环的语录就行了
if (GetKeyState("1","P") )
break