z0mgItsJohn Posted April 10, 2008 Share Posted April 10, 2008 (edited) Hello AutoIt Peoples Auto Clip v1.0 Is A Program / Script That Lets You Copy 4 Things And Then When You Press (Alt F1|F2|F3|F4) Its Puts The Data Back On The Clip Board For You To Paste It. For More Info About The Program Just Look At The Script Source : Auto Clip v1.0 expandcollapse popup;========================================= ; Made By John O. Aka John2006 = ;========================================= Func OnAutoItStart () #NoTrayIcon Global $_Max = '4' ClipPut ('') For $Array = '1' To $_Max _FileDelete_Array ('Data_','.txt', $_Max) Next EndFunc While ('1') $Data = ClipGet () Sleep ('100') If $Data <> "" Then Sleep ('100') _FileWrite_Array ('Data_','.txt', $Data, $_Max) ClipPut ('') EndIf If FileExists ('Data_' & '(' & $_Max & ')' & '.txt') Then ExitLoop EndIf HotKeySet ('!{Esc}','_Exit') WEnd While ('1') Sleep ('100') HotKeySet ('!{F1}','_Clip_One') HotKeySet ('!{F2}','_Clip_Two') Sleep ('100') HotKeySet ('!{F3}','_Clip_Three') HotKeySet ('!{F4}','_Clip_Four') HotKeySet ('!{Esc}','_Exit') Sleep ('100') WEnd Func _Clip_One () $Read = FileRead ('Data_(1).txt') ClipPut ($Read) EndFunc Func _Clip_Two () $Read = FileRead ('Data_(2).txt') ClipPut ($Read) EndFunc Func _Clip_Three () $Read = FileRead ('Data_(3).txt') ClipPut ($Read) EndFunc Func _Clip_Four () $Read = FileRead ('Data_(4).txt') ClipPut ($Read) EndFunc Func _Exit () Exit EndFunc Func _FileWrite_Array ($File, $File_Type, $Data, $Max) For $File_Array = '1' To $Max If Not FileExists ($File & '(' & $File_Array & ')' & $File_Type) Then FileWrite ($File & '(' & $File_Array & ')' & $File_Type, $Data) ExitLoop EndIf Next EndFunc Func _FileDelete_Array ($File, $File_Type, $Max) For $File_Array = '1' To $Max If FileExists ($File & '(' & $File_Array & ')' & $File_Type) Then FileDelete ($File & '(' & $File_Array & ')' & $File_Type) ExitLoop EndIf Next EndFunc Func OnAutoItExit () For $Array = '1' To $_Max _FileDelete_Array ('Data_','.txt', $_Max) Next EndFunc ~ Enjoy ~ Please Feel Free To Post Comments Bugs Etc. Edited April 10, 2008 by John2006 Latest Projects :- New & Improved TCP Chat Link to comment Share on other sites More sharing options...
spudw2k Posted April 10, 2008 Share Posted April 10, 2008 Pretty nifty. Spoiler Things I've Made: Always On Top Tool ◊ AU History ◊ Deck of Cards ◊ HideIt ◊ ICU ◊ Icon Freezer ◊ Ipod Ejector ◊ Junos Configuration Explorer ◊ Link Downloader ◊ MD5 Folder Enumerator ◊ PassGen ◊ Ping Tool ◊ Quick NIC ◊ Read OCR ◊ RemoteIT ◊ SchTasksGui ◊ SpyCam ◊ System Scan Report Tool ◊ System UpTime ◊ Transparency Machine ◊ VMWare ESX BuilderMisc Code Snippets: ADODB Example ◊ CheckHover ◊ Detect SafeMode ◊ DynEnumArray ◊ GetNetStatData ◊ HashArray ◊ IsBetweenDates ◊ Local Admins ◊ Make Choice ◊ Recursive File List ◊ Remove Sizebox Style ◊ Retrieve PNPDeviceID ◊ Retreive SysListView32 Contents ◊ Set IE Homepage ◊ Tickle Expired Password ◊ Transpose ArrayProjects: Drive Space Usage GUI ◊ LEDkIT ◊ Plasma_kIt ◊ Scan Engine Builder ◊ SpeeDBurner ◊ SubnetCalcCool Stuff: AutoItObject UDF ◊ Extract Icon From Proc ◊ GuiCtrlFontRotate ◊ Hex Edit Funcs ◊ Run binary ◊ Service_UDF Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now