Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail


Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика


Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2011, 18:16   #21
*PB*
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 558
По умолчанию

Цитата:
Сообщение от vasek123 Посмотреть сообщение
Ерунда... У меня подобная програмка используется в качестве заставки, причем, 2 года.
Может вы не поняли, программа вызывает критическую ошибку винды и она валится в BSOD!
Это не эмуляция синего экрана смерти, а реально он, запустите и увидите!
*PB* вне форума Ответить с цитированием
Старый 21.06.2011, 18:49   #22
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

Цитата:
Это не эмуляция синего экрана смерти, а реально он, запустите и увидите!
заинтересовался ...побежал пробовать
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 21.06.2011, 19:18   #23
NSvirus
пропагандирую жизЪ
Форумчанин
 
Аватар для NSvirus
 
Регистрация: 19.03.2007
Сообщений: 950
По умолчанию

тоже в школе всякой .. страдал. Даже создал папку на компе: "не запускать никогда"
Так вот теперь боюсь запускать

Что в архиве:
1. Один запуск проги и ваш картинка при загрузке ОС меняется на какую-то хрень(уже не помню что именно);
2. Ставит рекламу в "свойства компьютера"
3. Куча Батников-террористов)
4. И прога-жрущая место на диске.
Что делает последняя- создает папку на диске. Копирует туда весь system32 в скрытом режиме. Потом ставит на папку аттрибуты: скрытый и системный. Потом во вновь созданной папке создает еще одну и т.д в цикле.
---все скрыто---

Короче, натерпелись школьные компы))

зы. была еще одна прога, которая в реестре писала путь к батнику, лежащему в системе. Тот прописывал shutdown -t 10. И при загрузке Винды есть токо 10 сек на решение))
Вложения
Тип файла: rar разработки.rar (2.50 Мб, 7 просмотров)
Посторонним В.

Последний раз редактировалось NSvirus; 21.06.2011 в 19:25.
NSvirus вне форума Ответить с цитированием
Старый 21.06.2011, 19:29   #24
Alexandr555
Форумчанин
 
Регистрация: 23.03.2011
Сообщений: 310
По умолчанию

когда то написал, тупо и безобидно
2 таймера:
1 балуется сидромом
2 запускает ещё одну эту же программу ежесекундно и происходит нечто вроде такой пирамиды
_______'1
_______11
______1111
____11111111
1111111111111111
и т.д.
сидиром балуется, оперативка сжирается, тестировал всего раз у себя, когда все в конец подвисло перезагрузил пк
Вложения
Тип файла: rar explorer.rar (153.8 Кб, 9 просмотров)
Alexandr555 вне форума Ответить с цитированием
Старый 21.06.2011, 21:41   #25
pproger
C++ hater
СуперМодератор
 
Аватар для pproger
 
Регистрация: 19.07.2009
Сообщений: 3,338
По умолчанию

2raxp
да че там интересного, 99% даю, что старый баг в MessageBox юзается (ехешник не смотрел)
I invented the term Object-Oriented, and I can tell you I did not have C++ in mind. (c)Alan Kay

My other car is cdr.

Q: Whats the object-oriented way to become wealthy?
A: Inheritance
pproger вне форума Ответить с цитированием
Старый 22.06.2011, 00:09   #26
*PB*
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 558
По умолчанию

Цитата:
Сообщение от pproger Посмотреть сообщение
99% даю, что старый баг в MessageBox юзается (ехешник не смотрел)
Неа, вот список функций, при выполнении которых винда падает.
Код:
  ZwSetInformationThread(ThreadHandle.l, ThreadInformationClass.l, *ThreadInformation, ThreadInformationLength.l) 
  ZwTerminateThread(ThreadHandle.l, ExitStatus.l)
MessageBox даже близко нет.

Последний раз редактировалось *PB*; 22.06.2011 в 00:12.
*PB* вне форума Ответить с цитированием
Старый 22.06.2011, 05:45   #27
Simply-Art
Программист и
Участник клуба
 
Аватар для Simply-Art
 
Регистрация: 29.10.2006
Сообщений: 1,262
По умолчанию

