首页 > 代码库 > 剪贴板增强---Kawvin增强剪贴板_V2.0
剪贴板增强---Kawvin增强剪贴板_V2.0
#Persistent SetWorkingDir,%A_ScriptDir% ;设置工作目录 #MaxThreadsPerHotkey 5 ;最大热键数量 #NoEnv ;#Warn #SingleInstance force ;单脚本运行 #WinActivateForce ;强制激活窗体 Process Priority,,High ;线程,主,高级 CoordMode, Mouse ;鼠标相对于屏幕 AutoTrim,on ;自动省略首尾的空格和Tab SetBatchLines -1 ;让脚本无休眠地执行（换句话说，也就是让脚本全速运行） ComObjError(0) ;禁用 COM 错误通告 Menu, Tray, UseErrorLevel ;阻止显示对话框和终止线程 ; #NoTrayIcon Label_DefVar: global MyAppVer:="Kawvin增强剪贴板v2.0(Q285781427)" global MyClipBoard_ini:= "MyClipBoard.ini" global All_Modes:="一次复制多次粘贴|多次复制一次粘贴|同时使用2个剪贴板|临时记事本|禁用" global Sel_Mode:= ;当前模式 global EnableSound:= ;启用声音 global CopyHotKey:= ;复制热键 global PasteHotKey:= ;粘贴热键 global BackHotKey:= ;多次向前 global PrevHotKey:= ;多次向后 global MenuHotKey:= ;菜单热键 global ListWinHotKey:= ;列表窗体热键 global LCopyHotKey:= ;用于显示-复制热键 global LPasteHotKey:= ;用于显示-粘贴热键 global LBackHotKey:= ;用于显示-多次向前 global LPrevHotKey:= ;用于显示-多次向后 global LMenuHotKey:= ;用于显示-菜单热键 global LListWinHotKey:= ;用于显示-列表窗体热键 global MyClipMenu:= ;定义剪贴板菜单 global CurWin_Title:= ;当前鼠标下的窗体标题 global MyUseTongPei :=0 ;设置是否启用通配符 global MyPasteLine :=0 ;定义目前将要粘贴的行数 global MyClipArray:={} ;定义剪贴板历史记录 global MyMaxID:=0 ;最大序号 global MySel:= ;定义临时存放变量 global MySelRich:= ;定义临时存放变量 global MyAutoEnter := ;定义是否自动回车 global MyFirText:= ;第一剪贴板内容 global MySecText:= ;第二剪贴板内容 global MyWS:= ;位数 global MyStart:= ;起始序号 global MyEnd:= ;终止序号 global MySpace:= ;间距 Label_Start: iniRead,Sel_Mode,%MyClipBoard_ini%,通用设置,当前模式 iniRead,EnableSound,%MyClipBoard_ini%,通用设置,启用声音 iniRead,CopyHotKey,%MyClipBoard_ini%,通用设置,复制热键 iniRead,PasteHotKey,%MyClipBoard_ini%,通用设置,粘贴热键 iniRead,BackHotKey,%MyClipBoard_ini%,通用设置,多次向前 iniRead,PrevHotKey,%MyClipBoard_ini%,通用设置,多次向后 iniRead,MenuHotKey,%MyClipBoard_ini%,通用设置,菜单热键 iniRead,ListWinHotKey,%MyClipBoard_ini%,通用设置,窗体热键 ;替换热键到正常键 LCopyHotKey:=MyFun_RetrunKeys(CopyHotKey) LPasteHotKey:=MyFun_RetrunKeys(PasteHotKey) LBackHotKey:=MyFun_RetrunKeys(BackHotKey) LPrevHotKey:=MyFun_RetrunKeys(PrevHotKey) LMenuHotKey:=MyFun_RetrunKeys(MenuHotKey) LListWinHotKey:=MyFun_RetrunKeys(ListWinHotKey) SkSub_CreatTrayMenu() Label_RegHotKey: CopyHotKey=$%CopyHotKey% PasteHotKey=$%PasteHotKey% BackHotKey=$%BackHotKey% PrevHotKey=$%PrevHotKey% MenuHotKey=$%MenuHotKey% ListWinHotKey=$%ListWinHotKey% if (Sel_Mode!="禁用") { hotkey,%CopyHotKey%,Label_Copy hotkey,%PasteHotKey%,Label_Paste hotkey,%BackHotKey%,Label_PasteBack hotkey,%PrevHotKey%,Label_PastePrev hotkey,%MenuHotKey%,TrayHandle_ShowMyClipArrayMenu hotkey,%ListWinHotKey%,TrayHandle_ShowListWin } Label_DrawGUI: gui Destroy if Sel_Mode=一次复制多次粘贴 { gui Main:+AlwaysOnTop Gui Font, w700 cRed Gui, Add, Text, x10 y5 h20 , 复制/添加:%LCopyHotKey%，1次粘贴:%LPasteHotKey%，②多次向:前%LBackHotKey%/后%LPrevHotKey% Gui Font Gui, Add, Edit, vMyFirText x12 y22 w360 h330 , Gui Font, w700 cRed Gui, Add, CheckBox, Checked vMyAutoEnter gLabel_AutoEnter x230 y360 w210 h20 , 粘贴后自动回车 Gui Font Gui, Add, Button, gLabel_GetData x20 y360 w80 h35 , ①数据确认 Gui, Add, Button, gLabel_Clear x102 y360 w80 h35 , 清空重置 Gui Font, s10 w700 cRed gui,Add,Text,x195 y382 h20,当前模式:%Sel_Mode% Gui Font Gui, Show, x127 y87 h402 w385, %MyAppVer% } if Sel_Mode=多次复制一次粘贴 { gui Main:+AlwaysOnTop Gui Font, w700 cRed Gui, Add, Text, x10 y5 h20 ,复制/添加:%LCopyHotKey%，粘贴:%LPasteHotKey% Gui Font Gui, Add, Edit, vMyFirText x12 y22 w360 h330 , Gui Font, w700 cRed Gui, Add, CheckBox, Checked vMyAutoEnter gLabel_AutoEnter x230 y360 w210 h20 , 粘贴后自动回车 Gui Font ;Gui, Add, Button, gLabel_GetData x20 y360 w80 h35 , 数据确认 Gui, Add, Button, gLabel_Clear x102 y360 w80 h35 , 清空重置 Gui Font, s10 w700 cRed gui,Add,Text,x195 y382 h20,当前模式:%Sel_Mode% Gui Font Gui, Show, x127 y87 h402 w385, %MyAppVer% } if Sel_Mode=同时使用2个剪贴板 { gui Main:+AlwaysOnTop Gui Font, w700 cRed Gui, Add, Text, x10 y5 h20 , 第1剪切板(复制:Alt+F11，粘贴:%LBackHotKey%) Gui Font Gui, Add, Edit, vMyFirText x12 y22 w360 h185 , Gui Font, w700 cRed Gui, Add, Text, x12 y213 h20 , 第2剪切板(复制:Alt+F12，粘贴:%LPrevHotKey%) Gui, Add, CheckBox, vMyUseTongPei gLabel_EnabledTongPei x273 y210 w120 h20 , 启用通配符(*) Gui Font Gui, Add, Edit, vMySecText x12 y230 w360 h90 , Gui, Add, Text, x12 y334 w30 h20 , 位数 Gui, Add, Edit, vMyWS x38 y330 w50 h20 , Gui, Add, UpDown, range1-9 x82 y330 w20 h20 , 1 Gui, Add, Text, x108 y334 w30 h20 , 起始 Gui, Add, Edit, vMyStart x134 y330 w50 h20 , 1 Gui, Add, UpDown, range1-999 x162 y330 w20 h20 , 1 Gui, Add, Text, x204 y334 w30 h20 , 终止 Gui, Add, Edit, vMyEnd x230 y330 w50 h20 , Gui, Add, UpDown, range1-999 x212 y330 w20 h20 , 99 Gui, Add, Text, x295 y334 w30 h20 , 间距 Gui, Add, Edit, vMySpace x322 y330 w50 h20 , Gui, Add, UpDown, range1-999 x352 y330 w20 h20 , 1 Gui Font, w700 cRed Gui, Add, CheckBox, Checked vMyAutoEnter gLabel_AutoEnter x230 y360 w210 h20 , 粘贴后自动回车 Gui Font ;Gui, Add, Button, gLabel_GetData x20 y360 w80 h35 , 数据确认 Gui, Add, Button, gLabel_Clear x102 y360 w80 h35 , 清空重置 Gui Font, s10 w700 cRed gui,Add,Text,x195 y382 h20,当前模式:%Sel_Mode% Gui Font Gui, Show, x127 y87 h402 w385, %MyAppVer% } if Sel_Mode=临时记事本 { gui Main:+AlwaysOnTop Gui Font, w700 cRed Gui, Add, Text, x10 y5 h20 , 复制/添加:%LCopyHotKey%，1次粘贴:%LPasteHotKey%，②多次向:前%LBackHotKey%/后%LPrevHotKey% Gui Font Gui, Add, Edit, vMyFirText x12 y22 w360 h330 , Gui Font, w700 cRed Gui, Add, CheckBox, Checked vMyAutoEnter gLabel_AutoEnter x230 y360 w210 h20 , 粘贴后自动回车 Gui Font Gui, Add, Button, gLabel_GetData x20 y360 w80 h35 , ①数据确认 Gui, Add, Button, gLabel_Clear x102 y360 w80 h35 , 清空重置 Gui Font, s10 w700 cRed gui,Add,Text,x195 y382 h20,当前模式:%Sel_Mode% Gui Font Gui, Show, x127 y87 h402 w385, %MyAppVer% } WinGet, MyID, ID, A ; 获取 窗体ID. WinGetPos,,, MyWindowWidth, MyWindowHeight, A ;---- 放置屏幕键盘在屏幕的底部（考虑到任务栏的位置）： SysGet, MyWorkArea, MonitorWorkArea, %MyMonitor% ; 计算用户窗体X坐标: MyWindowX = %MyWorkAreaRight% MyWindowX -= %MyWorkAreaLeft% ; 现在 MyWindowX 包含了显示器的宽度. MyWindowX -= %MyWindowWidth% MyWindowX += %MyWorkAreaWidth% ; 计算水平靠右的位置. ; 以下操作是为了防止窗体不是主显示器，或者任务栏停靠在屏幕左侧: MyWindowX += %MyWorkAreaLeft% ; 计算用户窗体Y坐标: MyWindowY = %MyWorkAreaBottom% MyWindowY -= %MyWindowHeight% WinMove, A,, %MyWindowX%, %MyWindowY% WinSet, AlwaysOnTop, On, ahMyid %MyID% ;WinSet, TransColor, %TransColor% 220, ahMyid %MyID% return ;========================= ;我的过程 SkSub_CreatTrayMenu() { Menu,Tray,DeleteAll Menu, Tray, NoStandard ;自定义菜单放在标准菜单上面 iniRead,Sel_Mode,%MyClipBoard_ini%,通用设置,当前模式 if Sel_Mode=禁用 menu,tray,icon,ICONS\KCx.ico else menu,tray,icon,ICONS\KC.ico loop,parse,All_Modes,`| { if A_LoopField!= { Menu, tray, add,%A_LoopField%,TrayHandle_ModeChange if (A_LoopField=Sel_Mode) menu,tray,Check ,%A_LoopField% } } Menu,tray, add ; 分隔符 menu,tray,add,清空剪贴板,TrayHandle_ClearCllipBoard Menu, tray, add ,剪贴板序列菜单,TrayHandle_ShowMyClipArrayMenu Menu, tray, add ,显示剪贴板列表窗体,TrayHandle_ShowListWin Menu, tray, add ; 分隔符 Menu,tray, add,参数设置,TrayHandle_EditSetting Menu,tray, add ; 分隔符 Menu, tray, add ,退出,TrayHandle_Exit Menu, Tray, Default, 剪贴板序列菜单 Menu, Tray, Click, 1 } return SkSub_CreatMyClipArrayMenu() { if MyClipArray.Length()<=1 return Menu,MyClipMenu,DeleteAll loop % MyClipArray.Length() { MyClipItem:= if strlen(MyClipArray[A_Index])>20 { MyClipItem:=substr(MyClipArray[A_Index],1,20) . "......" } else { MyClipItem:=% MyClipArray[A_Index] } menu,MyClipMenu,add,%MyClipItem%,MenuHandle_SetMenuItemToClipBoard menu,MyClipMenu,Icon,%MyClipItem%,ICONS\%A_Index%.ico } menu,MyClipMenu,add menu,MyClipMenu,add,清空历史记录,MenuHandle_ClearMenuItem ;Menu, MyClipMenu, Show } return TrayHandle_ShowMyClipArrayMenu: { ;MouseGetPos,Menu_X, Menu_Y MouseGetPos,,,CurWin_id ;当前鼠标下的进程ID WinGet, CurWin_Fullpath,ProcessPath,Ahk_ID %CurWin_id% ;当前进程的路径 WinGetTitle, CurWin_Title,Ahk_ID %CurWin_id% ;当前进程的标题 Menu, MyClipMenu, Show } return MenuHandle_SetMenuItemToClipBoard: MyPasteLine:=A_ThisMenuItemPos ClipBoard:=MyClipArray[MyPasteLine] ClipWait,0.5 send,^{vk56} return MenuHandle_ClearMenuItem: MyClipArray:={} Clipboard:= Menu,MyClipMenu,DeleteAll return TrayHandle_ShowListWin: gosub ,Label_GetData GuiControlGet,MyFirText,,MyFirText MouseGetPos,,,CurWin_id ;当前鼠标下的进程ID WinGet, CurWin_Fullpath,ProcessPath,Ahk_ID %CurWin_id% ;当前进程的路径 WinGetTitle, CurWin_Title,Ahk_ID %CurWin_id% ;当前进程的标题 Gui MyListWin:New Gui MyListWin:+AlwaysOnTop Gui MyListWin:Font, s12 Gui MyListWin:Add,Text, x5 y13 h21,指定的程序： Gui,MyListWin:Add, DropDownList,x100 y10 w300 vactivewindow, Gui MyListWin:Add,Button,x405 y9 w70 gMySub_RefreshList,刷新 MySub_RefreshList() MyListItems:= if MyClipArray.Length()=0 return loop % MyClipArray.Length() { if (A_Index=1) MyListItems:=MyClipArray[A_Index] else MyListItems:=MyListItems . "|" . MyClipArray[A_Index] } Gui MyListWin:Add,ListBox, x5 w470 h465 vMyListItem gMySub_PastMyListItem, %MyListItems% Gui MyListWin:Font Gui MyListWin:Show, w480 h500, 剪贴板列表 return TrayHandle_ClearCllipBoard: Clipboard:= return TrayHandle_ModeChange: Sel_Mode:=A_ThisMenuItem iniwrite,%Sel_Mode%,%MyClipBoard_ini%,通用设置,当前模式 Reload return TrayHandle_EditSetting: ;gui Destroy gui MySetWin:New ;Gui MySetWin:+OwnerMain gui MySetWin:+AlwaysOnTop Gui MySetWin:Font, s12 Gui MySetWin:Add, GroupBox, x11 y6 w315 h185, 热键指定：通用 Gui MySetWin:Font Gui MySetWin:Font, s11 Gui MySetWin:Add, Text, x25 y35 w105 h23 +0x200 Right, 复制： Gui MySetWin:Add, Edit, x145 y35 w165 h21 Gui MySetWin:Add, Text, x25 y65 w105 h23 +0x200 Right, 一次性粘贴： Gui MySetWin:Add, Edit, x145 y65 w165 h21 Gui MySetWin:Add, Text, x25 y95 w105 h23 +0x200 Right, 向前粘贴： Gui MySetWin:Add, Edit, x145 y95 w165 h21 Gui MySetWin:Add, Text, x25 y125 w105 h23 +0x200 Right, 向后粘贴： Gui MySetWin:Add, Edit, x145 y125 w165 h21 Gui MySetWin:Add, Text, x25 y155 w105 h23 +0x200 Right, 弹出菜单： Gui MySetWin:Add, Edit, x145 y155 w165 h21 Gui MySetWin:Add, Button, x65 y205 w75 h30, 确认 Gui MySetWin:Add, Button, gWinSetButtonCancel x200 y205 w75 h30, 取消 Gui MySetWin:Font Gui MySetWin:Show, w340 h250, 参数设置 return MySub_RefreshList() { droplist:= GuiControl,MyListWin:,activewindow,| WinGet, id, list,,, Program Manager Loop, %id% { this_id := id%A_Index% WinGetTitle, this_title, ahk_id %this_id% if this_title= continue if (this_title=CurWin_Title) droplist=%droplist%%this_title%|| else droplist=%droplist%%this_title%| } GuiControl,MyListWin:,activewindow, %droplist% ;Gui, MyListWin:Add, DropDownList,x100 y5 w370 vactivewindow, %droplist% } MySub_PastMyListItem() { GuiControlget,activewindow,MyListWin: ;MsgBox % activewindow if A_GuiEvent =DoubleClick { ClipBoard:=MyClipArray[A_EventInfo] sleep 100 ;WinWaitActive, %CurWin_Title% ,,5 WinActivate, %activewindow% send,^{vk56} } } WinSetButtonCancel: { Gui MySetWin:Destroy return } MySetWin确认: { Gui MySetWin:Destroy return } Label_Copy: if (Sel_Mode="一次复制多次粘贴" or Sel_Mode="多次复制一次粘贴" or Sel_Mode="临时记事本") { Clipboard = Send, ^{vk43} ClipWait,0.5 if ( ErrorLevel ) ;如果没有选择到什么东西，则退出 Return if MyFirText= MyFirText=%Clipboard% else MyFirText=%MyFirText%`n%Clipboard% Clipboard = GuiControl,,MyFirText,%MyFirText% } return Label_Paste: Critical, On GuiControlget, MyAutoEnter GuiControlget, MyFirText if (Sel_Mode="一次复制多次粘贴" or Sel_Mode="多次复制一次粘贴" or Sel_Mode="临时记事本") { if MyFirText= return else { if MyClipArray.Length()=0 Clipboard:=MyFirText sleep 100 if (MyAutoEnter=1) ;如果自动回车 { send,^{vk56} send,{Enter} } else { send,^{vk56} } Clipboard:= } } return !F11:: Critical, On if Sel_Mode=同时使用2个剪贴板 { GuiControl,,MyFirText, Clipboard = Send, ^{vk43} ClipWait,0.5 if ( ErrorLevel ) ;如果没有选择到什么东西，则退出 Return GuiControl,,MyFirText,%Clipboard% Clipboard = } return !F12:: Critical, On if Sel_Mode=同时使用2个剪贴板 { GuiControl,,MySecText, Clipboard = Send, ^{vk43} ClipWait,0.5 if ( ErrorLevel ) ;如果没有选择到什么东西，则退出 Return GuiControl,,MySecText,%Clipboard% Clipboard = } return Label_PasteBack: Critical, On GuiControlget, MyAutoEnter if (Sel_Mode="一次复制多次粘贴" or Sel_Mode="临时记事本") { if (MyPasteLine=-1) ;粘贴行数-1时,退出 Return MyPasteLine -=1 if (MyPasteLine <1) ;粘贴行数大于最大行数,不粘贴 { MyPasteLine:=0 return } Clipboard:=MyClipArray[MyPasteLine] sleep 100 if (MyAutoEnter=1) ;如果自动回车 { send,^{vk56} send,{Enter} } else { send,^{vk56} } Clipboard:= } if (Sel_Mode="同时使用2个剪贴板") { GuiControlGet, MyFirText if MyFirText= return else { Clipboard:=MyFirText sleep 100 if (MyAutoEnter=1) ;如果自动回车 { send,^{vk56} send,{Enter} } else { send,^{vk56} } Clipboard:= } } return Label_PastePrev: Critical, On GuiControlget, MyAutoEnter if (Sel_Mode="一次复制多次粘贴" or Sel_Mode="临时记事本") { if (MyPasteLine=-1) ;粘贴行数-1时,退出 Return MyPasteLine +=1 if (MyPasteLine > MyMaxID) ;粘贴行数大于最大行数,不粘贴 { MyPasteLine:=MyMaxID+1 return } Clipboard:=MyClipArray[MyPasteLine] sleep 100 if (MyAutoEnter=1) ;如果自动回车 { send,^{vk56} send,{Enter} } else { send,^{vk56} } Clipboard:= } if (Sel_Mode="同时使用2个剪贴板") { GuiControlGet, MySecText GuiControlGet, MyWS GuiControlGet, MyStart GuiControlGet, MyEnd GuiControlGet, MySpace GuiControlGet, MyUseTongPei if MySecText= ;第二剪贴板为空，退出 Return if (MyUseTongPei=0) ;不启用通配符 { Clipboard:=MySecText sleep 100 if (MyAutoEnter=1) ;如果自动回车 { send,^{vk56} send,{Enter} } else { send,^{vk56} } Clipboard:= } if (MyUseTongPei=1) ;启用通配符 { if (MyStart<MyEnd+1) ;如果起始值小于终止值 { MyTemStr:=MySecText ;MyPiPei:=MyFun_MakeN0(MyStart,MyWS) MyPiPei:=substr("000000000" . MyStart,1-MyWS) stringreplace,MyTemStr,MyTemStr,(*),%MyPiPei%,all MyStart:=MyStart+MySpace GuiControl,,MyStart,%MyStart% Clipboard:=MyTemStr sleep 100 if (MyAutoEnter=1) ;如果自动回车 { send,^{vk56} send,{Enter} } else { send,^{vk56} } Clipboard:= } } } return ; 粘贴后自动回车 Label_AutoEnter: { if (MyAutoEnter=1) MyAutoEnter:=0 else MyAutoEnter:=1 return } ; 清空重置 Label_Clear: { MyPasteLine:=-1 MyClipArray:={} MyMaxID:=0 MyFirText:= MySecText:= MyWS:=1 MyStart:=1 MyEnd:=99 MySpace:=1 GuiControl,,MyFirText, GuiControl,,MySecText, GuiControl,,MyWS,1 GuiControl,,MyStart,1 GuiControl,,MyEnd,99 GuiControl,,MySpace,1 ;清空菜单 Clipboard:= Menu,MyClipMenu,DeleteAll Return } ; 获取数据 Label_GetData: { GuiControlGet, MyFirText MyClipArray:={} if (Sel_Mode="一次复制多次粘贴" or Sel_Mode="临时记事本") { ;读取内容到数组 loop,parse,MyFirText,`n`|,`r { TemStr:=A_LoopField if (TemStr="") continue MyClipArray.push(Temstr) } MyMaxID:=MyClipArray.Length() MyPasteLine:=0 } ;创建菜单 SkSub_CreatMyClipArrayMenu() return } ; 启用通配符 Label_EnabledTongPei: { if (MyUseTongPei =0) { MyUseTongPei :=1 GuiControlGet,MySecText,,MySecText GuiControl,,MySecText,%MySecText%(*) }else { MyUseTongPei :=0 GuiControlGet,MySecText,,MySecText StringReplace,MySecText,MySecText,(*),,All GuiControl,,MySecText,%MySecText% } return } MyFun_RetrunKeys(HotKeyString) { StringReplace,HotKeyString,HotKeyString,`+,Shift`+,All StringReplace,HotKeyString,HotKeyString,`!,Alt`+,All StringReplace,HotKeyString,HotKeyString,`^,Ctrl`+,All StringReplace,HotKeyString,HotKeyString,`#,Win`+,All return , % HotKeyString } GuiClose: TrayHandle_Exit: ExitApp
剪贴板增强---Kawvin增强剪贴板_V2.0
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。