第一、去掉迅雷每日资讯
打开配置对话框（【工具】-->【配置】），将消息提示中的“显示每日资讯”前的对勾去掉
第二、去除左侧的插件栏
打开（用记事本打开） X:\Program Files\Thunder\Program\ThunderUI.xml，清空顶部GUIToolBoxItems部分, 可以去除左侧的插件栏. 注意不要弄坏xml结构.
警告：修改之前备份ThunderUI.xml文件，否则要重装迅雷。
--------------------------
注：
[X]代表迅雷的安装目录盘符
--------------------------
第三、非会员免费使用会员皮肤
假设你的迅雷安装目录是X:\Program Files\Thunder, 那么所有皮肤都存储在X:\Program Files\Thunder\Skin2.打开这个文件夹, 并随便选择一款皮肤. 如"red"对应的是"火焰之息(会员)". 打开目录中的package.ini.
文件类似这样:
[config]
name=red
showname=火焰之息(会员)
description=2red
author=迅雷网络
vip=1
只需要把vip=1改成vip=0就可以了. 在迅雷皮肤菜单可以立即更换, 不需重启。另外一款会员皮肤同理.
第四、去除主界面广告
打开（用记事本打开） X:\Program Files\Thunder\Program\ThunderUI.xml.
找到这一行<Site Type="Function" Name="GDET.Function.AD">
将这个部分改为
<Site Type="Function" Name="GDET.Function.AD">
<POSITION Left="0" Top="0" width="GDET.MainFrame.Width" height="0"></POSITION>
<Frame. FrameWidth="0,0,0,0" Type="WideFrame" Color="xuncard"></Frame>
</Site>
也就是将加粗部分的height值改为0即可.
第五、防止后台下载广告
打开X:\Program Files\Thunder\Components\Streamer.
打开（记事本打开）streamer.xml, 将里面的true改为false.
删除AD文件夹和其余两个xml文件, 将整个文件夹开启"只读"属性.
第六、迅开启VIP会员 （开启VIP功能后可以手动关闭广告）
1. 打开如下目录
[X]:\Program Files\Thunder\Profiles\users\[UserName]\
--------------------------
注：
[X]代表迅雷的安装目录盘符，
[UserName]代表你的迅雷帐号昵称.
请按照实际情况修改本路径。
-----------------------------
2. 看一下该目录下是否有“vipsettings.ini”文件，没有就新建一个。
3. 向文件里输入如下内容：
[VIP_SETTING]
THUNDER_MINISITE=0
SKIN_TYPE=1
SKIN_NAME=default
FIRST_LOGIN=0
MAIN_AD=0
NEW_TASK_PANEL_AD=0
XUNLEI_TIP=0
WELCOME_PANEL=0
VIP_CFG_SYNCHRO=0
---------------------------
注：
[VIP_SETTING]
THUNDER_MINISITE=0 //迅雷资讯，1是开启，0是关闭
SKIN_TYPE=1 //皮肤类型，有两类，非别是1和2，2是会员皮肤
SKIN_NAME=default //皮肤名，可以在skin和skin2目录下查看，如果不用我的VIP补丁，这两个参数即使设置适用会员皮肤了也是没用的。
FIRST_LOGIN=0
MAIN_AD=0 //主界面广告，1是开启，0是关闭
NEW_TASK_PANEL_AD=0 //新建面板广告，1是开启，0是关闭
XUNLEI_TIP=0 //影视快讯，1是开启，0是关闭
WELCOME_PANEL=0 //欢迎界面，好像是会员有效的。
VIP_CFG_SYNCHRO=0
---------------------------
七、关闭ThunderMinisite进程
后台打开迅雷后发现多一个广告进程，ThunderMinisite，而且总是占据你的电脑右下角，常常弹出一些关于游戏的广告，很是讨厌。如何关闭它呢？怎么说平时不用也占用7000KB的内存，实在可惜。顺藤摸瓜我发现程序的根目录底下ThunderMinisite在线面路径中。
X:\Program Files\Thunder Network\Thunder\Components\InMedia\ThunderMinisite.exe (X为安装程序的盘符)
1.将文件后缀名显示，如果您只能看到ThunderMinisite而看不到ThunderMinisite.exe那说明您没有显示。打开我的电脑，在上面菜单中选择工具-文件夹选项-查看，拖动滚动条找到“隐藏已知文件类型的扩展名”选项，将勾选去掉。
2.进入X:\Program Files\Thunder Network\Thunder\Components\InMedia\ 路径，将ThunderMinisite.exe 删去后，在原目录建立一个文件，命名为ThunderMinisite.exe,并修改其属性为只读。
其他：
找到X:\Thunder Network\Thunder\Components\Streamer文件夹。找到adhistory2.xml，用记事本等工具打开，删除里面所有的文字，保存一个空的文件。然后在该文件属性里面，设为“只读”属性就可以了。
2.禁止底部的文字广告
找到X:\Thunder Network\Thunder\Components\Streamer文件夹。找到adtask2.xml，用记事本等工具打开，删除里面所有的文字，保存一个空的文件。然后在该文件属性里面，设为“只读”属性就可以了。
3.清除弹出广告
找 到X:\Thunder Network\Thunder\Components\Tips文件夹。找到TipsExtend.exe，删除掉，新建一个记事本，并把记事本文件命 名为TipsExtend.exe就行了。提示：建好的文件必须命名为TipsExtend.exe，挂扩展名的文件。就行了。
BY:青色咖啡 http://Blog.t522.com 极点博客
第一步：根据需要，用FrontPage或者Dreamweaver做一个界面，界面加上图片，还可加上漂亮的动态Flash。Web界面与程序事件联系
<1>
<%
语句
……
%>
<2>定义变量dim语句
<%
dim a,b
a=10
b=”ok!”
%>
注意：定义的变量可以是数值型，也可以是字符或者其他类型的
<3>简单的控制流程语句
1. If 条件1 then
语句1
elseif 条件2 then
语句2
else
语句3
endif
2.while 条件
语句
wend
3.for count=1 to n step m
语句1
exit for
语句2
next
二.ASP数据库简单*作教程
<1>.数据库连接(用来单独编制连接文件conn.asp)
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bbs\db1\user.mdb")
%>
(用来连接bbs\db1\目录下的user.mdb数据库)
<2>显示数据库记录
原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录
如果是从头到尾：用循环并判断指针是否到末 使用: not rs.eof
如果是从尾到头：用循环并判断指针是否到开始 使用：not rs.bof
<!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
<%
set rs=server.CreateObject("adodb.recordset") (建立recordset对象)
sqlstr="select * from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
rs.movefirst ---->(将指针移到第一条记录)
while not rs.eof ---->(判断指针是否到末尾)
response.write(rs("name")) ---->(显示数据表message中的name字段)
rs.movenext ---->(将指针移动到下一条记录)
wend ---->(循环结束)
------------------------------------------------------
rs.close
conn.close 这几句是用来关闭数据库
set rs=nothing
set conn=nothing
-------------------------------------------------------
%>
其中response对象是服务器向客户端浏览器发送的信息
<3>增加数据库记录
增加数据库记录用到rs.addnew,rs.update两个函数
<!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
<%
set rs=server.CreateObject("adodb.recordset") (建立recordset对象)
sqlstr="select * from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
rs.addnew 新增加一条记录
rs("name")="xx" 将xx的值传给name字段
rs.update 刷新数据库
------------------------------------------------------
rs.close
conn.close 这几句是用来关闭数据库
set rs=nothing
set conn=nothing
-------------------------------------------------------
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
阅读全文
无聊中，做了个小东西，给需要的朋友》》》》》》》》》》》》》》》》》》》》
QQ状态查询，查询任意QQ是否在线及强聊。具体下载看。
下载文件 (已下载 505 次)