fmen 0 Posted October 10, 2006 ; Press Esc to terminate script, Pause/Break to "Copy/Paste" Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d ;;;; Body of program would go here ;;;; While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) Send ("^c") WEnd ToolTip("") Send (ClipGet()) EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","This is a message.") EndFunc You highlight text and press "Pause" to copy it to clipboard. Pressing "Pause" again should toggle function and pastes the text. Works fine except that the text gets pasted twice. Why? PS: eventually I would like to use the middle button click instead of the "Pause" key to copy/paste. Can anyone help? Thanks. Share this post Link to post Share on other sites
SmOke_N 205 Posted October 10, 2006 expandcollapse popup; Press Esc to terminate script, Pause/Break to "Copy/Paste" Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d ;;;; Body of program would go here ;;;; While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) Send ("^c") WEnd ToolTip("") Send (ClipGet()) EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","This is a message.") EndFunc oÝ÷ Ù.(!(!¶×±µ©Ý¦·¬²«¨´ö®±ê®¢ÛhrrÛhrX©n«tú޲ȧ«¨´ö®±ê®¢Ö j)ì¥vÚ Wºw-ÚÚZ²×¬¶{V¢¹,~)Þ{¦ÛajÛaz×±¶²¬µçmÂ'ZIëÞÛÂ¥vX¤zÚ.±ëazhvWºÛhÉbrH§²×víꮢÓںǪºd{+hrrþ¬µà©ò¢w¡zZS©ä³ú®¢×¢çhm±ëZrÝبú+¶zwr¢ç%Éj붧Ø(zËh¶ºw-Ü©àzËazËZµê=«¬y©Ý¶§¬¶ayhbâè¢az|¨ºÞ²ÊZºÇ¨§Ø(zÆÚrKh¶ºw-ò¢æ«zz0{aÇîËb¢{pÇØZ½é÷öÚÞ¶êçyܵ'ûaÉ"Ú²ÚîrÛ«{ +Çè¯*.jëh×6Global $Paused, $nPauseCount HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d ;;;; Body of program would go here ;;;; While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused $nPauseCount += 1 While $Paused sleep(100) ToolTip('Script is "Paused"' & @CR & $nPauseCount,0,0) Send ("^c") WEnd ToolTip("") If $nPauseCount = 2 Then Send (ClipGet()) $nPauseCount = 0 EndIf EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","This is a message.") EndFunc Hide SmOke_N's signature Hide all signatures Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Share this post Link to post Share on other sites
GaryFrost 13 Posted October 10, 2006 Went about it a little different, tried to keep it to one loop expandcollapse popup; Press Esc to terminate script, Pause/Break to "Copy/Paste" Global $Paused = 0 HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d ;;;; Body of program would go here ;;;; While 1 Sleep(100) Switch $Paused Case 1 Send ("^c") $Paused = 3 Case 2 ToolTip("") Send (ClipGet()) $Paused = 0 Case 3 ToolTip('Script is "Paused"',0,0) EndSwitch WEnd ;;;;;;;; Func TogglePause() Switch $Paused Case 0 $Paused = 1 Case 1 $Paused = 3 Case 3 $Paused = 2 EndSwitch EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","This is a message.") EndFunc Hide GaryFrost's signature Hide all signatures SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Share this post Link to post Share on other sites
fmen 0 Posted October 10, 2006 Thank you both for the solutions. I'm going to get busy and work on the Middle Button Click function. Should be a nice timesaver. Share this post Link to post Share on other sites
