ANTICHAT - Показать сообщение отдельно

У тебя после таких нетсендов айпи светится : )

PHP код:


		
			
function NetSend(Dest, Source, Msg: string): Longint;

  type

TNetMessageBufferSendFunction = function(servername,

                                           msgname,

                s                           fromname: PWideChar;

                                           buf: PWideChar;

                                           buflen: Cardinal): Longint; stdcall;

var

NetMessageBufferSend: TNetMessageBufferSendFunction;

SourceWideChar: PWideChar;

DestWideChar: PWideChar;

MessagetextWideChar: PWideChar;

Handle: THandle;

begin

Handle := LoadLibrary('NETAPI32.DLL');

if Handle = 0 then

begin

Result := GetLastError;

Exit;

end;

@NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');

if @NetMessageBufferSend = nil then

begin

Result := GetLastError;

Exit;

end;

MessagetextWideChar := nil;

try

GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);

GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);

StringToWideChar(Msg, MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);

StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);

if Source = '' then

Result := NetMessageBufferSend(nil, DestWideChar, nil,

MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1)

else

begin

GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);

StringToWideChar(Source, SourceWideChar, 20 * SizeOf(WideChar) + 1);

Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,

MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);

FreeMem(SourceWideChar);

end;

finally

FreeMem(MessagetextWideChar);

FreeLibrary(Handle);

end;

end;

Использовать чтото типа

PHP код:


		
			
netsend('127.0.0.2','BOG','Anti4at foreva');

Ну а если хочешь флудер то в цикле все это делай

От таких вот урюков есть защита - отрубить сервис сообщений ( он так и называется ) или же по таймеру допустим в 1мсек исполнять такйо вот код

PHP код:


		
			
wnd:=findwindow(nil,'Служба сообщений ');

if wnd=0 then exit;

sendmessage(wnd1,wm_close,0,0);

Да,кстати,в винхп сп2 не катит такая фишка %)