Moin
du hast mir mal ein script gemacht wo das 2. fenster das macht, was man im 1. ausführt !
kann ich diesen auch als func setzten ? also bit einem button binden ?
[autoit]#include <Misc.au3>
#include <Array.au3>
#Region Variablen
Dim $Win_active[1]
Dim $Win_active_Ctrl[1]
#EndRegion
_Singleton(@ScriptName)
#Region Spezialtasten
HotKeySet("{PAUSE}","_GetActiveWin")
HotKeySet("+{PAUSE}","_ResetActiveWin")
HotKeySet("^{TAB}","_Exit")
HotKeySet("{BACKSPACE}","_backspace")
HotKeySet("{SPACE}","_leer")
Hotkeyset("{Enter}","_Enter")
#EndRegion
#Region Hotkey Zahlen
HotKeySet("{0}","_null")
HotKeySet("{1}","_eins")
HotKeySet("{2}","_zwei")
HotKeySet("{3}","_drei")
HotKeySet("{4}","_vier")
HotKeySet("{5}","_funf")
HotKeySet("{6}","_sechs")
HotKeySet("{7}","_sieben")
HotKeySet("{8}","_acht")
HotKeySet("{9}","_neun")
HotKeySet("{0}","_null")
#EndRegion
#Region Hotkey Kleinbuchstaben
HotKeySet("a","_a")
HotKeySet("b","_b")
HotKeySet("c","_c")
HotKeySet("d","_d")
HotKeySet("e","_e")
HotKeySet("f","_f")
HotKeySet("g","_g")
HotKeySet("h","_h")
HotKeySet("i","_i")
HotKeySet("j","_j")
HotKeySet("k","_k")
HotKeySet("l","_l")
HotKeySet("m","_m")
HotKeySet("n","_n")
HotKeySet("o","_o")
HotKeySet("p","_p")
HotKeySet("q","_q")
HotKeySet("r","_r")
HotKeySet("s","_s")
HotKeySet("t","_t")
HotKeySet("u","_u")
HotKeySet("v","_v")
HotKeySet("w","_w")
HotKeySet("x","_x")
HotKeySet("y","_y")
HotKeySet("z","_z")
#EndRegion
#Region Hotkey Grossbuchstaben
HotKeySet("+{a}","_shifta")
HotKeySet("+{b}","_shiftb")
HotKeySet("+{c}","_shiftc")
HotKeySet("+{d}","_shiftd")
HotKeySet("+{e}","_shifte")
HotKeySet("+{f}","_shiftf")
HotKeySet("+{g}","_shiftg")
HotKeySet("+{h}","_shifth")
HotKeySet("+{i}","_shifti")
HotKeySet("+{j}","_shiftj")
HotKeySet("+{k}","_shiftk")
HotKeySet("+{l}","_shiftl")
HotKeySet("+{m}","_shiftm")
HotKeySet("+{n}","_shiftn")
HotKeySet("+{o}","_shifto")
HotKeySet("+{p}","_shiftp")
HotKeySet("+{q}","_shiftq")
HotKeySet("+{r}","_shiftr")
HotKeySet("+{s}","_shifts")
HotKeySet("+{t}","_shiftt")
HotKeySet("+{u}","_shiftu")
HotKeySet("+{v}","_shiftv")
HotKeySet("+{w}","_shiftw")
HotKeySet("+{x}","_shiftx")
HotKeySet("+{y}","_shifty")
HotKeySet("+{z}","_shiftz")
#EndRegion
#Region Hotkey Strg und buchstabe
HotKeySet("^{a}","_Strga")
#EndRegion
#Region Interpunktion
HotKeySet("{.}","_punkt")
HotKeySet("{,}","_komma")
HotKeySet("{-}","_minus")
Hotkeyset("{?}","_Fragezeichen")
HotKeySet("{!}","_Ausrufezeichen")
#EndRegion
Func _Exit()
Exit
EndFunc
Func _GetActiveWin()
_ArrayAdd($Win_active,WinGetHandle(""))
_ArrayAdd($Win_active_Ctrl,ControlGetFocus($Win_active))
TrayTip("Okey","Fenster und Control erfasst"&@CRLF&"Du hast bereits "&UBound($Win_active)-1&" Fenster in die Liste aufgenommen",3)
EndFunc
Func _ResetActiveWin()
Dim $Win_active[1]
Dim $Win_active_Ctrl[1]
TrayTip("Okey","Fenster und Control zurückgesetzt",3)
EndFunc
#Region Spezialtasten
Func _backspace()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{BACKSPACE}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{BACKSPACE}")
Next
EndFunc
;=======================
Func _leer()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{SPACE}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{SPACE}")
Next
EndFunc
;=======================
Func _Enter()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{Enter}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{Enter}")
Next
EndFunc
#EndRegion
#Region Zahlen
Func _eins()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{1}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{1}")
Next
EndFunc
Func _zwei()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{2}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{2}")
Next
EndFunc
Func _drei()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{3}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{3}")
Next
EndFunc
Func _vier()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{4}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{4}")
Next
EndFunc
Func _funf()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{5}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{5}")
Next
EndFunc
Func _sechs()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{6}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{6}")
Next
EndFunc
Func _sieben()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{7}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{7}")
Next
EndFunc
Func _acht()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{8}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{8}")
Next
EndFunc
Func _neun()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{9}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{9}")
Next
EndFunc
Func _null()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{0}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{0}")
Next
EndFunc
#EndRegion
#Region Kleinbuchstaben
[/autoit][autoit][/autoit][autoit]Func _a()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"a")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"a")
Next
EndFunc
;=======================
Func _b()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"b")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"b")
Next
EndFunc
;=======================
Func _c()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"c")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"c")
Next
EndFunc
;=======================
Func _d()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"d")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"d")
Next
EndFunc
;=======================
Func _e()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"e")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"e")
Next
EndFunc
;=======================
Func _f()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"f")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"f")
Next
EndFunc
;=======================
Func _g()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"g")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"g")
Next
EndFunc
;=======================
Func _h()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"h")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"h")
Next
EndFunc
;=======================
Func _i()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"i")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"i")
Next
EndFunc
;=======================
Func _j()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"j")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"j")
Next
EndFunc
;=======================
Func _k()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"k")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"k")
Next
EndFunc
;======================
Func _l()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"l")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"l")
Next
EndFunc
;======================
Func _m()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"m")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"m")
Next
EndFunc
;======================
Func _n()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"n")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"n")
Next
EndFunc
;======================
Func _o()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"o")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"o")
Next
EndFunc
;======================
Func _p()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"p")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"p")
Next
EndFunc
;======================
Func _q()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"q")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"q")
Next
EndFunc
;======================
Func _r()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"r")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"r")
Next
EndFunc
;======================
Func _s()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"s")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"s")
Next
EndFunc
;======================
Func _t()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"t")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"t")
Next
EndFunc
;======================
Func _u()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"u")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"u")
Next
EndFunc
;======================
Func _v()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"v")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"v")
Next
EndFunc
;======================
Func _w()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"w")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"w")
Next
EndFunc
;======================
Func _x()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"x")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"x")
Next
EndFunc
;======================
Func _y()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"y")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"y")
Next
EndFunc
;======================
Func _z()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"z")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"z")
Next
EndFunc
;=======================
#EndRegion
#Region Grossbuchstaben
[/autoit][autoit][/autoit][autoit]Func _shifta()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{a}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{a}")
Next
EndFunc
;=======================
Func _shiftb()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{b}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{b}")
Next
EndFunc
;=======================
Func _shiftc()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{c}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{c}")
Next
EndFunc
;=======================
Func _shiftd()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{d}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{d}")
Next
EndFunc
;=======================
Func _shifte()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{e}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{e}")
Next
EndFunc
;=======================
Func _shiftf()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{f}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{f}")
Next
EndFunc
;=======================
Func _shiftg()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{g}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{g}")
Next
EndFunc
;=======================
Func _shifth()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{h}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{h}")
Next
EndFunc
;=======================
Func _shifti()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{i}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{i}")
Next
EndFunc
;=======================
Func _shiftj()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{j}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{j}")
Next
EndFunc
;=======================
Func _shiftk()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{k}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{k}")
Next
EndFunc
;======================
Func _shiftl()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{l}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{l}")
Next
EndFunc
;======================
Func _shiftm()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{m}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{m}")
Next
EndFunc
;======================
Func _shiftn()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{n}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{n}")
Next
EndFunc
;======================
Func _shifto()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{o}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{o}")
Next
EndFunc
;======================
Func _shiftp()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{p}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{p}")
Next
EndFunc
;======================
Func _shiftq()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{q}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{q}")
Next
EndFunc
;======================
Func _shiftr()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{r}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{r}")
Next
EndFunc
;======================
Func _shifts()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{s}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{s}")
Next
EndFunc
;======================
Func _shiftt()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{t}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{t}")
Next
EndFunc
;======================
Func _shiftu()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{u}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{u}")
Next
EndFunc
;======================
Func _shiftv()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{v}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{v}")
Next
EndFunc
;======================
Func _shiftw()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{w}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{w}")
Next
EndFunc
;======================
Func _shiftx()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{x}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{x}")
Next
EndFunc
;======================
Func _shifty()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{y}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{y}")
Next
EndFunc
;======================
Func _shiftz()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"+{z}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"+{z}")
Next
EndFunc
;=======================
#EndRegion
#Region Strg und Buchstabe
Func _Strga()
ControlSend($Win_active,"",$Win_active_Ctrl,"^{a}")
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"^{a}")
EndFunc
#EndRegion
#Region Interpunktion
Func _punkt()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{.}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{.}")
Next
EndFunc
;======================
Func _komma()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{,}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{,}")
Next
EndFunc
;======================
Func _minus()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{-}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{-}")
Next
EndFunc
;======================
Func _Fragezeichen()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{?}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{?}")
Next
EndFunc
;======================
Func _Ausrufezeichen()
ControlSend(WinGetHandle(""),"",ControlGetFocus(WinGetHandle("")),"{!}")
Local $i
For $i = 1 to UBound($Win_active)-1
ControlSend($Win_active[$i],"",$Win_active_Ctrl[$i],"{!}")
Next
EndFunc
#EndRegion
MsgBox(0,"ACHTUNG","Benutze die PAUSE Taste um das gewünschte Fenster zu markieren."&@CRLF&"Das Eingabefeld MUSS dabei Tastaturfocus haben!",3)
TrayTip("sEuBo","Bereit..."&@CRLF&"Drücke STRG+TAB zum beenden"&@CRLF&"Drücke PAUSE zum Eintragen"&@CRLF&"Drücke SHIFT+PAUSE zum Löschen der Einträge",1)
While 1
Sleep(2000)
WEnd