autoit KVM paste

paste_kvm.au3

AutoItSetOption("SendKeyDelay",20); dont send too fast
AutoItSetOption("SendKeyDownDelay",20);; dont send too fast


Func TranslateNorwegianKeyboardLayoutToEnglish($str)
   ; warning: important to do translations in correct order,
   ; for example: \ => ' must be done BEFORE = => \
   ; a proper fix would be strtr() instead of StringReplace, but i don't have a strtr in AutoIt
   ; and cba writing one, at least right now
   $str = StringReplace ( $str, ":", "{SHIFTDOWN}ø{SHIFTUP}" );
   $str = StringReplace ( $str, "|", "{SHIFTDOWN}<{SHIFTUP}" );
   $str = StringReplace ( $str, "-", "{+}" );
   $str = StringReplace ( $str, "/", "-" );
   $str = StringReplace ( $str, "\", "'" );
   $str = StringReplace ( $str, "=", "\" );

   ; LOTS more should be on this list, but i dont know what they are.
   return $str;
EndFunc
Func Paste()
   Sleep(2000);
   Local $str = ClipGet();
   $str = TranslateNorwegianKeyboardLayoutToEnglish($str);
   $str = StringReplace(  StringReplace( $str , @CRLF, "{ENTER}"), @LF, "{ENTER}");
   Send($str);
EndFunc

HotKeySet("æ","Paste");

While 1

   Sleep(2000);
WEnd
;: