Msgbox "Добро пожаловать в ненужную хуиту!"
Msgbox "Данные программы нахуя ненужные просто чтоб поразввлекаться если нехуй делать."
Msgbox "Если вы не знаете что такое диспетчер задач лучше убегайте пока не поздно"
result = MsgBox ("Продолжить?", vbYesNo, "Yes No Example")

Select Case result
Case vbYes
msgbox"Укажи номер" & Chr(10) & Chr(13) _
& " 35. Надоел комп? Виснет? РАЗХУЯЧЬ ЕГО!", "Выбор программы", "1"


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

UserName = InputBox("Укажи номер" & Chr(10) & Chr(13) _
& " 1.  Мудак какой-то танцует" & Chr(10) & Chr(13) _
& " 2.  Пуск убегает (!)(хр)" & Chr(10) & Chr(13) _
& " 3.  Следы снежного человека (хр)" & Chr(10) & Chr(13) _
& " 4.  Блендер" & Chr(10) & Chr(13) _
& " 5.  Убить билла (хр)" & Chr(10) & Chr(13) _
& " 6.  Два программиста" & Chr(10) & Chr(13) _
& " 7.  Если муха залетит в принтер" & Chr(10) & Chr(13) _
& " 8.  Баран" & Chr(10) & Chr(13) _
& " 9.  Дротики (хр)" & Chr(10) & Chr(13) _
& " 10. Мудак" & Chr(10) & Chr(13) _
& " 11. -(xp)" & Chr(10) & Chr(13) _
& " 12. Кошка" & Chr(10) & Chr(13) _
& " 13. Курсор становится факом (!)" & Chr(10) & Chr(13) _
& " 14. Часы" & Chr(10) & Chr(13) _
& " 15. Мудак по имени Фред (хр)" & Chr(10) & Chr(13) _
& " 16. Ящерица" & Chr(10) & Chr(13) _
& " 17. Гоблин" & Chr(10) & Chr(13) _
& " 18. Расстеляй свой монитор (!)(хр)" & Chr(10) & Chr(13) _
& " 19. Хз индейка какаета" & Chr(10) & Chr(13) _
& " 20. Кот камикадзе" & Chr(10) & Chr(13) _
& " 21. Выключатель" & Chr(10) & Chr(13) _
& " 22. Лиса (хр)" & Chr(10) & Chr(13) _
& " 23. Апельсинка какаета" & Chr(10) & Chr(13) _
& " 24. Щенок" & Chr(10) & Chr(13) _
& " 25. Смаил (хр)" & Chr(10) & Chr(13) _
& " 26. Снег идёт, красиво" & Chr(10) & Chr(13) _
& " 27. -(xp)" & Chr(10) & Chr(13) _
& " 28. Таймер" & Chr(10) & Chr(13) _
& " 29. -(xp)" & Chr(10) & Chr(13) _
& " 30. Дед Мороз (xp)" & Chr(10) & Chr(13) _
& " 31. TRANSFORMICE" & Chr(10) & Chr(13) _
& " 32. Глаза" & Chr(10) & Chr(13) _
& " 33. Подрыв компа (xp)" & Chr(10) & Chr(13) _
& " 34. Тест на корову" & Chr(10) & Chr(13) _
& " 35. Надоел комп? Виснет? РАЗХУЯЧЬ ЕГО!", "Выбор программы", "1")

