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

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

ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Решил для них создать отдельную тему :)

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

Код: 
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: у меня флопика нету, так что проверьте жужит или нет, я только ошибку ловил, что устройство не готово :)
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Neuromancer написал(а):
Забавно, а что текст в блокноте транслитом, русского нету?)
Нажмите для раскрытия...

А просто у меня как и у большинства стоит английская раскладка по умолчанию, если допетрю как её менять на русскую, перепишу скрипт :)

Пробовал так:
Код: 
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()
Не вышло :(
 
Neuromancer

Neuromancer

Neuromancer
WebVoice
скорее всего дело в кодировке, написать в самом верху одну строку на какойнить win 1251 и всё оке будет)
 
Neuromancer

Neuromancer

Neuromancer
WebVoice
ddd, а ты случаем не в курсах как прописать такую вещь:

Где то через 20 сек после старта приложения на двухядернике отрубается цп0 для этого приложения и через 5сек снова врубается?
 
ddd

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿
Команда форума
WebOwner
WebVoice
Neuromancer написал(а):
ddd, а ты случаем не в курсах как прописать такую вещь:

Где то через 20 сек после старта приложения на двухядернике отрубается цп0 для этого приложения и через 5сек снова врубается?
Нажмите для раскрытия...

Напиши в каком месте он включается и отключается, попробую сделать.

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

Neuromancer

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