微软Windows Vista SP1下载包已经在本周二出现了，微软信守承诺提供了多达五种语言的SP1包，但暂时不包含简体中文Windows Vista SP1补丁包，我们来看详细的报导。

　估计全球多个地方的网友都在欢呼，因为经过漫长的等待，微软Vista的用户总算等到了他们操作系统的第一个官方大补丁集合包，大小为434MB，命名为Vista SP1。

　　虽然这个补丁包的体积有点大，不过为了咱们电脑的安全还是应该安装一下的，现阶段只有5种语言版本可供选择，包括英语、法语、德语、西班牙语和日语版本的，中文的SP1包暂时欠奉。不过先别沮丧，微软说过将在今年4月中旬将SP1其它语种放进Windows自动更新中，届时使用中文Vista的网友应该可以下载到适合自己的SP1了。

　　我们使用上述语言Vista的网友可以通过Windows Update升级到Vista SP1，当然亦可通过国内下载速度最快的太平洋电脑网下载频道得到[高速下载Vista SP1]。

　　这个SP1包里已经包含了550个补丁，由于是一个大的集合包，如果你想单独安装其中的一个或几个补丁来巩固你的系统，还得麻烦你自己通过系统升级单个解决。据微软Windows Vista产品经理Nick White表示，在一个月前发现在的与设备驱动的问题已经得到有效的解决。

　　专门研究微软方向的的分析师Michael Cherry表示他升级了Vista SP1之后从网络上恢复文件的速度终于正常了(真羡慕可以这么早可以试用SP1)，而且达到了"Windows XP同样的速度"。不过据他表示还是有一些问题没得到很好的处理，其中就包括了无法从休眠模式中唤醒Vista的问题。

　　Vista SP1中将会对系统作出一些改进(在微软看来的确是这样)，比如一些杀毒软件将不能在装了Vista SP1的电脑中运行，名单里有号称网络上最强的杀毒软件BitDefender Antivirus，它来自于罗马尼亚。

　　另外一些能预先试用过Vista SP1的分析师还说了自己的试用经历，Enderle集团分析师Rob Enderle表示他用了一个小时才安装完Vista SP1，做完这种事之后他觉得系统快了不少，也不那么容易就给你崩溃掉，当然了他说现在Vista还是会比XP慢，但价格比XP贵，这算不算是一种倒退？

Microsoft Windows XP Service Pack 3 (SP3) 包括了自2001年Windows XP发布至今的全部升级补丁，也包含少量新功能特性。安装SP3并不会想XP SP2那样明显改变用户体验。

SP3的主要新功能包括：黑洞路由侦测；网络访问保护（NAP）；安全选项界面更详尽；增强的管理员安全和服务策略入口；内核模式加密模块；Windows产品激活模式改变。

    点击下载Windows XP SP3 简体中文

Windows XP SP3 官方中文版终于在29日“准时”出现，这个已经跳票过一次的万众期待补丁包成为了大家近期最为关注的，据统计目前下载量已经超过vista SP1当时的火爆程度。经过下载证实该文件和之前泄露的版本完全一致。

今天给大家一个VB写获取指定磁盘序列号的程序：

控件：TextBox 名称：Text1

一个按钮

窗口：Form1代码：

Private Declare Function GetVolumeInformation Lib _
"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

Function GetSerialNumber(strDrive As String) As Long

Dim SerialNum As Long

Dim Res As Long

Dim Temp1 As String

Dim Temp2 As String

Temp1 = String$(255, Chr$(0))

Temp2 = String$(255, Chr$(0))

Res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))

GetSerialNumber = SerialNum

End Function

 
Private Sub Command1_Click()
Label1.Caption = GetSerialNumber(Text1.Text + ":\")
End Sub