Sign in to follow this  
Followers 0
z0mgItsJohn

Auto Clip v1.0 - By John O.

2 posts in this topic

#1 ·  Posted (edited)

Hello AutoIt Peoples :D 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 :D

Source : Auto Clip v1.0

;=========================================
;      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 by John2006

Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites



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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0