Search the Community

Hey!! Every1 I have made a script which can help u copying/pasting texts easily............. U can copy 10 pieces of text using the hotkey CTRL+(0,1,2,3,4,5,6,7,8,9) ,paste using CTRL+ALT+(0,1,2,3,4,5,6,7,8,9) Thanks for any possible improvement....... Hope that my script helps u out...... #NoTrayIcon #region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=C:UsersabhishekDesktopPresentationABhishekSCriptsdevilish.ico #AutoIt3Wrapper_Outfile=C:UsersabhishekDesktopClipboard Extender.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=Clipboard Extender #AutoIt3Wrapper_Res_Description=Extends The Efficiency of Copying and Pasting #AutoIt3Wrapper_Res_Fileversion=1.1.0.0 #AutoIt3Wrapper_Res_Language=1033 #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator #AutoIt3Wrapper_Run_Tidy=y #Obfuscator_Parameters=/striponly #endregion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.1 Author: Abhishek Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here OnAutoItExitRegister('Delete') Global $done[10] ToolTip('Clipboard Extender Started' & @CRLF & 'Press CTRL+E to exit' & @CRLF & 'Enjoy!!.. :)', Default, Default, 'Error', 1, 5) HotKeySet('^e', '_exit') AdlibRegister('_un', 6000) $hWnd = 'Abhishek.ini' $Section = 'Abhishek' If FileExists($hWnd) Then FileDelete($hWnd) For $u = 0 To 9 HotKeySet('^' & $u, '_clipput') HotKeySet('^!' & $u, '_clipget') Next While 1 Sleep(1000) WEnd Func _exit() Exit EndFunc ;==>_exit Func _clipget() Local $x = StringRight(@HotKeyPressed, 1), $strings = dataget($x) Switch $strings Case '?' Switch $done[$x] Case 1 ToolTip('An Error Occured', Default, Default, 'Error', 1, 5) AdlibRegister('_un', 4000) Return 0 Case 0 ToolTip('No Data has been' & @CRLF & ' Entered into ' & $x & ' yet', Default, Default, 'Error', 1, 5) AdlibRegister('_un', 4000) Return 0 EndSwitch Case Else Send($strings, 1) Return $strings EndSwitch EndFunc ;==>_clipget Func _clipput() Local $strings = StringRight(@HotKeyPressed, 1) Local $clip = ClipGet() Send("^c") Local $copied = ClipGet() If $copied = '' Then Return 0 dataput($copied, $strings) ClipPut($clip) $done[$strings] = True EndFunc ;==>_clipput Func dataget($CmdLine) Return IniRead($hWnd, $Section, $CmdLine, '?') EndFunc ;==>dataget Func _un() AdlibUnRegister('_un') ToolTip('') EndFunc ;==>_un Func dataput($lwm, $key) Return IniWrite($hWnd, $Section, $key, $lwm) EndFunc ;==>dataput Func Delete() FileDelete($hWnd) EndFunc ;==>Delete

