Кто-нить знает какие есть баги на SEChat 4.0.11 ???
Только вот размер экзешника мне не нраится...Компилировал из исходных текстов - получалось на 20 кб меньше.
братуха, я ж тебя ни в чем не обвиняюну во-1, что было то и вылажил, во-2 я не дурак чтобы вири класть, в-3 флдуер жёсткий.. я кидал 3 ляма соообщения... у меня комп вис
program Projectflood;
{$APPTYPE CONSOLE}
uses SysUtils, Windows, Messages, Controls;
var ButtonWnd:array[1..10] of integer;
i, k, raz, w8:integer;
msg:string;
KeeperWnd:HWND;
begin
if (FindWindow(0, 'SEChat 4.0.11Beta')<>0 ) then
begin
writeln('Sechat naiden....');
KeeperWnd:=FindWindow(0, 'SEChat 4.0.11Beta');
ButtonWnd[1]:=GetWindow(KeeperWnd, gw_Child);
for i:=2 to 7 do
begin
ButtonWnd[i]:= GetWindow(ButtonWnd[i-1],gw_HWNDNext);
end;
writeln('Vvedite Soobschnie'); readln(msg);
writeln('skolko raz ?'); readln(raz);
writeln('c kakoy zaderzhkoi otpravlyaT ? ( 0 - bez zaderzhki) v millesekundax');
readln(w8);
for k:= 1 to raz do begin
SendMessage(buttonWnd[2], WM_SETTEXT ,0, LParam(PCHAR(msg)));
SendMessage(buttonWnd[1], WM_KEYDOWN, VK_RETURN , 0 );
if (w8 > 0) then
sleep(w8)
end;
end
else writeln('sechat ne nayden');
sleep(2000);
end.
есть уже такоеПри наличии желания и прямых рук думаю несложно будет написать и анонимный флудер с левым ником