für sEuBo ^^

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)

[/autoit][autoit][/autoit][autoit]

#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

[/autoit][autoit][/autoit][autoit]

#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")

[/autoit][autoit][/autoit][autoit]

#EndRegion
#Region Hotkey Strg und buchstabe
HotKeySet("^{a}","_Strga")
#EndRegion
#Region Interpunktion
HotKeySet("{.}","_punkt")
HotKeySet("{,}","_komma")
HotKeySet("{-}","_minus")
Hotkeyset("{?}","_Fragezeichen")
HotKeySet("{!}","_Ausrufezeichen")
#EndRegion

[/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit]

#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

[/autoit][autoit][/autoit][autoit]

#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

[/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit]

#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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

#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

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit]

bot ?
hatte es so genant weil er ja nun mal eine multi fenster funktion hat und alleine in 2,3,4 und 5 fenster schreibt !

Zitat

aber jetzt werd ich erstmal was essen.

Guten hunger !

na es sollte schon genau das im 2 fenster tipen was ich im ersten mache also so wie es da steht ist schon ok

was ich blos wissen möchte ist ob ich diesen ganze script auf eine Button setzen kann

also case §Script
_script()

Func _script()
.............
endfunc

ahhh super vielen dank
hast fein gemacht