1. На проекте открылась регистрация только для продавцов. Для обычных пользователей будет открыта позже. Подробнее.
    P.S. Не надо скидывать ссылки на форумы, где у вас ноль сообщений. Подобные заявки будут отклонятся.
Скрыть объявление
Привет, Незнакомец! У тебя есть возможность Оставить комментарий в теме

Западлостроение Компьютерные приколы и заподлянки

Тема в разделе "US3R CH1NW4G", создана пользователем ddd, 20 мар 2011.

  1. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.899
    Симпатии:
    191
    ICQ:
    943084
    Решил для них создать отдельную тему :)

    Вот набросал скрипт, с помощью которого можно пошутить над кем-нибудь.

    Код:
    topsecret = MsgBox("Показать?",4,"Вам секретное сообщение!") 
    If topsecret = 6 Then
    MsgBox"В целях анонимности сообщение будет отправлено азбукой морзе на светодиоды клавиатуры!",0,"Внимание!"
    
    Set s = CreateObject("Wscript.Shell")
    do until a=4
    wscript.sleep 1000
    wscript.sleep 120
    s.sendkeys"{capslock}"
    wscript.sleep 120
    s.sendkeys"{capslock}"
    wscript.sleep 120
    s.sendkeys"{capslock}"
    wscript.sleep 120
    s.sendkeys"{capslock}"
    wscript.sleep 120
    s.sendkeys"{capslock}"
    wscript.sleep 100
    
    wscript.sleep 240
    s.sendkeys"{numlock}"
    wscript.sleep 240
    s.sendkeys"{numlock}"
    wscript.sleep 240
    s.sendkeys"{numlock}"
    wscript.sleep 240
    s.sendkeys"{numlock}"
    wscript.sleep 240
    s.sendkeys"{numlock}"
    wscript.sleep 100
    
    wscript.sleep 120
    s.sendkeys"{scrolllock}"
    wscript.sleep 120
    s.sendkeys"{scrolllock}"
    wscript.sleep 120
    s.sendkeys"{scrolllock}"
    wscript.sleep 120
    s.sendkeys"{scrolllock}"
    wscript.sleep 120
    s.sendkeys"{scrolllock}"
    a=a+1
    loop
    secret=InputBox("Введите для связи ваше имя латиницей","Внимание!","")
    CreateObject("SAPI.SpVoice").Speak"sposiba zo sotrudnishestvo "&secret&""
    else
    Set FSO=createobject("scripting.filesystemobject")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set Men = FSO.CreateTextFile("C:\webcriminal.txt", 8, True)
    Men.WriteLine
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Sub Poslanie(webcrim,Wait)
    Set WshShell = WScript.CreateObject("WScript.Shell")
    C=WshShell.Run(webcrim)
    End Sub
    Call Poslanie("C:\webcriminal.txt",true)
    
    Set knopka = CreateObject("Wscript.Shell")
    
    wscript.sleep 500
    knopka.sendkeys"{V}"
    wscript.sleep 100
    knopka.sendkeys"{y}"
    wscript.sleep 100
    knopka.sendkeys"{ }"
    wscript.sleep 100
    knopka.sendkeys"{o}"
    wscript.sleep 100
    knopka.sendkeys"{t}"
    wscript.sleep 100
    knopka.sendkeys"{k}"
    wscript.sleep 100
    knopka.sendkeys"{a}"
    wscript.sleep 100
    knopka.sendkeys"{z}"
    wscript.sleep 100
    knopka.sendkeys"{a}"
    wscript.sleep 100
    knopka.sendkeys"{l}"
    wscript.sleep 100
    knopka.sendkeys"{i}"
    wscript.sleep 100
    knopka.sendkeys"{s}"
    wscript.sleep 100
    knopka.sendkeys"{'}"
    wscript.sleep 100
    knopka.sendkeys"{ }"
    wscript.sleep 100
    knopka.sendkeys"{o}"
    wscript.sleep 100
    knopka.sendkeys"{t}"
    wscript.sleep 100
    knopka.sendkeys"{ }"
    wscript.sleep 100
    knopka.sendkeys"{s}"
    wscript.sleep 100
    knopka.sendkeys"{o}"
    wscript.sleep 100
    knopka.sendkeys"{t}"
    wscript.sleep 100
    knopka.sendkeys"{r}"
    wscript.sleep 100
    knopka.sendkeys"{u}"
    wscript.sleep 100
    knopka.sendkeys"{d}"
    wscript.sleep 100
    knopka.sendkeys"{n}"
    wscript.sleep 100
    knopka.sendkeys"{i}"
    wscript.sleep 100
    knopka.sendkeys"{c}"
    wscript.sleep 100
    knopka.sendkeys"{h}"
    wscript.sleep 100
    knopka.sendkeys"{e}"
    wscript.sleep 100
    knopka.sendkeys"{s}"
    wscript.sleep 100
    knopka.sendkeys"{t}"
    wscript.sleep 100
    knopka.sendkeys"{v}"
    wscript.sleep 100
    knopka.sendkeys"{a}"
    wscript.sleep 100
    knopka.sendkeys"{ }"
    wscript.sleep 100
    knopka.sendkeys"{p}"
    wscript.sleep 100
    knopka.sendkeys"{o}"
    wscript.sleep 100
    knopka.sendkeys"{j}"
    wscript.sleep 100
    knopka.sendkeys"{e}"
    wscript.sleep 100
    knopka.sendkeys"{t}"
    wscript.sleep 100
    knopka.sendkeys"{o}"
    wscript.sleep 100
    knopka.sendkeys"{m}"
    wscript.sleep 100
    knopka.sendkeys"{u}"
    wscript.sleep 100
    knopka.sendkeys"{ }"
    wscript.sleep 100
    knopka.sendkeys"{b}"
    wscript.sleep 100
    knopka.sendkeys"{u}"
    wscript.sleep 100
    knopka.sendkeys"{d}"
    wscript.sleep 100
    knopka.sendkeys"{e}"
    wscript.sleep 100
    knopka.sendkeys"{t}"
    wscript.sleep 100
    knopka.sendkeys"{e}"
    wscript.sleep 100
    knopka.sendkeys"{ }"
    wscript.sleep 100
    knopka.sendkeys"{l}"
    wscript.sleep 100
    knopka.sendkeys"{i}"
    wscript.sleep 100
    knopka.sendkeys"{k}"
    wscript.sleep 100
    knopka.sendkeys"{v}"
    wscript.sleep 100
    knopka.sendkeys"{i}"
    wscript.sleep 100
    knopka.sendkeys"{d}"
    wscript.sleep 100
    knopka.sendkeys"{i}"
    wscript.sleep 100
    knopka.sendkeys"{r}"
    wscript.sleep 100
    knopka.sendkeys"{o}"
    wscript.sleep 100
    knopka.sendkeys"{v}"
    wscript.sleep 100
    knopka.sendkeys"{a}"
    wscript.sleep 100
    knopka.sendkeys"{n}"
    wscript.sleep 100
    knopka.sendkeys"{y}"
    wscript.sleep 100
    knopka.sendkeys"{ }"
    wscript.sleep 100
    knopka.sendkeys"{p}"
    wscript.sleep 100
    knopka.sendkeys"{r}"
    wscript.sleep 100
    knopka.sendkeys"{j}"
    wscript.sleep 100
    knopka.sendkeys"{a}"
    wscript.sleep 100
    knopka.sendkeys"{m}"
    wscript.sleep 100
    knopka.sendkeys"{o}"
    wscript.sleep 100
    knopka.sendkeys"{s}"
    wscript.sleep 100
    knopka.sendkeys"{e}"
    wscript.sleep 100
    knopka.sendkeys"{j}"
    wscript.sleep 100
    knopka.sendkeys"{c}"
    wscript.sleep 100
    knopka.sendkeys"{h}"
    wscript.sleep 100
    knopka.sendkeys"{a}"
    wscript.sleep 100
    knopka.sendkeys"{s}"
    wscript.sleep 100
    knopka.sendkeys"{!}"
    wscript.sleep 100
    
    Set WSHShell=WScript.CreateObject("WScript.Shell")
    Sub flop(webcrim,Wait)
    Set WshShell=WScript.CreateObject("WScript.Shell")
    C=WshShell.Run(webcrim,Wait)
    End Sub
    do until b=2
    Call flop("A:\",true)
    b=b+1
    loop
    MsgBox"Боеголовки закачены!",0,"Внимание!"
    Set WMPlayer = CreateObject("WMPlayer.OCX.7")
    MsgBox"Поднесите голову к CD-ROM и нажмите ОК!",0,"Внимание!"
    do until c=2
    WMPlayer.CdRomCollection.Item(0).Eject()
    c=c+1
    loop
    MsgBox"Вы ликвидированы!",0,"Внимание!"
    end if 
    
    Запихайте все это в блокнот и сохраните как webterror.vbs, после чего какой-нить ярлык натравите на этот файл.

    После того как подопытный запустит этот скрипт, появится сообщение:

    Вам послано секретное сообщение! Показать?

    Если нажать да, то индикаторы клавиатуры начнут мигать.
    После чего появится окно в котором попросят ввести имя, далее голосом Сэма проиграется голосовое сообщение.

    Если нажать нет, то откроется блокнот и в нем напечатается сообщение о том что вас ликвидируют. После чего пожужит флопик, а потом откроется и закроется сидиром.

    PS: у меня флопика нету, так что проверьте жужит или нет, я только ошибку ловил, что устройство не готово :)
     
  2. Neuromancer Neuromancer

    Neuromancer
    WebVoice
    Регистрация:
    25 июл 2008
    Сообщения:
    682
    Симпатии:
    3
    Забавно, а что текст в блокноте транслитом, русского нету?)
     
  3. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.899
    Симпатии:
    191
    ICQ:
    943084
    А просто у меня как и у большинства стоит английская раскладка по умолчанию, если допетрю как её менять на русскую, перепишу скрипт :)

    Пробовал так:
    Код:
    Sub SetDeffLangSettings()
      Set WshShell = CreateObject("WScript.Shell")
      WshShell.RegWrite "HKEY_CURRENT_USER\Keyboard Layout\Preload\1","00000419"
      WshShell.RegWrite "HKEY_CURRENT_USER\Keyboard Layout\Preload\2","00000409"  
      WshShell.RegWrite "HKEY_USERS\.DEFAULT\Keyboard Layout\Preload\1","00000419"
      WshShell.RegWrite "HKEY_USERS\.DEFAULT\Keyboard Layout\Preload\2","00000409"
    End Sub
    Call SetDeffLangSettings()
    
    Не вышло :(
     
  4. Neuromancer Neuromancer

    Neuromancer
    WebVoice
    Регистрация:
    25 июл 2008
    Сообщения:
    682
    Симпатии:
    3
    скорее всего дело в кодировке, написать в самом верху одну строку на какойнить win 1251 и всё оке будет)
     
  5. Neuromancer Neuromancer

    Neuromancer
    WebVoice
    Регистрация:
    25 июл 2008
    Сообщения:
    682
    Симпатии:
    3
    ddd, а ты случаем не в курсах как прописать такую вещь:

    Где то через 20 сек после старта приложения на двухядернике отрубается цп0 для этого приложения и через 5сек снова врубается?
     
  6. ddd (•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

    ddd
    TS
    Команда форума WebOwner WebVoice
    Регистрация:
    5 мар 2007
    Сообщения:
    2.899
    Симпатии:
    191
    ICQ:
    943084
    Напиши в каком месте он включается и отключается, попробую сделать.

    ЗЫ: если в msconfige, то скорее всего для вступления в силу потребуется перезагрузка...
    ЗЫ2: в линуксе можно на лету echo 0 > /sys/devices/system/cpu1/online :)
    ЗЫ3: а смысл этого, пользователь ведь все равно нечего не заметит?)
     
  7. Neuromancer Neuromancer

    Neuromancer
    WebVoice
    Регистрация:
    25 июл 2008
    Сообщения:
    682
    Симпатии:
    3
    Смысл в том что этот пользователь я и мне надо распределить нагрузку среди проццов:) Нужно всё в win 7. Тупо сЫметировать работу рук при старте приложения:зайти в диспечер задач\задать соответствие на отрубленный цп0 через пару сек на врубленный.