Трюки в Windows с помощью скриптов

161 full read
222 story viewsUnique page visitors
161 read the story to the endThat's 73% of the total page views
1 minute — average reading time
Трюки в Windows с помощью скриптов

Мигающие_лампочки.vbs

Итак, первый скрипт заставит ваши лампочки на клавиатуре мигать как новогодние гирлянды; для начала создайте текстовый документ и вставьте туда следующее:

Set wshShell =wscript.CreateObject("WScript.Shell") ' создать экземпляр оболочки
do
wscript.sleep 100 ' ждать 100 миллисекунд
wshshell.sendkeys "{CAPSLOCK}"
' подсветить CAPSLOCK итд
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

Скрипт бесконечный, и закрыть его нужен через диспетчер задач:

Трюки в Windows с помощью скриптов

Озвучка_текста.vbs

Dim message, sapi message=InputBox("What do you want me to say?","Speak to Me") Set sapi=CreateObject("sapi.spvoice") sapi.Speak message

Сумасшедший_дисковод.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
loop

Вывести_ошибку.vbs

x=msgbox("С НОВЫМ ГОДОМ ТЕБЯ", 0+16, "ЭЙ")

Зелёная_матрица.bat

@echo off
color 02
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
goto start

Записная_книжка.txt

Вначале файла прописываем .LOG, далее после каждой введённой записи будет дата и время новой записи.

Трюки в Windows с помощью скриптов

Генератор паролей

@echo off
:Start2
cls
goto Start
:Start
title ѓҐ­Ґа в®а Ї а®«Ґ©
echo I will make you a new password.
echo Please write the password down somewhere in case you forget it.
echo ----------------------------------------м-----------------------
echo 1) 1 Random Password
echo 2) 5 Random Passwords
echo 3) 10 Random Passwords
echo Input your choice
set input=
set /p input= Choice:
if %input%==1 goto A if NOT goto Start2
if %input%==2 goto B if NOT goto Start2
if %input%==3 goto C if NOT goto Start2
:A
cls
echo Your password is %random%
echo Now choose what you want to do.
echo 1) Go back to the beginning
echo 2) Exit
set input=
set /p input= Choice:
if %input%==1 goto Start2 if NOT goto Start 2
if %input%==2 goto Exit if NOT goto Start 2
:Exit
exit
:B
cls
echo Your 5 passwords are %random%, %random%, %random%, %random%, %random%.
echo Now choose what you want to do.
echo 1) Go back to the beginning
echo 2) Exit
set input=
set /p input= Choice:
if %input%==1 goto Start2 if NOT goto Start 2
if %input%==2 goto Exit if NOT goto Start 2
:C
cls
echo Your 10 Passwords are %random%, %random%, %random%, %random%, %random%, %random%, %random%, %random%, %random%, %random%
echo Now choose what you want to do.
echo 1) Go back to the beginning
echo 2) Exit
set input=
set /p input= Choice:
if %input%==1 goto Start2 if NOT goto Start 2
if %input%==2 goto Exit if NOT goto Start 2

Трюки в Windows с помощью скриптов