AutoHotkey Skript Abfrage Feld bzw. Input Box die dann im Text eingefügt wird.

[bluelion]

Unten habe ich mein Programm Code (Auto Hotkey Skript) eingefügt. Hier möchte hier noch gerne ein Abfrage Feld hinzufügen der z.B. nach dem Namen fragt und dann das Ganze an richtige Stelle einfügt.
z.B. bei A steht:
SendInput, Sehr geehrter Herr ... und an dieser Stelle soll quasi ein Abfrage Feld mit dem Namen erscheinen, dass dann an der Stelle eingefügt wird.
Hoffe mein Vorhaben ist soweit verständlich.


#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
; Erstellt ein aufklappbares Menü durch Hinzufügen von Menüpunkten.
Menu, EigenesMenü, Add, AA, A
Menu, EigenesMenü, Add, BB, B
Menu, EigenesMenü, Add, CC, C
Menu, EigenesMenü, Add ; Fügt eine Trennlinie hinzu.
Return ; Ende des automatischen Ausführungsbereichs.
A:
FormatTime,Datum,,dd.MM.yyyy
SendInput, %Datum%{Enter 3}
SendInput, Sehr geehrter Herr ...,{Enter 4}
SendInput, Mit freundlichen Grüßen{Enter}{Up 3}
return
Return
B:
FormatTime,Datum,,dd.MM.yyyy
SendInput, %Datum%{Enter 3}
SendInput, Sehr geehrter Herr ...,{Enter 4}
SendInput, Mit freundlichen Grüßen{Enter}{Up 3}
return
Return
C:
FormatTime,Datum,,dd.MM.yyyy
SendInput, %Datum%{Enter 3}
SendInput, Sehr geehrte Damen und Herren,{Enter 4}
SendInput, Mit freundlichen Grüßen{Enter}{Up 3}
return
Return

 

[ryan_blackdrago]

-Dein Skript ist fehlerhaft (letzte Zeile : Frage bearbeiten). Sieht so aus, als wäre alles einfach aus dem Netz kopiert worden.
-Für Programmiercodes existieren hier CODE-Tags
-Eine Inputbox wird so realisiert

 

[bluelion]

-Dein Skript ist fehlerhaft (letzte Zeile : Frage bearbeiten). Sieht so aus, als wäre alles einfach aus dem Netz kopiert worden.
-Für Programmiercodes existieren hier CODE-Tags
-Eine Inputbox wird so realisiert

Ja nach dieser Anleitung bin ich auch schon gegangen und dann wird mir auch eine Input Box angezeigt. Problem ist nur wenn ich dann etwas eingebe wird das nicht im Text eingefügt. Wie mache ich das dieses an der genannten Stelle nach Herr dann eingefügt wird.

 

[ryan_blackdrago]

Arbeite selber nicht mit AHK. Wahrscheinlich so:

SendInput, Sehr geehrter Herr %UserInput%,{Enter 4}

 

[ryan_blackdrago]

Hier mit AutoIT quick & dirty gebastelt (ohne irgendwelche GUI im Vordergrund zu haben; vom Schreibprogramm unabhängig):

Anrede für Herr wird mit STRG und ö ausgeführt
Anrede für Frau wird mit STRG und ä ausgeführt
Anrede für Damen und Herren wird mit STRG und ü ausgeführt

Opt("SendKeyDelay",0)
Opt("SendKeyDownDelay",0)

#include <Date.au3>
#include <MsgBoxConstants.au3>

Global $g_bPaused = False

; ^ö = STRG + ö
HotKeySet("^ö", "Herr")
HotKeySet("^ä", "Frau")
HotKeySet("^ü", "Beides")

While 1
    Sleep(100)
WEnd

; HERR HERR HERR  HERR HERR HERR
Func Herr()

$Name = InputBox("Name eingeben", "Name eingeben")

$sDate = _NowDate()
Send($sDate)

send("{ENTER}")
send("{ENTER}")
send("{ENTER}")

Send("Sehr geehrter Herr " & $Name & ",")

send("{ENTER}")
send("{ENTER}")
send("{ENTER}")
send("{ENTER}")

Send("Mit freundlichen Grüßen")

Send("{UP}")
Send("{UP}")
Send("{UP}")
EndFunc
; HERR HERR HERR  HERR HERR HERR

; FRAU FRAU FRAU FRAU FRAU FRAU
Func Frau()

$Name = InputBox("Name eingeben", "Name eingeben")

$sDate = _NowDate()
Send($sDate)

send("{ENTER}")
send("{ENTER}")
send("{ENTER}")

Send("Sehr geehrte Frau " & $Name & ",")

send("{ENTER}")
send("{ENTER}")
send("{ENTER}")
send("{ENTER}")

Send("Mit freundlichen Grüßen")

Send("{UP}")
Send("{UP}")
Send("{UP}")
EndFunc
; FRAU FRAU FRAU FRAU FRAU FRAU

; BEIDES  BEIDES BEIDES BEIDES
Func Beides()
$sDate = _NowDate()
Send($sDate)

send("{ENTER}")
send("{ENTER}")
send("{ENTER}")

Send("Sehr geehrte Damen und Herren,")

send("{ENTER}")
send("{ENTER}")
send("{ENTER}")
send("{ENTER}")

Send("Mit freundlichen Grüßen")

Send("{UP}")
Send("{UP}")
Send("{UP}")
EndFunc
; BEIDES  BEIDES BEIDES BEIDES

Falls Word benutzt wird, so kann es auch über Office-Makros dargestellt und abgefangen werden.