#Include <Misc.au3>
;fake multicaches on strg + alt +1-9
Dim $var[12]
$var[0]=''
$nr = 100
HotKeySet('^!1','MultiCache') ;
HotKeySet('^!2','MultiCache') ;
HotKeySet('^!3','MultiCache') ;
HotKeySet('^!4','MultiCache') ;
HotKeySet('^!5','MultiCache') ;
HotKeySet('^!6','MultiCache') ;
HotKeySet('^!7','MultiCache') ;
HotKeySet('^!8','MultiCache') ;
HotKeySet('^!9','MultiCache') ;
HotKeySet('^!0','MultiCache') ;

Func MultiCache($nr)
   If @HotKeyPressed = "^!1" Then $nr=0
   If @HotKeyPressed = "^!2" Then $nr=1
   If @HotKeyPressed = "^!3" Then $nr=2
   If @HotKeyPressed = "^!4" Then $nr=3
   If @HotKeyPressed = "^!5" Then $nr=4
   If @HotKeyPressed = "^!6" Then $nr=5
   If @HotKeyPressed = "^!7" Then $nr=6
   If @HotKeyPressed = "^!8" Then $nr=7
   If @HotKeyPressed = "^!9" Then $nr=8
   If @HotKeyPressed = "^!0" Then $nr=9

   If $nr = 9 Then
      For $i = 0 to 9 Step 1
            $var[$i]=''
         Next
      EndIf

   if $var[$nr] <> '' Then
      ClipPut($var[$nr])        ;den wert aus var[0] in die zwischenablage kopieren
      Send("^v")            ;einfuegen senden aus zwischenablage
      ClipPut($var[11])     ;den vorigen wert des zwischenspeichers wiederherstellen
;~    $var[$nr]=''              ; var[0] ueberschreiben fuer erneutes speichern
;~    Return                ; funktion beenden
   EndIf

   if $var[$nr] = '' Then
      $var[11] = ClipGet()
      Send("^c")
      Send("^c")
      $var[$nr] = ClipGet()
      ClipPut($var[11])
   EndIf

EndFunc


While 1
   Sleep(100)
   WEnd