Hallo habe für einen Kollegen ein kleines Programm geschrieben damit er sein Passwort nicht immer neu eingeben muss das klappt auch schon soweit ganz gut aber eingefügt werden soll es in die Kennwortabfrage auf einem enfernten Rechner (Anmeldung Remotedesktop) und da funktioniert es nicht.
Hier erstmal der Quelltext
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Hotkeys.exe
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUICreate("Hotkeys", 410, 120)
GUISetState(@SW_SHOW)
GUICtrlCreateLabel('Wählen sie die Tastenkombination und geben Sie den einzufügenden Text ein', 10, 10)
GUICtrlCreateLabel('+B', 67, 53)
$b = GUICtrlCreateInput("Text/Passwort", 90, 50, 300)
GUICtrlCreateLabel('+N', 67, 83)
$n = GUICtrlCreateInput("Text/Passwort", 90, 80, 300)
$combovorwahlb = GUICtrlCreateCombo("Strg", 10, 50, 55) ; create first item
GUICtrlSetData($combovorwahlb, "Alt") ; add other item
GUICtrlSetData($combovorwahlb, "Shift") ; add other item
$combovorwahln = GUICtrlCreateCombo("Strg", 10, 80, 55) ; create first item
GUICtrlSetData($combovorwahln, "Alt") ; add other item
GUICtrlSetData($combovorwahln, "Shift") ; add other item
While 1
$msg = GUIGetMsg()
$vorwahlb = GUICtrlRead($combovorwahlb)
Select
Case $vorwahlb = 'Strg'
HotKeySet('!b')
HotKeySet('+b')
$hotkeyb = '^b'
Case $vorwahlb = 'Alt'
HotKeySet('^b')
HotKeySet('+b')
$hotkeyb = '!b'
Case $vorwahlb = 'Shift'
HotKeySet('^b')
HotKeySet('!b')
$hotkeyb = '+b'
EndSelect
$vorwahln = GUICtrlRead($combovorwahln)
Switch $vorwahln
Case 'Strg'
HotKeySet('!n')
HotKeySet('+n')
$hotkeyn = '^n'
Case 'Alt'
HotKeySet('^n')
HotKeySet('+n')
$hotkeyn = '!n'
Case 'Shift'
HotKeySet('^n')
HotKeySet('!n')
$hotkeyn = '+n'
EndSwitch
HotKeySet($hotkeyb, "strgb")
HotKeySet($hotkeyn, "strgn")
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
Func strgn()
$textn = GUICtrlRead($n)
Send($textn)
ClipPut ($textn)
MsgBox(64, '', 'n')
EndFunc
Func strgb()
$textb = GUICtrlRead($b)
Send($textb)
ClipPut ($textb)
MsgBox(64, '', 'b')
EndFunc
benutzt werden sollten ursprünglich Strg+b und Strg+n aber er fügt nichts ein bei Benutzung in der Remotekonsole
Problem ist das er scheinbar die Tastenkombination ignoriert (Strg+V geht komischerweise in der bekannten Funktion weshalb ich die Zwischenablage als Workaround nutzen werde)
EDIT
hm scheint irgend eine Sicherheitsstufe aktiv zu sein die das Reinkopieren des Passwortes verbietet