26 四 08 amd_dc_opt.exe
最近很多网友问我启动项里的amd_dc_opt.exe是什么文件,其实这是个AMD的双核CPU优化程序,不是病毒,如果是AMD双核CPU不建议取消它,至于有些电脑装了它启动会蓝屏是因为没有打双核补丁,重新打下双核补丁就OK了.双核补丁下载地址:http://skycn.com/soft/4087.html
26 四 08 清竹虚拟主机管理系统 V3.5
清竹虚拟主机管理系统一直免费,可以说是免费虚拟主机管理系统中最优秀的了.
3.1免费版官方下载地址:http://soft.qzwz.net/ShowSoft.asp?Id=12
3.5免费版还没提供下载
更新内容：
添加IIS禁止IP、禁止文件功能
添加开设主机自定义默认文档功能
添加支付宝接口
更新网银在线4.0接口
添加新网、万网接口
主机控制面板添加用户自定义禁止IP、禁止文件、魔术脚本功能
修复备案管理BUG
修复MSSQL删除有时出错，错误
修复MSSQL容量统计不正确、新增SQL日志容量限制
修复域名更新BUG
修复添加主机产品BUG
添加后台显示所有到期主机用户列表
修复后台显示即将到期主机不正确
添加关闭站点功能，站点关闭后用户将不能通过前台控制面板控制站点
强化后台默认首页功能，新增基本报告、重启服务器功能
修复后台发送邮件BUG
一些细微调整
26 四 08 用VB做个漂亮的进度条
一切都在变，就连进度条这个小东西也在发生着变化，由以往的单色形式变成了现今更加亮丽的过渡色形式甚至更为复杂漂亮的形式，给软件也增添了不少色彩。我在这里要告诉各位制作一种非常简便实用的制作方法：
一、实现原理
采用一个完整的图片来作为进度条，每次当进度条改变时，采用先贴图再用背景色擦去不需显示的一段进度的方法来实现进度条的变化，可实现制作任何复杂美观的进度条。
二、准备工作
首先需准备一个如下图样式的进度条图片（当然你可以做你自己喜欢的样式）。然后在窗体中加入一PictureBox控件，属性设置如下：
AutoSize：True
Appearance：Falt
AutoRedraw：True
ScaleMode: Pixel
Picture：″准备的图片″
再加一辅助控件（只用于保存图片，方便快捷地使用进度条）Image，属性设置如下：
Picture：″准备的图片″
Visible：FALSE
说明：本文所讲的进度条并不是狭义上那种安装程序中常见的仅表示一个事件进程的进度条，而是把那些条形的，表示一个量的大小的图示统称为进度条。以此概念为基础让我们先来看看它的一些用途和类别，然后给出各类进度条的实现。
进度条的用途:
※在一般软件中表示执行进度
※在多媒体播放器中表示音量大小、频率节奏的变化…
※在游戏中表示角色的能量、生命值…
进度条的分类:
由以上用途可知,进度条大体可分为两类
第一类：自动变化的进度条（如安装程序中的进度条）
第二类：可由用户操作的进度条（如音量调节）
以下是两类进度条的代码。
实现第一类的方法：
Const MaxValue = 100
Const MinValue = 0
Dim Gene As Single
Dim ProValue As Single
Sub InitData()
Gene = Picture1.ScaleWidth / (MaxValue － MinValue)
End Sub
Sub SetProBar(value As Single)
Dim X As Single
ProValue = value
If ProValue > MaxValue Then
ProValue = MaxValue
Else
If ProValue < MinValue Then
ProValue = MinValue
End If
End If
Text1.Text = ProValue
X = (ProValue － MinValue) ＊ Gene
With Picture1
Picture1.Picture = Image1.Picture
Picture1.Line (X, 0)－(.ScaleWidth, .ScaleHeight), vbWhite, BF
End With
End Sub
以上是实现第一类进度条的全部代码，它有相当的独立性，不管你准备的进度条有多长，此代码都可无须改变而应用于你的系统中。其中，MAXVALUE、MINVALUE为此进度条所表示的最大最小值，可由实际应用而定。
PROVALUE 为当前的进度值，可由它得到当前值，以便处理。
SETPROBAR 为实际使用的过程，在软件中通过调用此过程来改变进度条的长度。VALUE 的取值为 MINVALUE～MAXVALUEINITDATA 是初始化进度条长度和实际要表示的范围的比例因子，在软件中首先要调用此过程完成初始化工作。
第二类实现方法：
要实现此类进度条，只需在第一类的基础上再加上响应用户操作的部分即可
具体所加代码如下：
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single,Y As Single)
If Button = 1 Then
Picture1_MouseDown Button, Shift, X, Y
End If
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single)
If Button = 1 Then
ProValue = Int(X / Gene ＋ MinValue ＋ 1)
SetProBar ProValue
End If
End Sub
应用示例：
建一工程，然后加入下列控件，并写入所示代码即可。
控件：两个PictureBox，组成控件数组（属性设置如上）但：picture1(0)的BorderStyle:None
两个Label，组成控件数组并分别以与自已Index 值相同的PictureBox为父控件（只需把Label绘在或粘贴在相应的PictureBox上即可）属性：
AutoSize：True
Alignment：Center
BackStyle：Transparent
Label（1）： Caption：″当前音量0″
Enabled：False
Label（0）： Caption：″0％″
一个Timer:属性：Interval：50
三、实例
一个自动的进度条和由用户控制的进度条。
Option Explicit
′如果有多个进度条且表示值的范围不同
′则可设立一组范围值，最好能通过INDEX
′值同自已的进度条建立对应关系，以方便处理
Const MaxValue = 100
Const MinValue = 0
Dim Gene As Single
Dim ProValue(1) As Single
′生成比例因子，必须首先执行
Sub InitData()
Gene = Picture1(0).ScaleWidth /
(MaxValue － MinValue)
End Sub
′根据当前进度值设置进度条，INDEX指出是哪个进度条的值
Sub SetProBar(value As Single, Index As Integer)
Dim X As Single
Dim BkColor As Long
ProValue(Index) = value
′对当前进度值超出范围的处理
If ProValue(Index) > MaxValue Then
ProValue(Index) = MaxValue
Else
If ProValue(Index) < MinValue Then
ProValue(Index) = MinValue
End If
End If
′在存在多个进度条时分别设置各进度条的不同文本
Select Case Index
Case 1
Label1(Index).Caption = ProValue(Index) ＆ ″％″
Case 0
Label1(Index).Caption = ″当前音量″ ＆ ProValue(Index)
End Select
′计算出当前进度值所对应的进度条位置
X = (ProValue(Index) － MinValue) ＊ Gene
With Picture1(Index).Picture = Image1.Picture
′把当前进度值所对应的进度条位置之后的图片用白色盖住
′它是此法实现思路的核心
Select Case Index
Case 1
bkcolor = vbWhite
Case 0
bkcolor = vbMenuBar
End Select
Picture1(Index).Line (X, 0)－(.ScaleWidth, _ .ScaleHeight), bkcolor, BF
End With
End Sub
′首先初始化比例因子
Private Sub Form_Load()
InitData
End Sub
′在用户操作INDEX为0的进度条时的响应
Private Sub picture1_MouseMove(Index As Integer, _
Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And Index = 0 Then
Picture1_MouseDown Index, Button, Shift, X, Y
End If
End Sub
′根据当前鼠标坐标的X值（进度条若为纵向则使用Y值）
′计算出所对应的当前进度值，然后设置进度条
Private Sub Picture1_MouseDown(Index As Integer, _
Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And Index = 0 Then
ProValue(Index) = Int(X / Gene ＋ MinValue ＋ 1)
SetProBar ProValue(Index), Index
End If
End Sub
′在演示中以定时器定时设置进度
′实际使用时当然是按事件完成的
′百分比来设置进度
Private Sub Timer1_Timer()
Static curval As Single
SetProBar curval, 1
curval = (curval ＋ 1) Mod MaxValue
If curval = 0 Then
curval = MinValue
End If
End Sub
26 四 08 VB实现弹出式菜单
在Windows95、Windows98或NT的风格中，有按动鼠标器右键弹出下拉菜单的操作，在VB执行环境下，有一些控件本身具有弹下拉菜单的功能，如TexTbox控件等，但大多数编辑类控件以及窗体本身却没有此功能，要在窗口中任意位置实现PopUpMenu（弹出式菜单），可借助VB的菜单工具来实现。
首先，打开VB的“工具”菜单条，利用“菜单编辑器”为窗体生成一个菜单：
标题(Caption) 菜单条名(Name)
编辑 menuEdit
……复制 mnuCopy
……剪切 munCut
其次，将生成的menuEdit菜单设置为不可视。
Private Sub Form_Load()
Me.menuEdit.Visibe=False
′menuEdit菜单设置为不可视
End Sub
然后，利用MouseDown事件实现任意位置弹出PopUpMenu，如下例：
本例中以RichTexBox控件为例，在其上面实现复制、剪切功能。
1．复制功能的实现。
Private Sub MnuCopy_Click()
Clipboar.Clear′将剪贴板清空
′将RichTexBox控件上选择上的内容复制到剪贴板
Clipboard.SetTextRichTexBox1.SelText
End Sub
2．剪切功能的实现。
Private Sub MnuCut_Click()
Clipboard.Clear ′将剪贴板清空
′将RichTextBox控件上选择了的内容复制到剪贴板
Clipboard.SetTextRichBox1.SelText
′将RichTexBox控件上选择了的内容删除
SendKeys″{Delete}″,True
End Sub
3．在RichTexBox控件的MouseDown事件中实现任意位置弹出PopUPMenu。
OPrivate Sub RichTexBox1_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single)
Dim MnuFile AS Menu ′声明一个菜单类型的变量
Set munFile=Me.MenuEdit ′将MenuEdit赋给菜单变量
if Button=2 Then ′判断是否按动鼠标器右键
′判断RichTexBox控件上选择了的内容是否存在，决定复制、剪切菜单条是否可操作。
If Len(RichTexBox.Text)=0 or Len(RichTexBox.SelText)=0 Then
mnuCopy.Enabled=Flase ′复制菜单条不可操作。
nmuCut.Enabled=False ′剪切菜单条不可操作。
nmuCopy.Enabled=True ′复制菜单条可操作。
nmuCut.Enabled=True ′剪切菜单条可操作。
End IF
PopupMenu mnuFile ′弹出PopUpMenu。
End If
End Sub
这样，在VB执行环境中，操作窗体上的RichTexBox控件，按动鼠标器右键就可弹出下拉菜单，实现复制、剪切功能。
26 四 08 VB6制作Win98风格的工具栏
VB6提供了功能更为强大的ActiveX控件，其中CoolBar、ToolBar控件可以用来制作Win98风格的工具栏,其中CoolBar在“Microsoft Window Common Controls－3 6.0”部件中，ToolBar和ImageList在“Microsoft Window Common Control 6.0”部件中。具体实现步骤如下：
1.新建一个工程Project1，创建主窗体frmMain。
2.在主窗体中添加一个CoolBar控件(命名为CoolBar1)，调整其Align属性为1，即停靠在窗体上方。
注：CoolBar上不能直接添加按钮，所以它实际上只是一个“准工具栏”（或者说是“伪工具栏”）。
3.在CoolBar1内添加一个ToolBar控件(命名为ToolBar1)。右击CoolBar1，选择Properties,打开它的属性窗口，在Bands选项卡中可以通过单击Insert Band按钮增加工具栏的个数，单击Remove Band按钮减少工具栏的个数（默认为3个）。通过左右箭头改变Index的值，从而确定当前工具栏。为便于设计，将每个工具栏的NewRow复选框选定。
4.在第一个工具栏（Index=1）的Child下拉框中选择“ToolBar1”，于是ToolBar1就和CoolBar1的 “Band1” 大小保持一致。
5.在主窗体中添加两个ImageList控件(分别为ImageList1和ImageList2)。打开ImageList1的属性窗口，在Images选项卡中单击Insert Picture按钮，添加彩色图片（最好是32＊32图标文件，因为它的透明背景不受显示属性、桌面主题的影响）。给ImageList2添加对应的灰度图片。注意：要保证它们的顺序相同，一一对应。
6.打开ToolBar1的属性窗口，在Generals选项卡中设定ImageList为ImageList2；HotImageList为ImageList1；Appearance为0，Style为1。在Buttons选项卡中添加按钮，在每个按钮的Image框中输入对应图片的Index值，设定Caption。
工具栏按钮被按下的事件可以在ToolBar的ButtonClick事件中捕捉到。参数Button的Index属性指示被按下的按钮的索引号。
26 四 08 迅雷被腾讯以七亿元收购
今天清晨，有网友向记者报料称迅雷在线网站的Logo多出了一行文字，该行文字揭示出迅雷公司的最新动态！记者遂立即登陆“迅雷在线”，发现网友所谓的“一行文字”指的是“腾讯旗下网站”。自此，迅雷在线被帝企鹅收购的事实已经昭然若揭
记者经过多方努力，终于从熟悉腾讯公司的消息人士那里了解到：腾讯公司已经于2008年2月21日与迅雷公司达成秘密协议——腾讯公司出资7亿元人民币将迅雷收归门下。
迅雷与腾讯均是总部位于广东省深圳市的两家现代信息技术企业，前者专注于下载技术的研发，后者则以即时通信软件腾讯QQ闻名遐迩
按照迅雷官方网站的介绍，“迅雷于2002年底由邹胜龙先生及程浩先生始创于美国硅谷。2003年1月底，创办者回国发展并正式成立深圳市三代科技开发有限公司（三代）。由于发展的需要，三代于2005年5月正式更名为深圳市迅雷网络技术有限公司（迅雷），暨迅雷在大中华区的研发中心和运营中心”。六年时间以来，迅雷以其高速下载的相关技术赢得了用户的青睐，也直接迫使腾讯公司推出“超级旋风”涉足下载软件领域。
迅雷以其下载技术著称，同时也因其极受欢迎的下载软件和搜索引擎涉嫌侵犯知识产权而不断面临各种民事法律诉讼。迅雷最近一次沦为被告发生于今年二月份。当时，来自美国的六家电影公司将迅雷网络技术有限公司推上了被告席，要求迅雷承认侵权行为并公开道歉，同时赔偿因侵犯其版权所造成的损失共计700多万元人民币。上述案件目前还在审理之中。 据分析，由于相关案件让迅雷不堪其扰，迅雷的决策层才决定投奔腾讯，希望借助帝企鹅的雄厚实力为迅雷的后续发展扫除障碍。
在收购了迅雷公司、获取了迅雷下载技术以后，腾讯公司也将停止“超级旋风”的一切研发工作
26 四 08 微软称6月底停售XP计划没有改变
据国外媒体报道，在微软首席执行官史蒂夫·鲍尔默暗示停售Windows XP操作系统的决定可以更改之后，微软发言人周四表示，截至目前，该公司还没有对停售XP操作系统的计划作出任何调整。
微软公关公司Waggener Edstrom发言人在周四发表的声明中称：“我们关于停售Windows XP的计划并没有改变。我们认为，依据从客户和合作伙伴处得到的反馈，停售Windows XP将是公司正确的选择。”
鲍尔默周四在一次新闻发布会上表示，“Windows XP即将停售，我们已经公布了相关计划。如果客户的反馈信息发生变化，我们也会做出相应的调整。但就目前而言，我们停售Windows XP的计划并没有发生变化。”按照此前公布的计划，微软将于6月30日停止向计算机厂商提供Windows XP授权，以及终止这一产品的零售渠道销售。
鲍尔默的讲话，使市场开始猜测，微软可能会重新考虑6月30日停售Windows XP操作系统的计划。Waggener Edstrom发言人表示，微软目前已了解到，一些用户正在要求公司推迟停售Windows XP的时间，而且也知道有超过16万人在Infoworld发起的“拯救XP”（Save XP）博客上留言。不过微软也在客户和合作伙伴当中进行自己的调查，并认为6月30日停售Windows XP是正确的选择。
按照微软最初的计划，该公司将在今年1月停售XP操作系统。但为了满足客户的需求，该公司把Windows XP的销售时间延长5个月，为用户升级新一代操作系统——Vista留出更多时间。依据微软的规定，软件零售商和主要计算机厂商将于明年6月停止销售Windows XP。但是，系统集成商或中小PC厂商可以继续销售Windows XP，直至2009年1月.
26 四 08 CNNIC再次曝光8家域名注册"黑代理"企业
中国互联网络信息中心（CNNIC）再次曝光8家违规域名注册企业，友商网络科技有限公司、中互（厦门）网络服务有限公司等8家域名注册公司因冒用他人名义，欺诈、恐吓用户等违规行为名列曝光名单。
据了解，自去年7月份《互联网地址注册服务行业自律公约》签署以后，CNNIC作为公约监督执行机构，一直履行着向社会曝光违规企业、收集整理证据的职责。截至目前，累计已经有70余家违规操作企业被曝光，这其中既有冒用注册服务资格的“黑代理”，也有签署了自律公约却不履行承诺的注册机构。面对CNNIC对违规操作企业曝光力度和频度的不断强化，行业内的普遍观点是：自律公约作为一项规范行业，保障用户权益的长效机制，其监管效应也正在逐步彰显。目前，域名服务机构信誉度评级活动也正在开展，表彰诚信服务的优质企业，和自律公约一道，双管齐下促进行业健康发展。
另据报道，像厦门友商等违规企业，在遭到CNNIC通报的同时，也受到当地相关主管部门的行政处罚。一系列曝光行动和调查取证的开展，为这些部门的执法提供了翔实的违规证据和更加专业的参考意见。据了解，多个主管部门酝酿已联合开展系列执法行动，为自律公约的约束力提供强有力的支持。
本次曝光的企业：
友商网络科技有限公司 http://www.cf688.com.cn
中互（厦门）网络服务有限公司 www.zh-net.net
厦门名万网络科技有限公司 http://www.xmmingwan.com
厦门聚企网络科技有限公司 http://www.xmjq114.com
厦门中恒盛世科技有限公司 http://www.113113.net/pay/
广州思易科技有限公司 http://www.hngov.net
亚太域名注册有限公司 http://www.asiadnr.net
厦门宏易科技有限公司 http://www.3988666.com
26 四 08 WinPatrol 15.0.2008.0
老牌的系统安全辅助软件WinPatrol是Windows的看门狗,是一款出色的网络安全工具,能及时的发现蠕虫病毒、广告软件、间谍软件、 cookies、木马程序以及其它能攻击你电脑的恶意病毒.如果发现病毒,该程序会及时隔离,无需即时更新.它能告诉你那些程序是得到你允许的,而那些又 是违法运行的.从而有效的保护你的电脑免受其他恶意程序的破坏.
下载:http://www.winpatrol.com/wpsetup.exe
它能实时监控系统的以下项目：
* 自启动程序
* IE 助手（BHO）
* 计划任务
* 系统服务（有个非常贴心的选项－仅列出非M$的服务，我很喜欢）
* 活动任务（即当前进程）
* Cookies
* 文件类型关联定义
* IE 默认页＋搜索页
* HOSTS及其它关键系统文件
It seems like every week more problems are reported in Quicktime, RealPlayer, Adobe Flash, Sun’s Java or other 3rd party controls. Once the vulnerability is known the risk increases exponentially until a patch is available. WinPatrol 2008 takes the worry out of waiting for a patch to become available. When a vulnerability is found Scotty will let you disable or set the “kill-bit” on the appropriate control until a new one is made available.
WinPatrol will also monitor your system and let you know when new ActiveX components try to make their home on your system. If it’s not something you wanted WinPatrol will kill the new component before it can do any damage.
26 四 08 Vista销量突破1.4亿套
微软日前宣布,新一代操作系统Windows Vista的销量已突破1.4亿套.
Windows Vista企业版于2006年11月底上市,而个人版于去年1月推出.据微软此前公布的数据显示,2007年6月底,Vista的销量为6000万套.9月底,Vista的销量为8800万套.今年1月,微软董事长比尔·盖茨宣布,Vista的销量已突破1亿套,但该数字不包括07年圣诞期间销量.
本周四,微软宣布Windows Vista的销量已突破1.4亿套.本周,微软同时还宣布,将按原计划于6月30日停售XP,全力推广Vista系统.
