GUI Clipboard Library

[erifash 1]

Here is a cool script I just threw together. It copies the clipboard to a GUI combobox and you select what you want to re-copy. Useful if you're copying multiple functions between programs or from the help file. It's like a shopping cart!

Here's the code:

(Thanks to Valik for the Semaphore function!)

(Thanks to gosu for the idea here!)

expandcollapse popup

Singleton("GUI Clipboard Library")

#include <GUIConstants.au3>

HotkeySet("{ESC}", "myexit")
HotkeySet("{F1}", "move")

$last = -1

GUICreate("GUI Clipboard Library", 400, 21, 25, 1, $WS_EX_TOPMOST + $WS_BORDER + $WS_POPUP, $WS_EX_TOOLWINDOW)
$combo = GUICtrlCreateCombo("GUI Clipboard Library", 0, 0, 400, 50)

GUISetState()

WinSetOnTop("GUI Clipboard Library", "GUI Clipboard Library", 1)

While 1
  $clip = ClipGet()
  If $last <> $clip Then GUICtrlSetData($combo, $clip)
  $msg = GUIGetMsg()
  Select
    Case $msg = $combo
      ClipPut(GUIRead($combo))
      $last = ClipGet()
      $clip = ClipGet()
  EndSelect
  Sleep(10)
  $last = $clip
Wend

Func Singleton($semaphore)
    Local $ERROR_ALREADY_EXISTS = 183
    DllCall("kernel32.dll", "int", "CreateSemaphore", "int", 0, "long", 1, "long", 1, "str", $semaphore)
    Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
    If $lastError[0] = $ERROR_ALREADY_EXISTS Then Exit -1
EndFunc;==>Semaphore

Func move()
  $pos = MouseGetPos()
  WinMove("GUI Clipboard Library", "", $pos[0], $pos[1])
EndFunc

Func myexit()
  Exit
EndFunc

Oh, yeah! I forgot: the hotkeys are:

{ESC} to exit

hold down {F1} to move the window to where the mouse is plus you can move the mouse at the same time!

^^^(or you can just press it, I like the effect it makes when you hold it )

Any questions/comments would be greatly appreciated!

Edit: Code updated, put it as "always on top" because it would get lost behind the windows.

Edited December 22, 2004 by erifash

[gosu 0]

Here is a cool script I just threw together. It copies the clipboard to a GUI combobox and you select what you want to re-copy. Useful if you're copying multiple functions between programs or from the help file. It's like a shopping cart!

Here's the code:

(Thanks to Valik for the Semaphore function!)

(Thanks to gosu for the idea here!)

expandcollapse popup

Singleton("GUI Clipboard Library")

#include <GUIConstants.au3>

HotkeySet("{ESC}", "myexit")
HotkeySet("{F1}", "move")

$last = -1

GUICreate("GUI Clipboard Library", 400, 21, 25, 1, $WS_EX_TOPMOST + $WS_POPUP, $WS_EX_TOOLWINDOW)
$combo = GUICtrlCreateCombo("GUI Clipboard Library", 0, 0, 400, 50)

GUISetState()

While 1
  $clip = ClipGet()
  If $last <> $clip Then GUICtrlSetData($combo, $clip)
  $msg = GUIGetMsg()
  Select
    Case $msg = $combo
      ClipPut(GUIRead($combo))
      $last = ClipGet()
      $clip = ClipGet()
  EndSelect
  Sleep(10)
  $last = $clip
Wend

Func Singleton($semaphore)
    Local $ERROR_ALREADY_EXISTS = 183
    DllCall("kernel32.dll", "int", "CreateSemaphore", "int", 0, "long", 1, "long", 1, "str", $semaphore)
    Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
    If $lastError[0] = $ERROR_ALREADY_EXISTS Then Exit -1
EndFunc;==>Semaphore

Func move()
  $pos = MouseGetPos()
  WinMove("GUI Clipboard Library", "", $pos[0], $pos[1])
EndFunc

Func myexit()
  Exit
EndFunc

Oh, yeah! I forgot: the hotkeys are:

{ESC} to exit

hold down {F1} to move the window to where the mouse is plus you can move the mouse at the same time!

^^^(or you can just press it, I like the effect it makes when you hold it  )

Any questions/comments would be greatly appreciated! 

<{POST_SNAPBACK}>

Cool Script!

And np, this is what open source is about: everyone can modify/"steal" everything

(man, I like open source. Because of open source, there are so many programs, because everyone can edit what he needs and make the program better!)

[erifash 1]

Cool Script!

And np, this is what open source is about: everyone can modify/"steal" everything

(man, I like open source. Because of open source, there are so many programs, because everyone can edit what he needs and make the program better!)

<{POST_SNAPBACK}>

Yes, exactly. You can modify anything you need to make it better or more suit your OS.

[roboz 0]

That's a great little script. It will be very useful in my everyday work. Since I'm still a newbie when it comes to programming and AuoIT I have a question about the two marked lines below. Do I really need them? It seems to work correctly without. Sorry if this is a very basic question or the wrong forum for that. I'm just trying to understand the script. Maybe I should look at it tomorrow again - it's too late anyway

Thanks for any reply and for sharing this script with us

While 1
  $clip = ClipGet()
  If $last <> $clip Then GUICtrlSetData($combo, $clip)
  $msg = GUIGetMsg()
  Select
    Case $msg = $combo
      ClipPut(GUIRead($combo))
      $last = ClipGet()   <===
      $clip = ClipGet()   <===
  EndSelect
  Sleep(10)
  $last = $clip
Wend