unit5.pas

由于该木马有三个服务端可以选择生成

unit Unit5;

interface

uses
  Windows, Messages, winsock,SysUtils, Variants,IniFiles, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, ImgList, Menus;

type
  TForm5 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ListView1: TListView;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    ListView2: TListView;
    ListView3: TListView;
    ListView4: TListView;
    ListView5: TListView;
    ListView6: TListView;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    ListView7: TListView;
    ListView8: TListView;
    Label1: TLabel;
    SpeedButton4: TSpeedButton;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses untMain, Unit9, Unit2, Unit11, Unit7;

{$R *.dfm}

procedure TForm5.SpeedButton1Click(Sender: TObject);
var
 url:string;
begin
 url:=inputbox('添加/修改组名','输入完整的分组名称:      ','');
 if url='' then exit;
 pagecontrol1.ActivePage.Caption :=url;
 StatusBar1.Panels[0].text:='组名添加/修改完成.';
end;

procedure TForm5.SpeedButton2Click(Sender: TObject);
var
 i:integer;
 List:TListItem;
begin
 case (pagecontrol1.ActivePageIndex) of
 0:  begin
     Listview1.Clear ;
     for i:=0 to frmmain.sinsrvs.Items.Count-1 do
     begin
     if frmmain.sinsrvs.Items[i].SubItems[9]=tabsheet1.Caption then
     begin
     list:=listview1.Items.Add;
     list.Caption:=frmmain.sinsrvs.Items[i].Caption ;
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[0]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[2]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[3]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[4]);
     end;
     end;
     StatusBar1.Panels[0].text:='刷新列表完成.';
     StatusBar1.Panels[1].text:='当前组名: '+tabsheet1.Caption+
     '   上线数: '+inttostr(listview1.Items.Count);
     end;
 1:  begin
     Listview2.Clear ;
     for i:=0 to frmmain.sinsrvs.Items.Count-1 do
     begin
     if frmmain.sinsrvs.Items[i].SubItems[9]=tabsheet2.Caption then
     begin
     list:=listview2.Items.Add;
     list.Caption:=frmmain.sinsrvs.Items[i].Caption ;
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[0]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[2]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[3]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[4]);
     end;
     end;
     StatusBar1.Panels[0].text:='刷新列表完成.';
     StatusBar1.Panels[1].text:='当前组名: '+tabsheet2.Caption+
     '   上线数: '+inttostr(listview2.Items.Count);
     end;
 2:  begin
     Listview3.Clear ;
     for i:=0 to frmmain.sinsrvs.Items.Count-1 do
     begin
     if frmmain.sinsrvs.Items[i].SubItems[9]=tabsheet3.Caption then
     begin
     list:=listview3.Items.Add;
     list.Caption:=frmmain.sinsrvs.Items[i].Caption ;
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[0]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[2]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[3]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[4]);
     end;
     end;
     StatusBar1.Panels[0].text:='刷新列表完成.';
     StatusBar1.Panels[1].text:='当前组名: '+tabsheet3.Caption+
     '   上线数: '+inttostr(listview3.Items.Count);
     end;
 3:  begin
     Listview4.Clear ;
     for i:=0 to frmmain.sinsrvs.Items.Count-1 do
     begin
     if frmmain.sinsrvs.Items[i].SubItems[9]=tabsheet4.Caption then
     begin
     list:=listview4.Items.Add;
     list.Caption:=frmmain.sinsrvs.Items[i].Caption ;
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[0]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[2]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[3]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[4]);
     end;
     end;
     StatusBar1.Panels[0].text:='刷新列表完成.';
     StatusBar1.Panels[1].text:='当前组名: '+tabsheet4.Caption+
     '   上线数: '+inttostr(listview4.Items.Count);
     end;
 4:  begin
     Listview5.Clear ;
     for i:=0 to frmmain.sinsrvs.Items.Count-1 do
     begin
     if frmmain.sinsrvs.Items[i].SubItems[9]=tabsheet5.Caption then
     begin
     list:=listview5.Items.Add;
     list.Caption:=frmmain.sinsrvs.Items[i].Caption ;
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[0]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[2]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[3]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[4]);
     end;
     end;
     StatusBar1.Panels[0].text:='刷新列表完成.';
     StatusBar1.Panels[1].text:='当前组名: '+tabsheet5.Caption+
     '   上线数: '+inttostr(listview5.Items.Count);
     end;
 5:  begin
     Listview6.Clear ;
     for i:=0 to frmmain.sinsrvs.Items.Count-1 do
     begin
     if frmmain.sinsrvs.Items[i].SubItems[9]=tabsheet6.Caption then
     begin
     list:=listview6.Items.Add;
     list.Caption:=frmmain.sinsrvs.Items[i].Caption ;
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[0]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[2]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[3]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[4]);
     end;
     end;
     StatusBar1.Panels[0].text:='刷新列表完成.';
     StatusBar1.Panels[1].text:='当前组名: '+tabsheet6.Caption+
     '   上线数: '+inttostr(listview6.Items.Count);
     end;
 6:  begin
     Listview7.Clear ;
     for i:=0 to frmmain.sinsrvs.Items.Count-1 do
     begin
     if frmmain.sinsrvs.Items[i].SubItems[9]=tabsheet7.Caption then
     begin
     list:=listview7.Items.Add;
     list.Caption:=frmmain.sinsrvs.Items[i].Caption ;
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[0]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[2]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[3]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[4]);
     end;
     end;
     StatusBar1.Panels[0].text:='刷新列表完成.';
     StatusBar1.Panels[1].text:='当前组名: '+tabsheet7.Caption+
     '   上线数: '+inttostr(listview7.Items.Count);
     end;
 7:  begin
     Listview8.Clear ;
     for i:=0 to frmmain.sinsrvs.Items.Count-1 do
     begin
     if frmmain.sinsrvs.Items[i].SubItems[9]=tabsheet8.Caption then
     begin
     list:=listview8.Items.Add;
     list.Caption:=frmmain.sinsrvs.Items[i].Caption ;
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[0]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[2]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[3]);
     list.SubItems.Add(frmmain.sinsrvs.Items[i].SubItems[4]);
     end;
     end;
     StatusBar1.Panels[0].text:='刷新列表完成.';
     StatusBar1.Panels[1].text:='当前组名: '+tabsheet8.Caption+
     '   上线数: '+inttostr(listview8.Items.Count);
     end;
  end;
