$InputAnzahl = InputBox("Werbung", "Wie oft soll die Werbung gepostet werden?") ;Advertisment , How often should the Ads been posted?

HotKeySet("{End}", "exitit")

Func exitit()
Exit
EndFunc

Dim $ChangeLanguageDE [4][2] = [ _
    [2844, 763], _ ;einstellungen
    [2227, 527], _ ;sprachauwahl
    [2439, 433], _ ;deutsch
    [2537, 635]] ;bestätigen

Func ChangeLanguageToDE()
    For $a = 0 To UBound($ChangeLanguageDE) - 1
        MouseClick("left", $ChangeLanguageDE[$a][0], $ChangeLanguageDE[$a][1], 1)
        Sleep(500)
    Next
EndFunc

Dim $ChangeLanguageEN [4][2] = [ _
    [2844, 763], _ ;einstellungen
    [2227, 527], _ ;sprachauwahl
    [2169, 433], _ ;englisch
    [2537, 635]] ;bestätigen

Func ChangeLanguageToEN()
    For $a = 0 To UBound($ChangeLanguageEN) - 1
        MouseClick("left", $ChangeLanguageEN[$a][0], $ChangeLanguageEN[$a][1], 1)
        Sleep(500)
    Next
 EndFunc

 Dim $GetRdyToPost [4][2] = [ _
    [2450, 638], _ ;klick in die mitte wegen fehlermeldung
    [2041, 587], _ ;klick auf den chat
    [2098, 259], _ ;klick auf den global
    [2056, 301]] ;klick in den chat

Func GetRdyToPostFunc()
    For $a = 0 To UBound($GetRdyToPost) - 1
        MouseClick("left", $GetRdyToPost[$a][0], $GetRdyToPost[$a][1], 1)
        Sleep(500)
    Next
 EndFunc

WinWaitActive("BlueStacks App Player")
If $InputAnzahl = 0 then
    exitit()
Else
Sleep (1000)
EndIf
Do
Sleep (1000)
GetRdyToPostFunc()
Send ("{CTRLDOWN}")
Sleep (1000)
Send ("V")
Sleep (1000)
Send ("{CTRLUP}")
MouseClick("left", 2305, 301) ;nachricht absenden
ChangeLanguageToDE()
Sleep (1000)
GetRdyToPostFunc()
Send ("{CTRLDOWN}")
Sleep (1000)
Send ("V")
Sleep (1000)
Send ("{CTRLUP}")
MouseClick("left", 2305, 301) ;nachricht absenden
ChangeLanguageToEN()
$InputAnzahl -= 1
Until $InputAnzahl = 0