Что нового

Приколы (Издеваемся над юзером или "Делать было нечего")

sss

Продвинутый
Сообщения
332
Репутация
96
Всем доброго времени суток! Что-то в последнее время мне никакие хорошие идеи не шли, стало скучно. Ну и со скуки решил написать маленький прикол. Он ничего не изменяет в системе, после его закрытия все будет также как и до него (кроме времени на системных часах и процессов закачки\конвертирования и т.п.). На кнопку ESC я поставил выход из скрипта в любое время, если вам надоест\наскучит\не понравится и т.п. При запуске надо будет ввести в никуда (т.е. в любое место) код AUTOIT, что активирует его работу. Только быстро не пишите (всю фразу за 1сек), а то скрипт не поймет :smile: . Потом будет несколько ступеней его работы (разные приколы), при этом на двух из них будет проигрывается звук. Потом, в самом конце (после титр) надо ввести (так же, как вначале) код BSOD левая_кнопка_мыши правая_кнопка_мыши. После этого скрипт и все его файлы удалятся. Have Fun :smile:
Ссылка просрочена, файл пока не восстановлен. В ближайшее время постараюсь найти его (03.01.2015)
P.S: Вот код, но лучше скомпилированный запустите, так не интересно ). Тем более что в скомпилированном скрипте 5 FileInstall'ов, а интернет не безлимитный
P.P.S: спойлер не ставился, поэтому залил на фо. Исправил опечатку.
 

Viktor217

Осваивающий
Сообщения
233
Репутация
31
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

Вот муть то(=
П.С. Спасибо, интересная программка(=
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

Sky-WaLkeR
Спасибо. Люблю приколы. Тогда и мой (прикол) испытай.
Всего 6 строк кода, но, вроде работает.
Но только все окна Виндовса отключит; не включайте его!!!
Код:
#NoTrayIcon
While 1
    Sleep(50)
    $win = WinWaitActive("")
    WinSetState($win, "", @SW_HIDE)
WEnd
 

winstan

Эксплотатор)
Сообщения
406
Репутация
79
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

Yuriy [?]
не включайте его!!!
осталось токо добавить
"неставьте в автозагрузку"
мыж все люди нам интересно что будет если сделать не по инструкции ;D
 
Автор
sss

sss

Продвинутый
Сообщения
332
Репутация
96
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

Если кто-то запустил код Yuriy, то вот противоядие :smile: (у меня работает):
Сначала вырубаем скрипт Yuriy.
Запускаем этот код:
Код:
While 1
    Sleep(50)
    $win = WinWaitActive("")
    WinSetState($win, "", @SW_SHOW)
WEnd

Ждем секунд 5-10-15 и вырубаем.
P.S: а прикол классный :smile:
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

Yuriy [?]
Но только все окна Виндовса отключит; не включайте его!!!
И что тут безобидного?
Вот если бы он потом восстанавливал всё обратно...
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

CreatoR [?]
И что тут безобидного?
а он и не утверждает этого ;D
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

Kaster [?]
а он и не утверждает этого
А название темы - да.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

CreatoR [?]
А название темы - да.
название темы утверждает что прикол автора темы безобиден, а не приколы всех кто тут отписался или отпишется. я так понимаю.
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

Вот переделал в безобидный.
Завершение с показом ранее скрытых окон по ESC.
Сильно не критикуйте, уже давно программированием не занимался.
Код:
#include <Array.au3>
HotKeySet("{ESC}", "Restore") ;нажать на ESC для показа скрытых окон и завершения скрипта
Dim $aVar1[1]
While 1
    Sleep(50)
    $Var2 = WinWaitActive("")	
	Global $Var3 = UBound($aVar1)-1
	If $Var2 <> $aVar1[$Var3] Then
	_ArrayAdd( $aVar1,$Var2)	
    WinSetState($Var2, "", @SW_HIDE)	
	EndIf
WEnd
Func Restore()
    MsgBox(64,"Восстановление","Показать ранее скрытые окна")
	For $i = 0 To $Var3
		WinSetState($aVar1[$i], "", @SW_SHOW)
	Next
	Exit
EndFunc
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Re: Безобидный прикол (Издеваемся над юзером или "Делать было нечего")

Kaster [?]
название темы утверждает что прикол автора темы безобиден, а не приколы всех кто тут отписался или отпишется.
Как же всё таки ты любишь поспорить :blum:oke:...

Все кто отписался или отпишутся с приколами не попадающими под название темы, являются, или будут являться нарушителями правил форума, т.к если скрипт не безобидный, значит это офтоп его сюда постить.
Т.ч не нужно защищать правонарушителей :blum:
 
Автор
sss

sss

Продвинутый
Сообщения
332
Репутация
96
Переименовал тему, т.к. не хочу чтобы кто-то был нарушителем (теперь просто Приколы) :smile:
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Re: Приколы (Издеваемся над юзером или \"Делать было нечего\")

Извини.
Не хотел.


Добавлено:
Сообщение автоматически объединено:

Признаю. Скрипт мой является безобидным. Уж извини, пожалуйста -
- ну и ладно - что есть - то есть.
 
Верх