用DELPHI给OICQ动手术(一)
来源:互联网 发布:淘宝店招尺寸像素 编辑:程序博客网 时间:2024/05/22 16:05
http://www.tongyi.net
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>本文介绍了如何通过DELPHI的文件操作来去掉广告、屏蔽腾讯浏览器。
以OICQ2000b BUILD 0110为例,仔细分析OICQ的工作原理,可以发现,OICQ的“发送消息”窗口中的广告都保存在OICQ安装目录下的AD文件夹中,均为GIF格式的图片。当AD文件夹中的文件不存在时,OICQ调用DAT文件夹中的GIF图片,然后下载广告图片并保存在AD文件夹中,以备调用。至于腾讯浏览器,可以用微软浏览器替换回来(假定当前浏览器为微软的IE浏览器)。
明白了这些以后,就可以自己动手利用DELPHI的文件操作,来去掉广告、屏蔽腾讯浏览器了。
如图,启动DELPHI,新建工程,在FORM上放置如下控件:关于去掉广告条,设想是先读取AD文件夹下所有GIF格式的文件,然后用一透明的小GIF图片替换,同时替换掉DAT文件夹下的GIF文件。程序实现如下:
procedure TForm1.Del_adClick(Sender: TObject);
var
SearchRec : TsearchRec;
SList: Tstringlist;
Dir, SDir :string;
i, FindResult : integer;
begin
Dir := edit1.Text; //OICQ的安装路径
SList := Tstringlist.Create; //用于保存文件列表
//判断OICQ安装路径是否正确
if not fileexists(edit1.text + 'OICQ.exe') then
begin
application.MessageBox('路径不正确,请重新选择!',
'请重新选择',0);
exit;
end;
//判断路径字符串的结束符是否为“”,不是就加上“”
if Dir[length(dir)] <> '' then
Dir := Dir + '';
Dir := Dir + 'AD';
//查找该文件夹下第一个GIF文件,文件名保存在SearchRec,
//返回结果保存在FindResult中
FindResult := FindFirst(Dir + '*.gif',FaAnyFile,SearchRec);
try
while FindResult = 0 do //查找成功
begin
//在列表中加入文件名
sList.Add(lowercase(Dir + SearchRec.name));
//继续查找下一个符合条件的文件
FindResult := FindNext(SearchRec);
end;
- 用DELPHI给OICQ动手术(一)
- 用DELPHI给OICQ动手术(二)
- 支持oicq头像的留言簿(一)
- CEGUIEditBox : 获得准确的字符长度,看我给CEGUIEditBox动手术
- 用PHP判断oicq是否在线的小程序
- 南宁脱肛动手术费用
- delphi 一
- 该不该动手术校正近视?
- delphi 怎么将webbrowser的cookie给idhttp用
- delphi 将webbrowser的cookie给idhttp用
- delphi 获取webbrowser的cookies给Idhttp用
- OICQ 发送 ZT
- OICQ上“我爱你”实验
- 追捕oicq探测技术
- oicq通讯协议
- 用Delphi编写CGI程序(一)
- 给Delphi社群的公开信
- 给Delphi社群的公开信
- 两分钟做个xhtmlcss的网站首页
- 非阻塞方式下Socket读取数据的一个例子
- Oracle数据库取消8080端口占用
- 网页标准学习:标准的N种死法
- linux 下挂载磁盘阵列
- 用DELPHI给OICQ动手术(一)
- 项目开始做了.....CRM系统...
- 网页特效之让css使网页图片半透明
- ORACLE优化器
- 农大项目(Linux 条件准备 xmanager,scp)
- Delphi编程技巧实例
- C#连接Oracle
- CSS:利用相对定位及偏移量做精美输入界面
- 异构数据库之间的导入导出