幸运之星正在降临...
点击领取今天的签到奖励!
恭喜!您今天获得了{{mission.data.mission.credit}}积分
我的优惠劵
-
¥优惠劵使用时效:无法使用使用时效:
之前
使用时效:永久有效优惠劵ID:×
没有优惠劵可用!
自用一个很久的,算是比较稳定可用的了。唯一问题是只能粘贴纯文本,没有找到解决办法,用clipboardall也没解决,试了下其他剪贴板软件也不能实现批量的带格式文本粘贴,目前来看没有解决办法,敬请各位指点。
```ahk
#NoEnv
;~ SendMode Input
SetWorkingDir %A_ScriptDir%
global obj:=[]
global mcopy_num := 1
global toget = 1
global lbType
SetTimer,Tool21,100,On
OnClipboardChange("GetClipContent")
return
GetClipContent(Type) {
lbType := Type
if (toget == 1)
{
obj[mcopy_num] := Clipboard
mcopy_num := mcopy_num + 1
}
}
Tool21:
lb:=mcopy_num - 1
ToolTip,剪贴板类型:%lbType%`n已拷贝次数:%lb%`n`n使用说明:`n c:复制 x:剪切 v:粘贴`n r:重置 esc:退出
return
c:: ;复制
send,^c
ClipWait,0.1
sleep,20
return
x:: ;剪切
send,^x
ClipWait,0.1
sleep,20
return
v:: ;粘贴纯文本
mcopy := obj[1]
loop_num := mcopy_num -2
i = 2
loop,%loop_num%
{
mcopy := mcopy . "`n" . obj[i]
i := i + 1
}
toget = 0
Clipboard := mcopy
sleep 20
send,^v
toget = 1
return
r:: ;重置
obj:=[]
mcopy_num:=1
return
esc::ExitApp
GuiEscape:
GuiClose:
ExitApp
```
兄dei,代码呢