Mehrfacher Zwischenspeicher

jjj

Das folgende Script funktioniert nicht, und ich weiß nicht warum.
Es soll es ermöglichen, dass man wenn man strg+v drückt der Zwischenspeicher eingefügt wird und wenn man strg+b drückt, das was vorher im Zwischenspeicher war.
Ich vermute der Fehler liegt in der While-Schleife.

Spoiler anzeigen

[autoit]

Global $teil[2] = ["", ""]

[/autoit] [autoit][/autoit] [autoit]

Hotkeyset("^v", "_v") ; könnte man auch weglassen, da auch ohne der aktuelle Zwischenspeicher eingefügt werden würde
Hotkeyset("^b", "_b")

[/autoit] [autoit][/autoit] [autoit]

While 1
$get = ClipGet() ;Zwischenspeicher auslesen
sleep(500)
If Not $get = ClipGet() Then _c() ;Wenn sich in der zwischenzeit der Zwischenspeicer geändert hat(sollte zumindest so sein, ist es irgendwie nicht)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _c()
$teil[1] = $teil[0] ;Alten Zwischenspeicher in Variable
$teil[0] = ClipGet() ;Neuer Zwischenspeicher in die variable
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _v()
send($teil[0]) ;Neuere Variable senden

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _b()
send($teil[1]) ;Ältere Variable senden
EndFunc

[/autoit]

Wahrscheinlich ist es ganz einfach aber ich komm einfach nicht drauf woran das liegt.
Ich hoffe, ihr wisst das.

**alpines**

Wenn du den HotKey für STRG+C ersetzt dann kommt die Windows-Funktion nicht mehr durch, weil AutoIt sich das für sich reserviert.
Vielleicht könnte es das sein?

jjj

ich hab ja nur hotkeys für strg+v und strg+b wobei man die Funktion für strg+v auch weglassen könnte (macht ja das gleiche wie sonst auch).

jjj

Ich habs jetzt zumindest teilweise gelöst, aber es ist nicht die schönste Art. Ich will den Hotkey für strg+c eigentlich rauslassen.

Spoiler anzeigen

[autoit]

Global $teil[3] = ["", "", ""]

[/autoit] [autoit][/autoit] [autoit]

Hotkeyset("^b", "_b")
Hotkeyset("^n", "_n")
Hotkeyset("^c", "_c")

[/autoit] [autoit][/autoit] [autoit]

While 1
; $get = ClipGet() ;Zwischenspeicher auslesen
sleep(500)
; If Not $get = ClipGet() Then _c() ;Wenn sich in der zwischenzeit der Zwischenspeicer geändert hat(sollte zumindest so sein, ist es irgendwie nicht)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _c()
HotKeySet("^c")
Send("^c")
HotKeySet("^c","_c")
Hotkeyset("^c", "_c")
$teil[2] = $teil[1] ;Alten Zwischenspeicher in Variable
$teil[1] = $teil[0] ;Mittleren Zwischenspeicher in Variable
$teil[0] = ClipGet() ;Neuer Zwischenspeicher in die variable

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _n()
send($teil[2]);Ältester Variable senden
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _b()
send($teil[1]) ;Mittel alter Variable senden
EndFunc

[/autoit]

Es muss doch möglich sein, dass _c() ausgeführt wird, wenn sich der Zwischenspeicher ändert, also auch wenn man Rechtsklick und dann kopieren oder ausschneiden macht. Das müsste doch so gehen, wie in Zeile 8-10. Warum geht das nicht?

**alpines**

Das liegt vermutlich daran das du einen Sleep von 500 drinne hast.
~~Lies $get ein wenn rechtsgelickt wird, und wenn dann links-geklickt wird (für kopieren beispielsweise) dann soll der das vergleichen.~~
Du kannst nämlich nicht innerhalb von einer halben Sekunde eine Sache in den Speicher kopieren und dann sofort etwas neues reinkopieren.
Was du machen kannst ist folgendes:

[autoit]

Global $sOldClipboard = ClipGet()

[/autoit][autoit][/autoit][autoit]

Do
Until $sOldClipboard <> ClipGet()

[/autoit][autoit][/autoit][autoit]

MsgBox(0,"","Ich werde erst angezeigt wenn der Zwischenspeicher ungleich $sOldClipboard ist!")

[/autoit]

jjj

An irgendwie Klappt das nur sehr unzuverlässig. Obwohl es eigentlich funktionieren müsste.
Selbst wenn ich die 6 Zeilen genau so, wie sie da stehen ausführe.

Und Kennt jemand eine möglichfeit, das solange das Script aktiv ist Buttons im Rechsklick Menü sind,mit denen man dan auch die einzelnen Zwischenspeicher einfügen kann?
Also irgendwie unter einfügen noch Einfügen2 und Einfügen3 oder so.

**alpines**

Versuchs mal mit einem Sleep(100) zwischen Do und Until, sollte die CPU nicht so reizen.

jjj

Danke jetzt klappt es.
Das ist der Code:

Spoiler anzeigen

[autoit]

Global $teil[3] = ["", "", ""]

[/autoit] [autoit][/autoit] [autoit]

Hotkeyset("^b", "_b")
Hotkeyset("^n", "_n")

[/autoit] [autoit][/autoit] [autoit]

Global $sOldClipboard = ""

[/autoit] [autoit][/autoit] [autoit]

While 1
$sOldClipboard = ClipGet()
Do
Sleep(100)
Until $sOldClipboard <> ClipGet()
_c()
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _c()
$teil[2] = $teil[1] ;Alten Zwischenspeicher in Variable
$teil[1] = $teil[0] ;Mittleren Zwischenspeicher in Variable
$teil[0] = ClipGet() ;Neuer Zwischenspeicher in die variable
msgbox(0,"","Zwischenspeicher geändert" & @lf & $teil[2] & @lf & $teil[1] & @lf & $teil[0])
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _n()
send($teil[2]);Ältester Variable senden
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _b()
send($teil[1]) ;Mitlere Variable senden
EndFunc

[/autoit]

Meine Tastatur spielt allerdings danach verrückt und es öffnen sich irgendwelche Einstellungsfenster, wenn ich was drücke.
Und kann man irgendwie auch noch Buttons ins Rechtsklickmenü machen?

**alpines**

Freut mich, dass ich helfen konnte!

jjj

Meine Tastatur spielt allerdings danach verrückt und es öffnen sich irgendwelche Einstellungsfenster, wenn ich was drücke.
Und kann man irgendwie auch noch Buttons ins Rechtsklickmenü machen?

**alpines**

Meinst du Buttons im Kontextmenu wenn du aufs Desktop rechtsklickst?

jjj

Ja

**alpines**

Kontextmenueinträge lassen sich nur in der Registry erstellen zu der jeweiligen Extension oder generell. Das musst du nachgooglen, weiß den Pfad aus der Registry nicht mehr genau aus dem Kopf aber da sind allle File-Extensions aufgelistet, und soweit ich weiß können ja keine Buttons hin außer du machst etwas selber mit GDI+.

jjj

Das das irgendwie über die Registry hatte ich mir aich schon gedacht.
Trotzdem Danke.