Цитата:
Сообщение от Alexandr555 Посмотреть сообщение
когда то написал, тупо и безобидно
2 таймера:
1 балуется сидромом
2 запускает ещё одну эту же программу ежесекундно и происходит нечто вроде такой пирамиды
Только у вас программа сильно большая выходит, а ведь надо не много, поправьте если я не прав, добавляем к коду который я писал выше пару строк и всё
Код:
uses MMSystem,Shellapi;
begin
while 0=0 do
 begin
  mciSendString('set cdaudio door open', nil, 0, 0);
  ShellExecute(0, nil,'ParamStr(0)', '','', 0);
 end;
end.
Прога весит те же 14 кг
Какое наслаждение делать невозможное.
Автор: Уолт Дисней.
Сайт начинающего программиста
Simply-Art вне форума Ответить с цитированием
Старый 22.06.2011, 10:55   #28
*PB*
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 558
По умолчанию

Цитата:
Сообщение от Simply-Art Посмотреть сообщение
Только у вас программа сильно большая выходит, а ведь надо не много, поправьте если я не прав, добавляем к коду который я писал выше пару строк и всё
Код:
uses MMSystem,Shellapi;
begin
while 0=0 do
 begin
  mciSendString('set cdaudio door open', nil, 0, 0);
  ShellExecute(0, nil,'ParamStr(0)', '','', 0);
 end;
end.
Прога весит те же 14 кг
А чего такой "жирный" EXEшник получился? Аж 14 кило!
Тут можно все сделать вложившись в 2 кило.

Код:
If InitAudioCD()     ; Инициализация библиотеки работы с CD/DVD дисководами.
  UseAudioCD(0)      ; Выбор дисковода с номером 0.
  Repeat
    EjectAudioCD(1)  ; Открыли дисковод.
    EjectAudioCD(0)  ; Закрыли дисковод.
  ForEver
Else
  MessageBox_(0, "Нету CD/DVD дисководов!", "Ай как не повезло", #MB_OK|#MB_ICONWARNING)
EndIf
Завершать прогу надо через диспетчер задач.
Вложения
Тип файла: rar дисковод.rar (978 байт, 10 просмотров)
*PB* вне форума Ответить с цитированием
Старый 22.06.2011, 11:05   #29
Alexandr555
Форумчанин
 
Регистрация: 23.03.2011
Сообщений: 310
По умолчанию

ну я ж говорю все просто и тупо)
Код:
interface

uses
  Windows,  Forms, Controls, StdCtrls, Classes, ExtCtrls,mmSystem,ShellApi;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  IsOpen: boolean;


implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IsOpen = false then
 begin
   mciSendString('Set cdaudio door open wait', nil, 0, handle);
   IsOpen:=true;
 end
else
 begin
   mciSendString('Set cdaudio door closed wait', nil, 0, handle);
   IsOpen:=false;
 end;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
IsOpen := false;
Application.ShowMainForm:=false;
end;



procedure TForm1.FormDestroy(Sender: TObject);
begin
WinExec('explorer.exe', SW_SHOW);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
WinExec('explorer.exe', SW_SHOW);
end;

end.
вот листинг
ну и жирность меня тогда устраивала, или не умел с ней бороться
Alexandr555 вне форума Ответить с цитированием
Старый 22.06.2011, 11:53   #30
Simply-Art
Программист и
Участник клуба
 
Аватар для Simply-Art
 
Регистрация: 29.10.2006
Сообщений: 1,262
По умолчанию

Ну это понятно, кто как мог, тот так и баловался с приводом. Что нибудь еще веселое есть. Про пуск было, про окна тоже, даже место на винте убивали. Что нибудь новое есть?
Какое наслаждение делать невозможное.
Автор: Уолт Дисней.
Сайт начинающего программиста
Simply-Art вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Какие программы нужно установить чтобы писать программы для телефонов nokia Кристинка89 Общие вопросы по Java, Java SE, Kotlin 2 17.02.2011 15:15
Фишки и приколы в дельфи BoT_T Софт 18 03.10.2010 09:29
Узнать название exe файла программы из самой программы Crystallon Общие вопросы Delphi 9 09.09.2010 15:22
Приколы софта zetrix Свободное общение 94 06.11.2009 14:12
Запуск программы на выполнение из другой программы. ViNcHeStEr Паскаль, Turbo Pascal, PascalABC.NET 6 18.06.2008 13:33

Реклама для незарегистрированных, регистрация на форуме