Ich schreibe seit kurzem an einem Programm welches das Clipboard erweitert.
Man soll z. B. Strg + F9 drücken um den Inhalt der Zwischenablage auf den ersten Slot zu legen.
Dann kann man anderes Zeug indie Zwischenablage kopieren.
Wenn man dann allerdings Alt + F9 drückt ist der Inhalt des Clipboards wieder wie in Slot 1 bestimmt.
Allerdings funktioniert das nicht.
Das einzige was passiert ist das das Clipboard gecleart wird.
Mein Script:
Spoiler anzeigen
#include "ModernMenuRaw.au3"
#include <GUIconstants.au3>
#include <Clipboard.au3>
#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
$activate = 0
$trayicon = _TrayIconCreate("ClipboardExtender")
_TrayIconSetState()
$context = _TrayCreateContextMenu($trayicon)
$activatebutt = _TrayCreateItem("aktivieren/deaktivieren",$context)
$exitactivatebutt = _TrayCreateItem("beenden",$context)
$infobutt = _TrayCreateItem("info",$context)
$showclipboard = _TrayCreateItem("zwischenablageninhalt anzeigen",$context)
GUICtrlSetOnEvent($exitactivatebutt,"end")
GUICtrlSetOnEvent($activatebutt,"activate")
GUICtrlSetOnEvent($infobutt,"info")
GUICtrlSetOnEvent($showclipboard,"show")
Func activate()
If $activate = 0 Then
$activate = 1
_TrayTip($trayicon,"ClipboardExtender","aktiviert",5000)
;~ _TrayIconSetIcon($trayicon,"play_green.ico")
HotKeySet("^{F9}","send1")
HotKeySet("^{F10}","send2")
HotKeySet("^{F11}","send3")
HotKeySet("^{F12}","send4")
HotKeySet("!{F9}","copy1")
HotKeySet("!{F10}","copy2")
HotKeySet("!{F11}","copy3")
HotKeySet("!{F12}","copy4")
ElseIf $activate = 1 Then
$activate = 0
_TrayTip($trayicon,"ClipboardExtender","deaktiviert",5000)
;~ _TrayIconSetIcon($trayicon,"play_red.ico")
HotKeySet("^1")
HotKeySet("^2")
HotKeySet("^3")
HotKeySet("^4")
HotKeySet("!1")
HotKeySet("!2")
HotKeySet("!3")
HotKeySet("!4")
EndIf
EndFunc
While 1
Sleep(10)
WEnd
#region copy funcs
Func copy1()
IniWrite("clipboard.ini","content","1",Clipget())
EndFunc
Func copy2()
IniWrite("clipboard.ini","content","2",Clipget())
EndFunc
Func copy3()
IniWrite("clipboard.ini","content","3",Clipget())
EndFunc
Func copy4()
IniWrite("clipboard.ini","content","4",Clipget())
EndFunc
#endregion
#region send funcs
Func send1()
ClipPut(IniRead("clipboard.ini","content","1",""))
EndFunc
Func send2()
ClipPut(IniRead("clipboard.ini","content","2",""))
EndFunc
Func send3()
ClipPut(IniRead("clipboard.ini","content","3",""))
EndFunc
Func send4()
ClipPut(IniRead("clipboard.ini","content","4",""))
EndFunc
#endregion
Func end()
_TrayIconDelete($trayicon)
Exit
EndFunc
Das Script ist nicht bis zu Ende ausgearbeitet. So macht z.B. der Button "zwischenablageninhalt anzeigen" noch gar nichts.