4 replies to this topic

[DocToday]

Ich möchte folgende Aufgabe lösen:

Hotkey öffnet ein GUI, in dem Textbausteine zeilenweise angezeigt werden (Wie z. B. bei Verwendung des Menü-Befehles).

Nach Auswahl soll der entsprechende Text in das vorher aktive Fenster eingetragen werden.

Gibt schon so ein Script?

Mit welchen Befehlen sollte ich die Umsetzung versuchen?

AHK-Grundkenntnisse habe ich.

[GEV]

Du kannst dieses GUI entsprechend anpassen:

; F1::
Gui, Add, Tab2, vMeineTabs w400 h400, Betreff|Anrede|Texte
Gui, Tab, Betreff
Gui, Add, Button, gMeinText, Ihr Schreiben vom 16. September 2015`n
Gui, Add, Button, gMeinText, Bewerbung um einen Praktikumsplatz als Steuerfachangestellte`n
Gui, Tab, Anrede
Gui, Add, Button, gMeinText, Sehr geehrte Damen und Herren,`n
Gui, Add, Button, gMeinText, Guten Tag, Frau Mustermann,`n
Gui, Tab, Texte
Gui, Add, Button, gMeinText, 1es Text - 1e Zeile`n1es Text - 2e Zeile`n
Gui, Add, Button, gMeinText, 2es Text - 1e Zeile`n2es Text - 2e Zeile`n2es Text - 3e Zeile`n
Gui, Show,w400 h400, Textbausteine einfügen
return

MeinText:
MouseGetPos,,,, Control
ControlGetText, Text, %Control%
Gui, Submit
SendInput, %Text%
Gui, Show
return

GuiClose:
Exitapp

[DocToday]

#persistent
#SingleInstance, Force
Tastendruckzeit=600
$T::  
send,t
Loop,	;Prüft die Tastendruckzeit, wenn über 600ms > Makroablauf
{
	sleep, 50
	if (A_TimeSinceThisHotkey > Tastendruckzeit) {
	Send, {BS} 
	gosub, MakroT 
	break
	}
	else
	{
	GetKeyState, state,T, P
	If state = U
	break
	}
}
return
;-------------------------------------
MakroT:
Menu, MyMenu, add, &M1,M1
Menu, MyMenu, add, &M2,M2
Menu, MyMenu, add, &T1,T1
Menu, MyMenu, add, &T2,T2
Menu, MyMenu, add, &PNN,PNN
KeyWait, T,    
Hotkey,$T,off
Menu, MyMenu, Show 
Hotkey,$T,On
return
;-----------------
T1:
sendinput T1
return
T2:
sendinput T2
return
M1:
sendinput M1
return
M2:
sendinput M2
return
PNN:
sendinput PNN
return
;--------------------
Ende:
GuiClose:
ExitApp

Das wäre mein erster Versuch.

Schönheitsfehler:

Das Auswahlmenü erscheint erst nach Loslassen der Hotkeytaste. Hat jemand eine Idee, wie man das ändern kann.

[GEV]

#NoEnv
#SingleInstance Force

$T:: 
KeyWait, T, T0.6
If (!ErrorLevel)
  Send t
else
  gosub, MakroT
return

;-------------------------------------

MakroT:
Menu, MyMenu, add  ; wenn du sichtbare Gruppen haben willst
Menu, MyMenu, deleteAll
Menu, MyMenu, add, &M1,M1  ; drüccke m um M1 zu senden
Menu, MyMenu, add, M&2,M2  ; drüccke 2 um M2 zu senden
Menu, MyMenu, add 
Menu, MyMenu, add, T1,T1
Menu, MyMenu, add, T2,T2
Menu, MyMenu, add
Menu, MyMenu, add, &PNN,PNN
Menu, MyMenu, Show
return

;-----------------

T1:
sendinput T1
return
T2:
sendinput T2
return
M1:
sendinput M1
return
M2:
sendinput M2
return
PNN:
sendinput PNN
return

Esc:: ExitApp

[DocToday]

@GEV Vielen Dank schon mal, insbesondere für den ersten Teil mit dem Hotkey!

Im Menü möchte ich gern die Eigenschaft erhalten, dass man mit dem Anfangsbuchstaben, evtl. durch Mehrfacheingabe, in die richtige Zeile kommt. (Später soll das Menü deutlich umfangreicher werden).Insofern bin ich mit meinem zweiten Teil zufrieden, nur öffnet sich das Menü erst beim Loslassen der Hotkeytaste.

Das ist der einzige Punkt, den ich gern ändern würde. Ich weiß nur nicht wie?

Gibt es einen Befehl, der eine gedrückte Taste uppt?

#persistent
#SingleInstance, Force
$T:: 
KeyWait, T, T0.6
If (!ErrorLevel)  ; Warum das Ausrufezeichen?
  Send t
else
  gosub, MakroT
return
;---------------------
MakroT:
Menu, MyMenu, add, &M1,M1
Menu, MyMenu, add, &M2,M2
Menu, MyMenu, add, &T1,T1
Menu, MyMenu, add, &T2,T2
Menu, MyMenu, add, &PNN,PNN
KeyWait, T,    ;Wenn diese beiden Zeilen fehlen, springt der Balken im Menü hin und her. 
Hotkey,$T,off  ; 
Menu, MyMenu, Show 
Hotkey,$T,On
return
;-----------------
T1:
sendinput T1
return
T2:
sendinput T2
return
M1:
sendinput M1
return
M2:
sendinput M2
return
PNN:
sendinput PNN
return
;--------------------
Ende:
GuiClose:
ExitApp