HotKeySet("{Esc}","STop_Loop") ;button to stop loop
$inputbox = InputBox("Write the name of the win","Below you have to write the win name...") ;The Win name
WinActivate($inputbox)
While 1
    Sleep(1000) ;1000=1sec
    Send("test!")
    Send("{Enter}")
WEnd
Func STop_Loop()
    Exit
EndFunc