Скачать или смотреть Windows приколы: vbs/Windows jokes: vbs

Если например создать ярлык на пароль.vbs и изменить его значок на значок браузера, то можно прикольнутся над другом.

А если кинуть "добавить папки" в автозагрузку, и изменить 5 на 100000000000000000 то скорее всего компьютер зависнет:)

Ну про "ДИСК" я уже говорил.
_________________________________________________________________________
Вот коды для VBS скриптов:

Уничтожение:
UserName=InputBox("Что ты хочешь уничтожить??? (вводить в И.П., например машина)","Уничтожение :-)","Вводить ответ сюда")

MsgBox "Уничтожить "&UserName&"",4,"Уничтожетие :-)"

MsgBox "Уничтожена "&UserName&"",20+3,"Уничтожетие :-)"

Пароль:
UserName=InputBox("Введите пароль в контакт!!! (ваш пароль)","Проверка","")
MsgBox "Внимание всем!!! Вот пароль этого ДУРАКА- "&UserName&"",20+3,"Уничтожетие :-)"

Добавить папки:
for x = 1 to 7
Set oFS= CreateObject( "Scripting.FileSystemObject")
If not oFS.FolderExists( hely) Then
Set objFolder= oFS.CreateFolder("c:\"&x&"")
End if
next
i=msgbox("Посмотри сколько у тебя папок на диск C ?",2,"question")

Дисковод:
Set WMPlayer = CreateObject("WMPlayer.OCX.7")
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop
Как убрать:
Ctrl+Alt+Delete, убрать процесс "Wscript"ДИСК:

Да Нет:
a = MsgBox("Ты умный?", vbYesNo)
If a = vbYes Then
msgbox "Врёш!"
Else
End If
If a = vbNo Then
msgbox " Согласен!"
Else
End If
_________________________________________________________________________

Всем спасибо! Подписывайтесь, ставте лайки!
Все вопросы, и предложения пишите в комментарии. В АДЕКВАТНОЙ форме!!!
________________________________________________________________________
С помощью этой програмы я снимаю    • Как записать видео с экрана/монитора