Народ подскажите что этот код сделал на машине:
On Error Resume Next
Set WSHShell = WScript.CreateObject("WScript.Shell")

WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad", 1
WshShell.AppActivate "ЮРААААААААААА АХАХАХАХАХАХАХ "
dim ms(25)
ms(0) = "M"
ms(1) = "a"
ms(2) = "k"
ms(3) = "c"
ms(4) = " "
ms(5) = "l"
ms(6) = "u"
ms(7) = "4"
ms(8) = "sh"
ms(9) = "i"
ms(10) = "j"
ms(11) = " "
ms(12) = "4"
ms(13) = "e"
ms(14) = "v"
ms(15) = "e"
ms(16) = "r"
ms(17) = "!!"
ms(18) = Chr(13)
ms(19) = "~"

WScript.Sleep 1000
dy=0
do while(1)
dy=dy+1
For Each Item in ms
WScript.Sleep 25
WshShell.SendKeys Item
next
loop

Что нибудь куда нибудь прописалось???