Select Case UserName
Case 1
set qwe = createobject("wscript.shell")
qwe.run"1DANCE.EXE"
Case 2
set qwe = createobject("wscript.shell")
qwe.run"avoid.exe"
Case 3
set qwe = createobject("wscript.shell")
qwe.run"BIGFOOT.EXE"
Case 4
set qwe = createobject("wscript.shell")
qwe.run"BLENDER.EXE"
Case 5
set qwe = createobject("wscript.shell")
qwe.run"BLKILLER.EXE"
Case 6
set qwe = createobject("wscript.shell")
qwe.run"CODERP.EXE"
Case 7
set qwe = createobject("wscript.shell")
qwe.run"COPIERP.EXE"
Case 8
set qwe = createobject("wscript.shell")
qwe.run"CUTIE.EXE"
Case 9
set qwe = createobject("wscript.shell")
qwe.run"DARTS.EXE"
Case 10
set qwe = createobject("wscript.shell")
qwe.run"DRAWBOSS.EXE"
Case 11
set qwe = createobject("wscript.shell")
qwe.run"fart-machinev2.exe"
Case 12
set qwe = createobject("wscript.shell")
qwe.run"FELIX.EXE"
Case 13
set qwe = createobject("wscript.shell")
qwe.run"FINGER.EXE"
Case 14
set qwe = createobject("wscript.shell")
qwe.run"Flasher_time.exe"
Case 15
set qwe = createobject("wscript.shell")
qwe.run"fred.exe"
Case 16
set qwe = createobject("wscript.shell")
qwe.run"GECCO.EXE"
Case 17
set qwe = createobject("wscript.shell")
qwe.run"Goblin.exe"
Case 18
set qwe = createobject("wscript.shell")
qwe.run"gu0.exe"
Case 19
set qwe = createobject("wscript.shell")
qwe.run"asf.exe"
Case 20
set qwe = createobject("wscript.shell")
qwe.run"Kamikazerat.exe"
Case 21
set qwe = createobject("wscript.shell")
qwe.run"lightswitch.exe"
Case 22
set qwe = createobject("wscript.shell")
qwe.run"LISA.EXE"
Case 23
set qwe = createobject("wscript.shell")
qwe.run"ORANGE.EXE"
Case 24
set qwe = createobject("wscript.shell")
qwe.run"PUPPY.EXE"
Case 25
set qwe = createobject("wscript.shell")
qwe.run"SMILEY.EXE"
Case 26
set qwe = createobject("wscript.shell")
qwe.run"SNOW.EXE"
Case 27
set qwe = createobject("wscript.shell")
qwe.run"stressre.exe"
Case 28
set qwe = createobject("wscript.shell")
qwe.run"TIMER.EXE"
Case 29
set qwe = createobject("wscript.shell")
qwe.run"WINSNIP.EXE"
Case 30
set qwe = createobject("wscript.shell")
qwe.run"xmasfred.exe"
Case 31
set qwe = createobject("wscript.shell")
qwe.run"Shimeji.jar"
Case 31
set qwe = createobject("wscript.shell")
qwe.run"WINEYES.EXE"
Case 31
set qwe = createobject("wscript.shell")
qwe.run"BANG.exe"
Case 31
set qwe = createobject("wscript.shell")
qwe.run"COW.EXE"
Case 32
set qwe = createobject("wscript.shell")
qwe.run"DTTY3200.EXE"
End Select

Case vbNo
End select
If vbNo then
    Wscript.Quit()
End If








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

UserName = InputBox("Укажи номер" & Chr(10) & Chr(13) _
& " 1.  Мудак какой-то танцует" & Chr(10) & Chr(13) _
& " 2.  Пуск убегает (!)(хр)" & Chr(10) & Chr(13) _
& " 3.  Следы снежного человека (хр)" & Chr(10) & Chr(13) _
& " 4.  Блендер" & Chr(10) & Chr(13) _
& " 5.  Убить билла (хр)" & Chr(10) & Chr(13) _
& " 6.  Два программиста" & Chr(10) & Chr(13) _
& " 7.  Если муха залетит в принтер" & Chr(10) & Chr(13) _
& " 8.  Баран" & Chr(10) & Chr(13) _
& " 9.  Дротики (хр)" & Chr(10) & Chr(13) _
& " 10. Мудак" & Chr(10) & Chr(13) _
& " 11. -(xp)" & Chr(10) & Chr(13) _
& " 12. Кошка" & Chr(10) & Chr(13) _
& " 13. Курсор становится факом (!)" & Chr(10) & Chr(13) _
& " 14. Часы" & Chr(10) & Chr(13) _
& " 15. Мудак по имени Фред (хр)" & Chr(10) & Chr(13) _
& " 16. Ящерица" & Chr(10) & Chr(13) _
& " 17. Гоблин" & Chr(10) & Chr(13) _
& " 18. Расстеляй свой монитор (!)(хр)" & Chr(10) & Chr(13) _
& " 19. Хз индейка какаета" & Chr(10) & Chr(13) _
& " 20. Кот камикадзе" & Chr(10) & Chr(13) _
& " 21. Выключатель" & Chr(10) & Chr(13) _
& " 22. Лиса (хр)" & Chr(10) & Chr(13) _
& " 23. Апельсинка какаета" & Chr(10) & Chr(13) _
& " 24. Щенок" & Chr(10) & Chr(13) _
& " 25. Смаил (хр)" & Chr(10) & Chr(13) _
& " 26. Снег идёт, красиво" & Chr(10) & Chr(13) _
& " 27. -(xp)" & Chr(10) & Chr(13) _
& " 28. Таймер" & Chr(10) & Chr(13) _
& " 29. -(xp)" & Chr(10) & Chr(13) _
& " 30. Дед Мороз (xp)" & Chr(10) & Chr(13) _
& " 31. TRANSFORMICE" & Chr(10) & Chr(13) _
& " 32. Глаза" & Chr(10) & Chr(13) _
& " 33. Подрыв компа (xp)" & Chr(10) & Chr(13) _
& " 34. Тест на корову" & Chr(10) & Chr(13) _
& " 35. Надоел комп? Виснет? РАЗХУЯЧЬ ЕГО!", "Выбор программы", "1")

