板 1- 前 次 新 ﾚｽ
スクリプト投稿スレ
[25]unnamed.ahk：05/01/12 13:26 ID:???
この前のクリップボード拡張のやつがパワーアップしました。終了は＃ESCです
今回はGUI付でマウスのみでクリップボードに格納します
GUIをアクティブにするのに＃Zを当ててますがマウスに割り当てたほうが良いと思います
#Persistent
loop,10
{
xyz+=1
iniRead,a%xyz%,clip.ini,clip,%xyz%
}
Gui, Add, ListBox,h130 w70 Vcopybox ReadOnly gClicked a1 a2 a3 a4 a5 af6 a7 a8 ai9 a10,%a1%|%a2%|%a3%|%a4%|%a5%|%a6%|%ag%|%a7%|%a8%|%a9%|%a10%
WinGetActiveTitle,Winclass
Gui,Show
WinActivate,%Winclass%
oldclip=%Clipboard%
goto,label1
return
Clicked:
GuiControlGet,clipbox,,copybox
Clipboard=%clipbox%
WinActivate,%Winclass%
return
label1:
count=0
count2=1
SetTimer,getclip,10
return
getclip:
oldclip=%Clipboard%
sleep,500
WinGetActiveTitle,Winclass
if Clipboard<>%oldclip%
Gosub, Label2
return
Label2:
loop,9
{
count+=1
count2+=1
clipwait
IniRead,aa,clip.ini,clip,%count2%
IniWrite,%aa%,clip.ini,clip,%count%
}
StringReplace, clipboard, clipboard, `r`n,\\\\, all
IniWrite,%Clipboard%,clip.ini,clip,10
stringReplace,Clipboard,Clipboard,\\\\,`r`n,1
oldclip=%Clipboard%
count=0
count2=1
reload
#z::WinActivate,ahk_class AutoHotkeyGUI
#esc::exitapp
前 次