XREA.COM Logo XREA.COM Ad

スクリプト投稿スレ

25unnamed.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
70KB
名前: E-mail:
ファイル:
0ch BBS 2005-10-08