1. 1
    Ewson 24.01, 03:37
Загрузка...
Загрузка...

Скрипты-приколы своими руками

Тема в разделе "Софт", создана пользователем pr0100hacker, 11.02.2012.

  1. pr0100hacker

    pr0100hacker

    Статус:
    Оффлайн
    Регистрация:
    15.08.2011
    Сообщения:
    145
    Репутация:
    33 +/-
    Методы изготовления скриптов-приколов,шалости ради =)

    Чтобы включить скрипт необходимо открыть блокнот, вставить туда скрипт и сохранить с расширением *.vbs, а затем просто запустить.

    1. Скрипт-пугалка (якобы вирус)

    Действие:
    Выводит на экран сообщение о том что система заражена и просит перезагрузить компьютер, а затем включает много командных строк, калькуляторы, блокноты и многое другое.

    Цитата:

    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"


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

    Действие:
    Заставляет бесконечно пищать системный динамик в процессоре компьютера

    Цитата:

    Set S = CreateObject("Wscript.Shell")
    do
    execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
    loop


    3. Мигающая клавиатура

    Действие:
    Заставляет мигать лампочки у клавиатуры, а так же делает написанный текст вида: ПрИмЕр ТеКсТа

    Цитата:

    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


    4. Въезжающий - выезжающий дисковод

    Действие:
    Заставляет бесконечно въезжать - выезжать дисковод в компьютере

    Цитата:

    Set WMPlayer = CreateObject("WMPlayer.OCX.7")
    do
    WMPlayer.CdRomCollection.Item(0).Eject()
    loop


    5. Бесконечно жужжащий разъем для дискет

    Действие:
    Имитирует, что в приводе для дискет находится дискета. Заставляет его жужжать.

    Цитата:

    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
     
  2. TeMbI4MaH

    TeMbI4MaH

    Статус:
    Оффлайн
    Регистрация:
    06.02.2012
    Сообщения:
    56
    Репутация:
    8 +/-
    лампочки не мигают и дисковод не выезжает? что сделать колонки тупо пикают?
     
  3. pr0100hacker

    pr0100hacker

    Статус:
    Оффлайн
    Регистрация:
    15.08.2011
    Сообщения:
    145
    Репутация:
    33 +/-
    удали скрипт и заново ставь
     
  4. eBaSHeR

    Александр Мастер
    eBaSHeR

    Статус:
    Оффлайн
    Регистрация:
    17.07.2010
    Сообщения:
    461
    Репутация:
    405 +/-
    ПрикОльно выХОДиТ. пЛЮс зАсЛуЖиЛ.
     
  5. Synapsehome

    Synapsehome

    Статус:
    Оффлайн
    Регистрация:
    26.06.2010
    Сообщения:
    813
    Репутация:
    514 +/-
    Код:
    Set s = CreateObject("Wscript.Shell") 
    do
    s.sendkeys "{NUMLOCK}"
    loop
    Код:
    lol = msgbox("LOL",vbOkOnly"LOL")
    я раньше этим пользовался в школе )
     
  6. Kickboxer

    Kickboxer

    Статус:
    Оффлайн
    Регистрация:
    22.08.2011
    Сообщения:
    71
    Репутация:
    9 +/-
    Красавчик автор
     
  7. Bully

    Bully

    Статус:
    Оффлайн
    Регистрация:
    18.11.2011
    Сообщения:
    1.718
    Репутация:
    725 +/-
    полезно,спсиб
     
  8. RusyaN

    RusyaN

    Статус:
    Оффлайн
    Регистрация:
    09.08.2011
    Сообщения:
    551
    Репутация:
    113 +/-
    Призвать западло ?)))
     
  9. TeMbI4MaH

    TeMbI4MaH

    Статус:
    Оффлайн
    Регистрация:
    06.02.2012
    Сообщения:
    56
    Репутация:
    8 +/-
    Плиз напишите так что бы выезжал орали колонки мигала клава и 1 пункт!
    код в лс!
     
  10. Purka_:D

    Purka_:D

    Статус:
    Оффлайн
    Регистрация:
    26.01.2012
    Сообщения:
    35
    Репутация:
    1 +/-
    A KAK oT2JIu44tB?
     
  11. Plazm

    Plazm

    Статус:
    Оффлайн
    Регистрация:
    03.01.2012
    Сообщения:
    537
    Репутация:
    279 +/-
    хотябы написал откуда инфу взял,а не как крыса скопировал и типо это ты сделал!
     
  12. Lesli

    Продажа Origin Accounts
    Lesli

    Статус:
    Оффлайн
    Регистрация:
    03.09.2011
    Сообщения:
    2.263
    Репутация:
    1.235 +/-
    как отключить, не перегружая систему ?
     
  13. Plazm

    Plazm

    Статус:
    Оффлайн
    Регистрация:
    03.01.2012
    Сообщения:
    537
    Репутация:
    279 +/-
    alt+ctrl+del там в процессах Wscript чет типо такого)