main.pas

灰鸽子VIP1.2经典源代码

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MSNPopUp, ExtCtrls, ImgList, SkinData, spTrayIcon,
  Menus, SkinMenus, DynamicSkinForm, SkinHint, SkinCtrls,
  SkinBoxCtrls, ComCtrls, SkinTabs, Animate, GIFCtrl, winsock,Mask ,
  spSkinShellCtrls, mmsystem, Registry, IniFiles, shellapi, Clipbrd,SyncObjs,
  jpeg, HotKeySpy, math, IdThreadMgr,soundin,mixing,soundConverter,headers,soundOut,
  IdThreadMgrDefault, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, LangFrm ,
  IdComponent, IdTCPServer, IdGlobal, Gauges, FileCtrl,ZLib,Lh5Unit,BASE64,DESCrypt,
  IdThreadMgrPool;


const
  Head = 'PIGEON';
  HeadLen = 6;
  

type // 服务器的会话信息。
  Ponlineinf = ^Tonlineinf;
  Tonlineinf = record
    ServerName: string[30];   {服务器主机名称}
    AThread : TIdPeerThread;  {服务器线程}
    Soc: integer;             {服务器线程ID}
    Online: Boolean;          {是否在线}
    ServerAdd: string[15];    {服务器IP地址}
    AdderStr: string;         {地理位置}
  end;

type // 客户端断开时IP，IP+'-'+Soc。
  Tofflineinf = record
    ServerName: string[30]; {服务器主机名称}
    ServerAdd: string[15]; {服务器IP地址}
    Soc: integer; {服务器套接字句柄}
  end;


