CyberSlug Posted January 8, 2004 Share Posted January 8, 2004 (edited) Note: HotKeySet should be available in AutoIt 3.0.85Works if the application supports Ctrl+C copy and Ctrl+V paste...EDIT: Microsoft Word does not like the Ctrl+Alt shortcut, so you may want to use "#v" (Winkey+V) instead.;------------------------------------------- ; Clipboard "Replace" Utility ; Swap higlighted text with clipboard text ;------------------------------------------- HotKeySet("^!v", "replace");Ctrl+Alt+V keyboard shortcut While (1) sleep(500);to prevent maxing-out the CPU WEnd Func replace() $itemOne = ClipGet() Send("^c") $itemTwo = ClipGet() ClipPut($itemOne) Send("^v") ClipPut($itemTwo) EndFunc Edited January 8, 2004 by CyberSlug Use Mozilla | Take a look at My Disorganized AutoIt stuff | Very very old: AutoBuilder 11 Jan 2005 prototype I need to update my sig! Link to comment Share on other sites More sharing options...
scriptkitty Posted January 8, 2004 Share Posted January 8, 2004 Yea, this new feature will provide many uses. Like your own stored clipboard. ;------------------------------------------- ; Clipboard "Multi" Utility ; Place several items into clipboard for future use. $x=1 dim $clip[100] HotKeySet("^!c", "add");Ctrl+Alt+C keyboard shortcut HotKeySet("^!v", "place");Ctrl+Alt+V keyboard shortcut While (1) sleep(500);to prevent maxing-out the CPU WEnd Func add() Send("^c") $x=$x+1 $clip[$x]= ClipGet() EndFunc Func place() $title = WinGetTitle("", "") $test= InputBox("Stored Clipboard activated.", "Which memory location out of "&$x-1, "", "", -1, -1, 0, 0)+1 winactivate($title) if int($test)>1 and int($test)<=$x then Clipput($clip[$test]) send("^v") ;msgbox(1,"Info", "Clipboard "&$test &" loaded into memory") endif EndFunc AutoIt3, the MACGYVER Pocket Knife for computers. 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