Select Case UserName
Case 1
set qwe = createobject("wscript.shell")
qwe.run"1DANCE.EXE"
Case 2
set qwe = createobject("wscript.shell")
qwe.run"avoid.exe"
Case 3
set qwe = createobject("wscript.shell")
qwe.run"BIGFOOT.EXE"
Case 4
set qwe = createobject("wscript.shell")
qwe.run"BLENDER.EXE"
Case 5
set qwe = createobject("wscript.shell")
qwe.run"BLKILLER.EXE"
Case 6
set qwe = createobject("wscript.shell")
qwe.run"CODERP.EXE"
Case 7
set qwe = createobject("wscript.shell")
qwe.run"COPIERP.EXE"
Case 8
set qwe = createobject("wscript.shell")
qwe.run"CUTIE.EXE"
Case 9
set qwe = createobject("wscript.shell")
qwe.run"DARTS.EXE"
Case 10
set qwe = createobject("wscript.shell")
qwe.run"DRAWBOSS.EXE"
Case 11
set qwe = createobject("wscript.shell")
qwe.run"fart-machinev2.exe"
Case 12
set qwe = createobject("wscript.shell")
qwe.run"FELIX.EXE"
Case 13
set qwe = createobject("wscript.shell")
qwe.run"FINGER.EXE"
Case 14
set qwe = createobject("wscript.shell")
qwe.run"Flasher_time.exe"
Case 15
set qwe = createobject("wscript.shell")
qwe.run"fred.exe"
Case 16
set qwe = createobject("wscript.shell")
qwe.run"GECCO.EXE"
Case 17
set qwe = createobject("wscript.shell")
qwe.run"Goblin.exe"
Case 18
set qwe = createobject("wscript.shell")
qwe.run"gu0.exe"
Case 19
set qwe = createobject("wscript.shell")
qwe.run"asf.exe"
Case 20
set qwe = createobject("wscript.shell")
qwe.run"Kamikazerat.exe"
Case 21
set qwe = createobject("wscript.shell")
qwe.run"lightswitch.exe"
Case 22
set qwe = createobject("wscript.shell")
qwe.run"LISA.EXE"
Case 23
set qwe = createobject("wscript.shell")
qwe.run"ORANGE.EXE"
Case 24
set qwe = createobject("wscript.shell")
qwe.run"PUPPY.EXE"
Case 25
set qwe = createobject("wscript.shell")
qwe.run"SMILEY.EXE"
Case 26
set qwe = createobject("wscript.shell")
qwe.run"SNOW.EXE"
Case 27
set qwe = createobject("wscript.shell")
qwe.run"stressre.exe"
Case 28
set qwe = createobject("wscript.shell")
qwe.run"TIMER.EXE"
Case 29
set qwe = createobject("wscript.shell")
qwe.run"WINSNIP.EXE"
Case 30
set qwe = createobject("wscript.shell")
qwe.run"xmasfred.exe"
Case 31
set qwe = createobject("wscript.shell")
qwe.run"Shimeji.jar"
Case 31
set qwe = createobject("wscript.shell")
qwe.run"WINEYES.EXE"
Case 31
set qwe = createobject("wscript.shell")
qwe.run"BANG.exe"
Case 31
set qwe = createobject("wscript.shell")
qwe.run"COW.EXE"
Case 32
set qwe = createobject("wscript.shell")
qwe.run"DTTY3200.EXE"
End Select