end;
procedure TForm5.SpeedButton3Click(Sender: TObject);
var
 myinifile:Tinifile;
begin
 if MessageBox(0,'为了方便下次操作,是否保存现有组名?','提示',MB_YESNO)=6 then
 begin
 myinifile:=Tinifile.create(ExtractFilePath(Paramstr(0))+'sound\gp.ini');
 myinifile.writestring('gp','1',tabsheet1.Caption);
 myinifile.writestring('gp','2',tabsheet2.Caption);
 myinifile.writestring('gp','3',tabsheet3.Caption);
 myinifile.writestring('gp','4',tabsheet4.Caption);
 myinifile.writestring('gp','5',tabsheet5.Caption);
 myinifile.writestring('gp','6',tabsheet6.Caption);
 myinifile.writestring('gp','7',tabsheet7.Caption);
 myinifile.writestring('gp','8',tabsheet8.Caption);
 StatusBar1.Panels[0].text:='现有组名保存完毕.';
 end;
end;

procedure TForm5.PageControl1Change(Sender: TObject);
begin
 StatusBar1.Panels[0].text:='......';
 case (pagecontrol1.ActivePageIndex) of
 0: StatusBar1.Panels[1].text:='当前组名: '+tabsheet1.Caption+
     '   上线数: '+inttostr(listview1.Items.Count);
 1: StatusBar1.Panels[1].text:='当前组名: '+tabsheet2.Caption+
     '   上线数: '+inttostr(listview2.Items.Count);
 2: StatusBar1.Panels[1].text:='当前组名: '+tabsheet3.Caption+
     '   上线数: '+inttostr(listview3.Items.Count);
 3: StatusBar1.Panels[1].text:='当前组名: '+tabsheet4.Caption+
     '   上线数: '+inttostr(listview4.Items.Count);
 4: StatusBar1.Panels[1].text:='当前组名: '+tabsheet5.Caption+
     '   上线数: '+inttostr(listview5.Items.Count);
 5: StatusBar1.Panels[1].text:='当前组名: '+tabsheet6.Caption+
     '   上线数: '+inttostr(listview6.Items.Count);
 6: StatusBar1.Panels[1].text:='当前组名: '+tabsheet7.Caption+
     '   上线数: '+inttostr(listview7.Items.Count);
 7: StatusBar1.Panels[1].text:='当前组名: '+tabsheet8.Caption+
     '   上线数: '+inttostr(listview8.Items.Count);
 end;
end;

procedure TForm5.SpeedButton4Click(Sender: TObject);
begin
 close;
end;