Hey!! Every1 I have made a script which can help u copying/pasting texts easily............. U can copy 10 pieces of text using the hotkey CTRL+(0,1,2,3,4,5,6,7,8,9) ,paste using CTRL+ALT+(0,1,2,3,4,5,6,7,8,9) UPDATED:U can copy 10 pieces of text using the hotkey CTRL+SHIFT+(0,1,2,3,4,5,6,7,8,9) ,paste using CTRL+ALT+(0,1,2,3,4,5,6,7,8,9) Thanks for any possible improvement....... Hope that my script helps u out...... Script With The Help Of Ini Files....... #NoTrayIcon #region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon= #AutoIt3Wrapper_Outfile=C:UsersabhishekDesktopClipboard Extender.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=Clipboard Extender #AutoIt3Wrapper_Res_Description= #AutoIt3Wrapper_Res_Fileversion=1.1.0.0 #AutoIt3Wrapper_Res_Language=1033 #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator #AutoIt3Wrapper_Run_Tidy=y #Obfuscator_Parameters=/striponly #endregion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.1 Author: Phoenix XL Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here OnAutoItExitRegister('Delete') Global $done[10] ToolTip('Clipboard Extender Started' & @CRLF & 'Press CTRL+E to exit' & @CRLF & 'Enjoy!!.. :)', Default, Default, 'Error', 1, 5) HotKeySet('^e', '_exit') AdlibRegister('_un', 6000) $hWnd = 'Abhishek.ini' $Section = 'Abhishek' If FileExists($hWnd) Then FileDelete($hWnd) For $u = 0 To 9 HotKeySet('^+' & $u, '_clipput') HotKeySet('^!' & $u, '_clipget') Next While 1 Sleep(1000) WEnd Func _exit() Exit EndFunc ;==>_exit Func _clipget() Local $x = StringRight(@HotKeyPressed, 1), $strings = dataget($x) Switch $strings Case '?' Switch $done[$x] Case 1 ToolTip('An Error Occured', Default, Default, 'Error', 1, 5) AdlibRegister('_un', 4000) Return 0 Case 0 ToolTip('No Data has been' & @CRLF & ' Entered into ' & $x & ' yet', Default, Default, 'Error', 1, 5) AdlibRegister('_un', 4000) Return 0 EndSwitch Case Else $x = ClipGet() ClipPut($strings) Send('^v') ClipPut($x) Return $strings EndSwitch EndFunc ;==>_clipget Func _clipput() Local $strings = StringRight(@HotKeyPressed, 1) Local $clip = ClipGet() Send("^c") Local $copied = ClipGet() If $copied = '' Then Return 0 dataput($copied, $strings) ClipPut($clip) $done[$strings] = True EndFunc ;==>_clipput Func dataget($CmdLine) Return IniRead($hWnd, $Section, $CmdLine, '?') EndFunc ;==>dataget Func _un() AdlibUnRegister('_un') ToolTip('') EndFunc ;==>_un Func dataput($lwm, $key) Return IniWrite($hWnd, $Section, $key, $lwm) EndFunc ;==>dataput Func Delete() FileDelete($hWnd) EndFunc ;==>Delete With The Help Of Variables....... #NoTrayIcon #region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=C:UsersabhishekDesktopPresentationABhishekSCriptsdevilish.ico #AutoIt3Wrapper_Outfile=C:UsersabhishekDesktopClipboard Extender.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=Clipboard Extender #AutoIt3Wrapper_Res_Description=Extends The Efficiency of Copying and Pasting #AutoIt3Wrapper_Res_Fileversion=1.1.0.0 #AutoIt3Wrapper_Res_Language=1033 #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator #AutoIt3Wrapper_Run_Tidy=y #Obfuscator_Parameters=/striponly #endregion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.1 Author: Phoenix XL Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here Global $clipBoard[10] ToolTip('Clipboard Extender Started' & @CRLF & 'Press CTRL+Shift+E to exit' & @CRLF & 'Enjoy!!.. :)', Default, Default, 'Error', 1, 5) HotKeySet('^+e', '_exit') AdlibRegister('_un', 6000) For $u = 0 To 9 HotKeySet('^+' & $u, '_ClipPut') HotKeySet('^!' & $u, '_ClipSend') Next While 1 Sleep(1000) WEnd Func _exit() Exit EndFunc ;==>_exit Func _ClipSend() Local $Index = StringRight(@HotKeyPressed, 1), $sData = dataget($Index) Switch $sData Case '0' ToolTip('No Data has been' & @CRLF & ' Entered into ' & $Index & ' yet', Default, Default, 'Error', 1, 5) AdlibRegister('_un', 4000) Return 0 Case Else Local $Board = ClipGet() ClipPut($sData) Send('^v') _RestoreClipBoard($Board) Return $sData EndSwitch EndFunc ;==>_ClipSend Func _ClipPut() Local $Index = StringRight(@HotKeyPressed, 1) Local $Board = ClipGet() Send("^c") Local $sData = ClipGet() ConsoleWrite($sData) If $sData = '' Then Return _RestoreClipBoard($Board) dataput($sData, $Index) _RestoreClipBoard($Board) EndFunc ;==>_ClipPut Func dataget($Index) If $clipBoard[$Index] <> '' Then Return $clipBoard[$Index] Return 0 EndFunc ;==>dataget Func dataput($sData, $Index) $clipBoard[$Index] = $sData Return $clipBoard[$Index] EndFunc ;==>dataput Func _RestoreClipBoard($sData) Return ClipPut($sData) EndFunc ;==>_RestoreClipBoard Func _un() AdlibUnRegister('_un') ToolTip('') EndFunc ;==>_un