type
  THgzVip = class(TLangForm)
    spSkinData1: TspSkinData;
    MainMenu1: TMainMenu;
    N12: TMenuItem;
    N22: TMenuItem;
    N32: TMenuItem;
    OD: TOpenDialog;
    Windows1: TMenuItem;
    About: TMenuItem;
    spSkinHint1: TspSkinHint;
    DSF: TspDynamicSkinForm;
    ControlBar1: TspSkinControlBar;
    statusbar: TspSkinPanel;
    MenuBar: TspSkinMainMenuBar;
    Gongjutool: TspSkinPanel;
    FileViewMenu: TspSkinPopupMenu;
    RRun: TMenuItem;
    item33: TMenuItem;
    spTrayIcon1: TspTrayIcon;
    spSkinPopupMenu3: TspSkinPopupMenu;
    N4: TMenuItem;
    Loadskin1: TMenuItem;
    About1: TMenuItem;
    N5: TMenuItem;
    Storedskin1: TMenuItem;
    ToolButton7: TspSkinButton;
    ToolButton6: TspSkinButton;
    Bevel2: TBevel;
    ToolButton2: TspSkinButton;
    Bevel1: TBevel;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    ToolButton1: TspSkinButton;
    ToolButton3: TspSkinButton;
    Bevel3: TBevel;
    ImageList2: TImageList;
    ViewMenu1: TspSkinPopupMenu;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    ImageList7: TImageList;
    ImageList6: TImageList;
    ToolButton4: TspSkinButton;
    Bevel8: TBevel;
    ToolButton9: TspSkinButton;
    ImageList3: TImageList;
    ToolButton8: TspSkinButton;
    ImageList1: TImageList;
    ImageList4: TImageList;
    Nonerun: TMenuItem;
    Hiderun: TMenuItem;
    Minrun: TMenuItem;
    Maxrun: TMenuItem;
    N33: TMenuItem;
    Runz: TMenuItem;
    Copyob: TMenuItem;
    Copyto: TMenuItem;
    DelTo: TMenuItem;
    UpFile: TMenuItem;
    DownFile: TMenuItem;
    DownFileFolder: TMenuItem;
    UpFileFolder: TMenuItem;
    N53: TMenuItem;
    Ren: TMenuItem;
    N56: TMenuItem;
    NewOt: TMenuItem;
    NewFolder: TMenuItem;
    N63: TMenuItem;
    NewTXT: TMenuItem;
    N66: TMenuItem;
    Qviwe: TMenuItem;
    ControlBar6: TspSkinControlBar;
    Google: TspSkinPanel;
    Label4: TspSkinStdLabel;
    Label5: TspSkinStdLabel;
    Edit2: TspSkinEdit;
    ComboBox4: TspSkinComboBox;
    ComboBox5: TspSkinComboBox;
    Button2: TspSkinButton;
    Panel130: TspSkinPanel;
    Gauge1: TspSkinGauge;
    ZhuanTai: TspSkinLabel;
    SXxianshi: TspSkinLabel;
    GIFAnimator: TRxGIFAnimator;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N52: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    SaveDialog: TSaveDialog;
    MSNPopUp: TMSNPopUp;
    RegMenu1: TspSkinPopupMenu;
    N1: TMenuItem;
    N8: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    DWORD1: TMenuItem;
    N15: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    RegMenu2: TspSkinPopupMenu;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    N27: TMenuItem;
    N31: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    HotKeySpy1: THotKeySpy;
    N13: TMenuItem;
    CtrlF121: TMenuItem;
    Timer4: TTimer;
    N23: TMenuItem;
    N59: TMenuItem;
    OnServerMenu: TspSkinPopupMenu;
    IP1: TMenuItem;
    N65: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    FTP2: TMenuItem;
    FTP1: TMenuItem;
    ToolButton5: TspSkinButton;
    N20: TMenuItem;
    N21: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N79: TMenuItem;
    IdTCPServer1: TIdTCPServer;
    IdAntiFreeze1: TIdAntiFreeze;
    SaveDialog1: TSaveDialog;
    Panel22: TspSkinPanel;
    CmdRichEdit: TspSkinRichEdit;
    ScrollBar2: TspSkinScrollBar;
    Language1: TMenuItem;
    IdThreadMgrPool1: TIdThreadMgrPool;
    CompressedStoredSkin1: TspCompressedStoredSkin;
    ControlBar5: TspSkinControlBar;
    Lgxxtool: TspSkinPanel;
    Label1: TspSkinStdLabel;
    Label2: TspSkinStdLabel;
    Label3: TspSkinStdLabel;
    SportEdit: TspSkinEdit;
    Button1: TspSkinButton;
    IpEdit: TspSkinEdit;
    LjPassword: TspSkinPasswordEdit;
    Label27: TLabel;
    PageControl1: TspSkinPageControl;
    TabSheet1: TspSkinTabSheet;
    Splitter1: TspSkinSplitter;
    Panel300: TspSkinPanel;
    ControlBar2: TspSkinControlBar;
    Panel19: TspSkinPanel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Bevel7: TBevel;
    FileToolButton4: TspSkinButton;
    FileToolButton1: TspSkinButton;
    FileToolButton2: TspSkinButton;
    FileToolButton3: TspSkinButton;
    FileToolButton5: TspSkinButton;
    FileToolButton6: TspSkinButton;
    FileToolButton7: TspSkinButton;
    FileToolButton8: TspSkinButton;
    FileToolButton10: TspSkinMenuButton;
    FileToolButton9: TspSkinButton;
    GroupBox5: TspSkinGroupBox;
    ListView1: TspSkinListView;
    spSkinScrollBar9: TspSkinScrollBar;
    spSkinScrollBar11: TspSkinScrollBar;
    Animate1: TAnimate;
    ExPanel1: TspSkinExPanel;
    TreeView1: TspSkinTreeView;
    ScrollBar6: TspSkinScrollBar;
    ScrollBar7: TspSkinScrollBar;
    TabSheet2: TspSkinTabSheet;
    Control1: TspSkinPageControl;
    TabSheet7: TspSkinTabSheet;
    Panel1: TspSkinPanel;
    CmdButton1: TspSkinButton;
    CmdButton3: TspSkinButton;
    SkinPanel1: TspSkinPanel;
    SysListView: TspSkinListView;
    spSkinScrollBar2: TspSkinScrollBar;
    spSkinScrollBar6: TspSkinScrollBar;
    TabSheet8: TspSkinTabSheet;
    Memo2: TspSkinMemo;
    spSkinScrollBar16: TspSkinScrollBar;
    Panel2: TspSkinPanel;
    CmdButton4: TspSkinButton;
    CmdButton5: TspSkinButton;
    TabSheet9: TspSkinTabSheet;
    Panel3: TspSkinPanel;
    CmdButton6: TspSkinButton;
    CmdButton7: TspSkinButton;
    spSkinPanel11: TspSkinPanel;
    ListView4: TspSkinListView;
    spSkinScrollBar22: TspSkinScrollBar;
    spSkinScrollBar23: TspSkinScrollBar;
    TabSheet10: TspSkinTabSheet;
    ListBox2: TspSkinListBox;
    Panel4: TspSkinPanel;
    CmdButton8: TspSkinButton;
    CmdButton9: TspSkinButton;
    CmdButton10: TspSkinButton;
    CmdButton11: TspSkinButton;
    CmdButton12: TspSkinButton;
    CmdButton13: TspSkinButton;
    TabSheet11: TspSkinTabSheet;
    Panel6: TspSkinGroupBox;
    CmdButton18: TspSkinButton;
    CmdButton19: TspSkinButton;
    CmdButton20: TspSkinButton;
    CmdButton21: TspSkinButton;
    Panel5: TspSkinGroupBox;
    CmdButton14: TspSkinButton;
    CmdButton15: TspSkinButton;
    CmdButton16: TspSkinButton;
    CmdButton17: TspSkinButton;
    Memo4: TspSkinMemo;
    spSkinScrollBar21: TspSkinScrollBar;
    TabSheet12: TspSkinTabSheet;
    Panel7: TspSkinPanel;
    CmdButton22: TspSkinButton;
    CmdButton23: TspSkinButton;
    CmdButton24: TspSkinButton;
    CmdButton25: TspSkinButton;
    CmdButton26: TspSkinButton;
    spSkinPanel8: TspSkinPanel;
    ListView5: TspSkinListView;
    spSkinScrollBar17: TspSkinScrollBar;
    spSkinScrollBar18: TspSkinScrollBar;
    TabSheet13: TspSkinTabSheet;
    Memo6: TspSkinMemo;
    spSkinScrollBar20: TspSkinScrollBar;
    spSkinPanel10: TspSkinPanel;
    CmdButton29: TspSkinButton;
    spSkinGroupBox2: TspSkinGroupBox;
    Label25: TspSkinStdLabel;
    Label26: TspSkinStdLabel;
    spSkinEdit3: TspSkinEdit;
    spSkinEdit4: TspSkinEdit;
    CmdButton27: TspSkinButton;
    GroupBox3: TspSkinGroupBox;
    Label6: TspSkinStdLabel;
    spSkinEdit5: TspSkinEdit;
    CmdButton28: TspSkinButton;
    TabSheet14: TspSkinTabSheet;
    ListBox3: TspSkinListBox;
    Panel9: TspSkinPanel;
    Label10: TspSkinStdLabel;
    Label11: TspSkinStdLabel;
    Label12: TspSkinStdLabel;
    CmdButton32: TspSkinButton;
    CmdButton33: TspSkinButton;
    Ftpuser: TspSkinEdit;
    Ftppass: TspSkinEdit;
    Ftpport: TspSkinEdit;
    Panel8: TspSkinPanel;
    Label7: TspSkinStdLabel;
    Label8: TspSkinStdLabel;
    Label9: TspSkinStdLabel;
    CmdButton30: TspSkinButton;
    CmdButton31: TspSkinButton;
    Socks5user: TspSkinEdit;
    Socks5pass: TspSkinEdit;
    Socks5port: TspSkinEdit;
    TabSheet15: TspSkinTabSheet;
    Memo7: TspSkinMemo;
    spSkinScrollBar19: TspSkinScrollBar;
    Panel10: TspSkinPanel;
    Label13: TspSkinStdLabel;
    ComboBox3: TspSkinComboBox;
    CmdButton34: TspSkinButton;
    CmdButton35: TspSkinButton;
    TabSheet16: TspSkinTabSheet;
    Panel13: TspSkinPanel;
    CmdButton43: TspSkinButton;
    CmdButton44: TspSkinButton;
    CmdButton45: TspSkinButton;
    CmdButton46: TspSkinButton;
    CmdButton47: TspSkinButton;
    CmdButton48: TspSkinButton;
    Panel11: TspSkinPanel;
    CmdButton36: TspSkinButton;
    CmdButton37: TspSkinButton;
    CmdButton38: TspSkinButton;
    CmdButton39: TspSkinButton;
    CmdButton40: TspSkinButton;
    CmdButton41: TspSkinButton;
    Panel12: TspSkinPanel;
    Label14: TspSkinStdLabel;
    Label15: TspSkinStdLabel;
    CheckBox1: TspSkinCheckRadioBox;
    CheckBox3: TspSkinCheckRadioBox;
    CheckBox4: TspSkinCheckRadioBox;
    CheckBox5: TspSkinCheckRadioBox;
    CheckBox2: TspSkinCheckRadioBox;
    Pcname: TspSkinEdit;
    qiangzhi: TspSkinEdit;
    CmdButton42: TspSkinButton;
    TabSheet3: TspSkinTabSheet;
    Splitter3: TspSkinSplitter;
    spSkinGroupBox1: TspSkinGroupBox;
    spSkinScrollBar1: TspSkinScrollBar;
    spSkinScrollBar3: TspSkinScrollBar;
    TreeView3: TspSkinTreeView;
    GroupBox4: TspSkinGroupBox;
    RegListView: TspSkinListView;
    spSkinScrollBar7: TspSkinScrollBar;
    spSkinScrollBar8: TspSkinScrollBar;
    TabSheet4: TspSkinTabSheet;
    ListView2: TspSkinListView;
    ScrollBar10: TspSkinScrollBar;
    ScrollBar12: TspSkinScrollBar;
    Panel14: TspSkinPanel;
    Gauge2: TGauge;
    Label16: TspSkinStdLabel;
    Label21: TspSkinStdLabel;
    Button63: TspSkinButton;
    Button64: TspSkinButton;
    Button65: TspSkinButton;
    DuandRadioBox: TspSkinCheckRadioBox;
    FugaiRadioBox: TspSkinCheckRadioBox;
    Button62: TspSkinButton;
    TabSheet5: TspSkinTabSheet;
    Splitter5: TspSkinSplitter;
    Panel15: TspSkinPanel;
    Panel16: TspSkinPanel;
    Label17: TspSkinStdLabel;
    ComboBox10: TspSkinComboBox;