procedure TForm5.N1Click(Sender: TObject);
begin
 case (pagecontrol1.ActivePageIndex) of
 0: begin
     if listview1.ItemIndex = -1 then exit;
     form9.StatusBar2.Panels[0].text:=listview1.ItemFocused.SubItems[3];
     form9.ListBox1.clear;
     form9.Memo1.Clear;
     form9.Memo2.Clear;
     form9.ListView1.Clear ;
     form9.ListView2.Clear ;
     form9.ListView3.Clear ;
     form9.ListView4.Clear ;
     form9.ListView5.Clear ;
     form9.ListView6.Clear ;
     form9.ListView7.Clear ;
     form9.StatusBar1.Panels[0].text:='';
     form9.listview2.Columns[0].caption:='';
     form9.listview3.Columns[1].caption:='';
     frmmain.edit3.Text:='1';
     form9.TabSheet1.Enabled :=false;
     form9.ShowModal;
    end;
 1: begin
     if listview2.ItemIndex = -1 then exit;
     form9.StatusBar2.Panels[0].text:=listview2.ItemFocused.SubItems[3];
     form9.ListBox1.clear;
     form9.Memo1.Clear;
     form9.Memo2.Clear;
     form9.ListView1.Clear ;
     form9.ListView2.Clear ;
     form9.ListView3.Clear ;
     form9.ListView4.Clear ;
     form9.ListView5.Clear ;
     form9.ListView6.Clear ;
     form9.ListView7.Clear ;
     form9.StatusBar1.Panels[0].text:='';
     form9.listview2.Columns[0].caption:='';
     form9.listview3.Columns[1].caption:='';
     frmmain.edit3.Text:='1';
     form9.TabSheet1.Enabled :=false;
     form9.ShowModal;
    end;
 2: begin
     if listview3.ItemIndex = -1 then exit;
     form9.StatusBar2.Panels[0].text:=listview3.ItemFocused.SubItems[3];
     form9.ListBox1.clear;
     form9.Memo1.Clear;
     form9.Memo2.Clear;
     form9.ListView1.Clear ;
     form9.ListView2.Clear ;
     form9.ListView3.Clear ;
     form9.ListView4.Clear ;
     form9.ListView5.Clear ;
     form9.ListView6.Clear ;
     form9.ListView7.Clear ;
     form9.StatusBar1.Panels[0].text:='';
     form9.listview2.Columns[0].caption:='';
     form9.listview3.Columns[1].caption:='';
     frmmain.edit3.Text:='1';
     form9.TabSheet1.Enabled :=false;
     form9.ShowModal;
    end;
 3: begin
     if listview4.ItemIndex = -1 then exit;
     form9.StatusBar2.Panels[0].text:=listview4.ItemFocused.SubItems[3];
     form9.ListBox1.clear;
     form9.Memo1.Clear;
     form9.Memo2.Clear;
     form9.ListView1.Clear ;
     form9.ListView2.Clear ;
     form9.ListView3.Clear ;
     form9.ListView4.Clear ;
     form9.ListView5.Clear ;
     form9.ListView6.Clear ;
     form9.ListView7.Clear ;
     form9.StatusBar1.Panels[0].text:='';
     form9.listview2.Columns[0].caption:='';
     form9.listview3.Columns[1].caption:='';
     frmmain.edit3.Text:='1';
     form9.TabSheet1.Enabled :=false;
     form9.ShowModal;
    end;
 4: begin
     if listview5.ItemIndex = -1 then exit;
     form9.StatusBar2.Panels[0].text:=listview5.ItemFocused.SubItems[3];
     form9.ListBox1.clear;
     form9.Memo1.Clear;
     form9.Memo2.Clear;
     form9.ListView1.Clear ;
     form9.ListView2.Clear ;
     form9.ListView3.Clear ;
     form9.ListView4.Clear ;
     form9.ListView5.Clear ;
     form9.ListView6.Clear ;
     form9.ListView7.Clear ;
     form9.StatusBar1.Panels[0].text:='';
     form9.listview2.Columns[0].caption:='';
     form9.listview3.Columns[1].caption:='';
     frmmain.edit3.Text:='1';
     form9.TabSheet1.Enabled :=false;
     form9.ShowModal;
    end;
 5: begin
     if listview6.ItemIndex = -1 then exit;
     form9.StatusBar2.Panels[0].text:=listview6.ItemFocused.SubItems[3];
     form9.ListBox1.clear;
     form9.Memo1.Clear;
     form9.Memo2.Clear;
     form9.ListView1.Clear ;
     form9.ListView2.Clear ;
     form9.ListView3.Clear ;
     form9.ListView4.Clear ;
     form9.ListView5.Clear ;
     form9.ListView6.Clear ;
     form9.ListView7.Clear ;
     form9.StatusBar1.Panels[0].text:='';
     form9.listview2.Columns[0].caption:='';
     form9.listview3.Columns[1].caption:='';
     frmmain.edit3.Text:='1';
     form9.TabSheet1.Enabled :=false;
     form9.ShowModal;
    end;
 6: begin
     if listview7.ItemIndex = -1 then exit;
     form9.StatusBar2.Panels[0].text:=listview7.ItemFocused.SubItems[3];
     form9.ListBox1.clear;
     form9.Memo1.Clear;
     form9.Memo2.Clear;
     form9.ListView1.Clear ;
     form9.ListView2.Clear ;
     form9.ListView3.Clear ;
     form9.ListView4.Clear ;
     form9.ListView5.Clear ;
     form9.ListView6.Clear ;
     form9.ListView7.Clear ;
     form9.StatusBar1.Panels[0].text:='';
     form9.listview2.Columns[0].caption:='';
     form9.listview3.Columns[1].caption:='';
     frmmain.edit3.Text:='1';
     form9.TabSheet1.Enabled :=false;
     form9.ShowModal;
    end;
 7: begin
     if listview8.ItemIndex = -1 then exit;
     form9.StatusBar2.Panels[0].text:=listview8.ItemFocused.SubItems[3];
     form9.ListBox1.clear;
     form9.Memo1.Clear;
     form9.Memo2.Clear;
     form9.ListView1.Clear ;
     form9.ListView2.Clear ;
     form9.ListView3.Clear ;
     form9.ListView4.Clear ;
     form9.ListView5.Clear ;