Steamed Stuffed Bun QQ automatic attacker?

Dim a, B, CTR
CTR = 0
A = inputbox ("Enter the language you want to attack. Currently, only English is supported", "steamed stuffed bun QQ automatic attacker ")
B = inputbox ("Enter the number of attacks you want", "steamed stuffed bun QQ automatic attacker ")
B = B + 0
Do While CTR <B
Set wshshell = Createobject ("wscript. Shell ")
Wscript. Sleep 500
Wshshell. sendkeys "codz by Leilei"
Wshshell. sendkeys "{enter }"
Wscript. Sleep 500
Wshshell. sendkeys
Wshshell. sendkeys "^ {enter }"
CTR = CTR + 1
Loop