必须开启的依赖服务如下：

Adobe Photoshop CS3 : photoshop.exe 应用程序错误
“Ox5adc1531”指令引用的“Ox00000014”内存。该内存不能为“read”。要终止程序，请单击“确定”。

虽然没有什么大碍，但始终是碍眼的很，并且担心哪天出次大毛病就难看了。到网上找了找解决方法，还真让我找到了。

解决办法：

把C:\Program Files\Common Files\Adobe\Adobe Version Cue CS3\Client\3.0.0中的三个.dell文件复制到C:\Program Files\Adobe\Photoshop CS3文件里面这样就可以了！！！

如果仍有人遇到此问题，希望看到的人推荐此方法！！

错误信息提示如下：
错误：“0x029b6c3d”指令引用的“0×00000000”内存。该内存不能 为“read”。

sysfader.exe是附属于Nvidia显卡驱动程序的，用于处理桌面的淡入/淡出效果，以及气球提示条，在通常情况是不会出现在进程中并引起错误的。

我用了3步解决：

第一步：注册所有的Dll，具体方法是：
点击:开始–>运行,在运行框中输入cmd，在命令提示符下输入：
for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1

（请耐心等待全部进行完毕，注册一下对系统是有好处的）
第二步：请右键单击”我的电脑”，点击”属性”–>”高级”，在”性能”一栏中，将所有特殊效果取消。即调整为最佳性能。

第三步：恢复你先前设置的壁纸及主题。问题解决。

源地址：http://www.longworks.cn/article.asp?id=153 

前段时间由于系统以前没装Fireworks，在网上下了个FireworksCS3装上后，装上之后由于修改了PS的序列号，导致每次启动ps都弹出要 求输入序列号，今天30的期限终于到了，PS也用不了，郁闷，重装Adobe.CS3龙卷风3合1白金版，结果提示说:您一次只能安装一种 Adobe 产品，删了再装吧，但是，想卸载掉重新再装可没那么容易了，在控制面板下的添加和删除程序中点了半天也无法卸载,一点反应都没有，既然无法卸载然后就把整 个photoshop CS3安装文件给单独删除了,准备重新安装photoshop CS3.竟然还给我出现那个提示，用windows优化大师清理注册信息，不行；把注册表里的adobe信息全删了，还是不行；用windows优化大师 清理垃圾文件，还是不行；用完美卸载；依然不行，晕了，难不成有要重装系统？于是到网上找找有没有解决方案，正好发现一个“Windows Installer 清理实用工具”听说可以达到我重装PS的目的，先试试了。
微软官方下载：http://download.microsoft.com/download/e/9/d/e9d80355-7ab4-45b8-80e8-983a48d5e1bd/msicuu2.exe
下后安装运行那个工具，把 Adobe setup和Adobe photoshop cs选中，然后再Remove，再运行PS安装文件，居然没提示了，安装也一切OK了， 这个工具真舒服，呵呵～～～ ]]> http://www.tisswb.com/archives/245.html/feed 0 http://www.tisswb.com/archives/239.html http://www.tisswb.com/archives/239.html#comments Mon, 09 Feb 2009 15:18:35 +0000 笨二十一 http://www.tisswb.cn/?p=239 阅读全文——共2015字]]> 今天安装VS2008时出现了问题，怎么都无法安装成功。装了好几次都在“Visual Studio Web 创作组件（Visual Studio Authoring Component）”的安装的时候失败。当时很着急，难道千辛万苦下载的vs2008不能安装么？

于是俺就去“败毒”了一下，果然俺不是第一个出这种问题的人啊，网上一个哥们这么找原因和解决的：

 俺照着做了一遍，重启系统后安装vs2008发现还是问题依旧啊，难道这哥们骗人？（其实不是，我跟他的情况不完全一样）于是俺就按照这哥们的查找错误的思路来了一遍，发现错误提示不一样，我的是：“2007 Microsoft Office system 不支持从预发布版的 2007 Microsoft Office system 升级。必须先卸载任何预发布版本的 2007 Microsoft Office system 产品及相关技术。请更正上面列出的问题，然后重新运行安装程序。”这个可怎么办呢？～～～

于是乎我又“败毒”了一次，果然有发现：

 由于俺比较懒，找了其中最简单的一个办法，第二种，因为我之前确实安装过一个转换pdf的office的beta软件。在这里详细的罗列了原因以及解决的办法，看到了原因我就发现有门道了，先卸载了那个beta软件，继续安装vs2008，果然o啦～

一般默认的MTU值是不影响正常的数据通讯的,但是在ADSL的网络环境下,要设置MTU值为1492或1480,而MSN在数据传输的时候识别的MTU值是1450.所以才会出现登陆不了,还会造成网络断线的情况发生.
解决这一问题,只要在路由器的内网端口上设置一个MTU值就可以了!详细步骤如下:

登录路由器-〉网络参数-〉WAN口设置-〉在PPPoE高级设置里,把数据包MTU 1492或1480改成1450.重启路由器就OK了。

附注：MTU扫盲

1、什么情况下需要改MTU？

　　如果您的动态域名网站不能被正常访问，很难连接，连接上也非常慢，请试试把DirectSend设为”总是关闭”。如果关闭后可以正常访问，这种情况就需要修改MTU。如果您的网站连接正常，只是下载速度慢，就不必改MTU了。请跳过这一节。
2、什么是MTU？

　　MTU是Maximum Transmission Unit的缩写。意思是网络上传送的最大数据包。MTU的单位是字节。
　　大部分网络设备的MTU都是1500。如果本机的MTU比网关的MTU大，大的数据包就会被拆开来传送，这样会产生很多数据包碎片，增加丢包率，降低网络速度。把本机的MTU设成比网关的MTU小或相同，就可以减少丢包。
3、如何检测网关的MTU？

　　在本机打开dos窗口，执行：ping -f -l 1472 192.168.0.1
　　其中192.168.0.1是网关IP地址，1472是数据包的长度。请注意，上面的参数是”-l”（小写的L），而不是”-1″。
　　如果能ping通，表示数据包不需要拆包，可以通过网关发送出去。
　　如果出现：Packet needs to be fragmented but DF set.
　　表示数据包需要拆开来发送。此时，减少数据包长度，再执行上面的ping命令。从1400到1472之间多试几次，就能找到合适的数据包长度了。把数据包长度加上数据包头28字节，就得到MTU的值。

　　如果检测到网关的MTU值是1500，不需要修改。
　　如果网关有防火墙ping不通，可以试试直接把MTU设为1400。
4、如何修改本机的MTU？

　　修改方法如下：
（1）、运行regedit
（2）、浏览到：HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces
（3）、Interfaces下有多个子项，每个子项对应一个网卡。请按如下方法选择网卡：

　　（a）确定本机用来连接Internet的网卡或拨号连接的IP，如192.168.0.19；
　　（b）用鼠标点击Interfaces上的子项，查看键值列表中的IPAddress项；
　　（c）如果IPAddress的键值与（a）中的IP相同，即192.168.0.19，则该子项就是要找的网卡。
（4）、进入该子项，在右边的窗口里按鼠标右键，选择”新建”->”双字节值”，输入名称”MTU”，按回车。再用鼠标双击”MTU”，弹出修改窗口：

　　填入MTU的值。填写前请先把基数设为十进制。
　　设置好后，需要重启机器才能生效。

方法一：

Sub test()
AppActivate “Internet Explorer”
SendKeys “%D^C%{TAB}”
ActiveSheet.Paste
End Sub

方法二：

本范例需要引用 Microsoft Internet Controls

‘以下程式
Private Declare Function SetForegroundWindow Lib “user32″ _
        (ByVal hwnd As Long) As Long                              

Sub IEShell()
    Dim objIE As IWebBrowser2
    Dim objSW As IShellWindows
    Set objSW = New SHDocVw.ShellWindows
    If objSW.Count = 0 Then MsgBox “未开启InternetExplorer 应用程式”: Exit Sub
    For Each objIE In objSW
        aaa = Dir(objIE.FullName)
        MsgBox objIE.Name & “目前开启的网址:” & objIE.LocationURL
    Next objIE
End Sub

方法三：

一个更简单的方法，一并发布

Sub IEShell()
    Dim Obj As Object
    On Error Resume Next
    For Each Obj In CreateObject(“Shell.Application”).Windows
        If TypeName(Obj.document) = “HTMLDocument” Then
            MsgBox Obj.Name & “当前的url是:” & Obj.LocationURL
        End If
    Next
End Sub

下面是代码：

   Option Explicit

Private mintSubCat       As Integer
Private mintRowPages     As Integer
Private mintRowPrdct     As Integer

Public Sub GetCategories()
    Dim strUrl          As String
    Dim objHtml1        As New HTMLDocument
    Dim objHtml2        As HTMLDocument
    Dim strHtml         As String
    Dim objLink         As HTMLLinkElement
    Dim objDic          As New Dictionary
    Dim intIndex        As Integer
    
On Error Resume Next
    
    mintSubCat = 1
    mintRowPages = 1
    mintRowPrdct = 2
    
    strUrl = “http://www.hitachi-powertools.com.au/Categories.aspx“
    Set objHtml2 = objHtml1.createDocumentFromUrl(strUrl, vbNullString)
    
    While objHtml2.readyState <> “complete“ ‘And objHtml2.readyState <> ”interactive”
        DoEvents
    Wend
    
    strHtml = objHtml2.documentElement.outerHTML
    
    WriteStrToFile strHtml, ThisWorkbook.Path & “htmlCategories.html“, “UTF-8“
    
    For Each objLink In objHtml2.links
        ‘Debug.Print objLink.toString
        If Left(objLink.toString, 65) = “http://www.hitachi-powertools.com.au/Subcategories.aspx?Category=“ Then
            If Not objDic.Exists(objLink.toString) Then
                objDic.Add objLink.toString, objLink.toString
            End If
        End If
    Next
    
    For intIndex = 1 To objDic.Count
        Sheet1.Cells(intIndex, 1).Value = objDic.Items(intIndex - 1)
        Call GetSubCategories(objDic.Items(intIndex - 1))
    Next intIndex
    objDic.RemoveAll
    Set objDic = Nothing
    objHtml2.Close
    Set objHtml2 = Nothing
    objHtml1.Close
    Set objHtml1 = Nothing
    Set objLink = Nothing
    
End Sub

Private Sub GetSubCategories(ByVal strUrl As String)
    Dim objHtml1        As New HTMLDocument
    Dim objHtml2        As HTMLDocument
    Dim strHtml         As String
    Dim strCategory     As String
    Dim objLink         As HTMLLinkElement
    Dim objDic          As New Dictionary
    Dim intIndex        As Integer
    
    strCategory = Replace(Mid(strUrl, 38), “?“, “”)
    strCategory = Replace(strCategory, “/“, “”)
    strCategory = Replace(strCategory, ““, “”)
    
    Set objHtml2 = objHtml1.createDocumentFromUrl(strUrl, vbNullString)
    
    While objHtml2.readyState <> “complete“
        DoEvents
    Wend
    
    strHtml = objHtml2.documentElement.outerHTML
    
    WriteStrToFile strHtml, ThisWorkbook.Path & “html“ & strCategory & “.html“, “UTF-8“
    
    For Each objLink In objHtml2.links
        ‘Debug.Print objLink.toString
        If UCase(Left(objLink.toString, 65)) = UCase(“http://www.hitachi-powertools.com.au/Subcategories.aspx?CATEGORY=“) _
            And InStr(UCase(objLink.toString), UCase(“&SUBCATEGORY=&PAGE=“)) = 0 _
            And InStr(UCase(objLink.toString), UCase(“&SUBCATEGORY=“)) > 0 Then
            If Not objDic.Exists(UCase(objLink.toString)) Then
                objDic.Add UCase(objLink.toString), objLink.toString
            End If
        End If
    Next
    
    For intIndex = 1 To objDic.Count
        Sheet2.Cells(mintSubCat, 1).Value = objDic.Items(intIndex - 1)
        mintSubCat = mintSubCat + 1
        Call GetPages(objDic.Items(intIndex - 1))
    Next intIndex
    objDic.RemoveAll
    Set objDic = Nothing
    objHtml2.Close
    Set objHtml2 = Nothing
    objHtml1.Close
    Set objHtml1 = Nothing
    Set objLink = Nothing
    
End Sub




Private Sub GetPages(ByVal strUrl As String)
    Dim objHtml1        As New HTMLDocument
    Dim objHtml2        As HTMLDocument
    Dim strHtml         As String
    Dim strCategory     As String
    Dim objLink         As HTMLLinkElement
    Dim objDic          As New Dictionary
    Dim intIndex        As Integer
    
    strCategory = Replace(Mid(strUrl, 38), “?“, “”)
    strCategory = Replace(strCategory, “/“, “”)
    strCategory = Replace(strCategory, ““, “”)
    
    Set objHtml2 = objHtml1.createDocumentFromUrl(strUrl, vbNullString)
    
    While objHtml2.readyState <> “complete“
        DoEvents
    Wend
    
    strHtml = objHtml2.documentElement.outerHTML
    
    WriteStrToFile strHtml, ThisWorkbook.Path & “html“ & strCategory & “.html“, “UTF-8“
    
    For Each objLink In objHtml2.links
        ‘Debug.Print objLink.toString
‘        If Left(objLink.toString, 65) = ”http://www.hitachi-powertools.com.au/Subcategories.aspx?CATEGORY=” _
‘            And InStr(objLink.toString, ”&SUBCATEGORY=&PAGE=”) > 0 Then
        If UCase(Left(objLink.toString, 65)) = UCase(“http://www.hitachi-powertools.com.au/Subcategories.aspx?CATEGORY=“) _
            And InStr(UCase(objLink.toString), UCase(“&SUBCATEGORY=&PAGE=“)) = 0 _
            And InStr(UCase(objLink.toString), UCase(“&SUBCATEGORY=“)) > 0 _
            And InStr(UCase(objLink.toString), UCase(“&PAGE=“)) > 0 Then
            If Not objDic.Exists(objLink.toString) Then
                objDic.Add objLink.toString, objLink.toString
            End If
        End If
    Next
    
    For intIndex = 1 To objDic.Count
        Sheet3.Cells(mintRowPages, 1).Value = objDic.Items(intIndex - 1)
        mintRowPages = mintRowPages + 1
        Call GetProductUrls(objDic.Items(intIndex - 1))
    Next intIndex
    objDic.RemoveAll
    Set objDic = Nothing
    objHtml2.Close
    Set objHtml2 = Nothing
    objHtml1.Close
    Set objHtml1 = Nothing
    Set objLink = Nothing
    
    
End Sub

Private Sub GetProductUrls(ByVal strUrl As String)
    Dim objHtml1        As New HTMLDocument
    Dim objHtml2        As HTMLDocument
    Dim strHtml         As String
    Dim strCategory     As String
    Dim objLink         As HTMLLinkElement
    Dim objDic          As New Dictionary
    Dim intIndex        As Integer
    
    strCategory = Replace(Mid(strUrl, 38), “?“, “”)
    strCategory = Replace(strCategory, “/“, “”)
    strCategory = Replace(strCategory, ““, “”)
    
    Set objHtml2 = objHtml1.createDocumentFromUrl(strUrl, vbNullString)
    
    While objHtml2.readyState <> “complete“
        DoEvents
    Wend
    
    strHtml = objHtml2.documentElement.outerHTML
    
    WriteStrToFile strHtml, ThisWorkbook.Path & “html“ & strCategory & “.html“, “UTF-8“
    
    For Each objLink In objHtml2.links
‘        Debug.Print objLink.toString
        If UCase(Left(objLink.toString, 66)) = UCase(“http://www.hitachi-powertools.com.au/ProductDetails.aspx?Category=“) _
            And InStr(UCase(objLink.toString), UCase(“&Subcategory=&Product=“)) = 0 _
            And InStr(UCase(objLink.toString), UCase(“&SUBCATEGORY=“)) > 0 _
            And InStr(UCase(objLink.toString), UCase(“&Product=“)) > 0 Then
            If Not objDic.Exists(UCase(objLink.toString)) Then
                objDic.Add UCase(objLink.toString), objLink.toString
            End If
        End If
    Next
    
    For intIndex = 1 To objDic.Count
        Sheet4.Cells(mintRowPrdct, 1).Value = objDic.Items(intIndex - 1)
        Call GetProductDesc(objDic.Items(intIndex - 1))
        mintRowPrdct = mintRowPrdct + 1
        ‘ThisWorkbook.Save
    Next intIndex
    objDic.RemoveAll
    Set objDic = Nothing
    objHtml2.Close
    Set objHtml2 = Nothing
    objHtml1.Close
    Set objHtml1 = Nothing
    Set objLink = Nothing
End Sub

 Sub GetProductDesc(ByVal strUrl As String)
    Dim objHtml1        As New HTMLDocument
    Dim objHtml2        As HTMLDocument
    Dim strHtml         As String
    Dim strCategory     As String
    Dim objLink         As HTMLLinkElement
    Dim intIndex        As Integer
    Dim strCat1         As String
    Dim strCat2         As String
    Dim lngS1           As Long
    Dim lngS2           As Long
    Dim lngS3           As Long
    Dim strTmp          As String
    Dim strProCode      As String
    Dim strProName      As String
    Dim strDesc         As String
    Dim strSpec()       As String
    
    strCategory = Replace(Mid(strUrl, 38), “?“, “”)
    strCategory = Replace(strCategory, “/“, “”)
    strCategory = Replace(strCategory, ““, “”)
    
    Set objHtml2 = objHtml1.createDocumentFromUrl(strUrl, vbNullString)
    
    While objHtml2.readyState <> “complete“
        DoEvents
    Wend
    
    strHtml = objHtml2.documentElement.outerHTML
    
    WriteStrToFile strHtml, ThisWorkbook.Path & “html“ & strCategory & “.html“, “UTF-8“
    
    strTmp = UCase(strUrl)
    lngS1 = InStr(strTmp, UCase(“Category=“)) + 9
    lngS2 = InStr(strTmp, UCase(“&Subcategory=“)) + 13
    lngS3 = InStr(strTmp, UCase(“&Product=“)) + 9
    
    strCat1 = Mid(strUrl, lngS1, lngS2 - lngS1 - 13)
    strCat2 = Mid(strUrl, lngS2, lngS3 - lngS2 - 9)
    strProCode = Mid(strUrl, lngS3)
    
    strTmp = UCase(strHtml)
    lngS1 = InStr(strTmp, UCase(“<SPAN style=”"FONT-WEIGHT: bold; FONT-SIZE: 10pt; COLOR: #696969″”>“)) + 65
    lngS2 = InStr(lngS1, strTmp, UCase(“</span>“))
    strProName = Trim(Mid(strHtml, lngS1, lngS2 - lngS1))
    
    strDesc = strGetDesc(objHtml2)
    GetSpec objHtml2, strSpec
    
    Sheet5.Cells(mintRowPrdct, “B“).Value = strCat1 & “|“ & strCat2
    Sheet5.Cells(mintRowPrdct, “C“).Value = “HITACHI“
    Sheet5.Cells(mintRowPrdct, “D“).Value = strProName
    Sheet5.Cells(mintRowPrdct, “E“).Value = strProCode
    Sheet5.Cells(mintRowPrdct, “J“).Value = strDesc
    
    
    Dim intCol      As Integer
    
    Sheet6.Cells(mintRowPrdct, 1).Value = strProCode
    Sheet7.Cells(mintRowPrdct, 1).Value = strProCode
    If UBound(strSpec, 1) > 0 Then
        For intCol = 1 To UBound(strSpec, 1)
            Sheet6.Cells(mintRowPrdct, 2 + intCol).Value = strSpec(intCol, 1)
            Sheet7.Cells(mintRowPrdct, 2 + intCol).Value = strSpec(intCol, 2)
        Next intCol
    End If
    
    objHtml2.Close
    Set objHtml2 = Nothing
    objHtml1.Close
    Set objHtml1 = Nothing
    Set objLink = Nothing
End Sub

Private Function strGetDesc(ByRef objHtml As HTMLDocument) As String
    
    Dim objHtmlItem     As Object
    Dim objHtmlLastItem As Object
    Dim objHtmlTable    As HTMLTable
    
    For Each objHtmlItem In objHtml.all
        
        If TypeName(objHtmlItem) = “HTMLTable“ Then
            
            If Not objHtmlLastItem Is Nothing Then
            
                If UCase(objHtmlLastItem.innerText) = UCase(“Description:“) Then
    
                    Set objHtmlTable = objHtmlItem
                    Exit For
    
                End If
            End If

        End If
        
        If TypeName(objHtmlItem) = “HTMLSpanElement“ Then
            Set objHtmlLastItem = objHtmlItem
            DoEvents
        End If
    Next
    
    strGetDesc = Replace(objHtmlTable.innerText, vbCrLf, vbLf)
    
    Set objHtmlItem = Nothing
    Set objHtmlTable = Nothing
    Set objHtmlLastItem = Nothing
End Function

Private Sub GetSpec(ByRef objHtml As HTMLDocument, ByRef strSpec() As String)
    
    Dim objHtmlItem     As Object
    Dim blnFlag         As Boolean
    Dim objHtmlTable    As HTMLTable
    Dim intRow          As Integer
    
    blnFlag = False
    For Each objHtmlItem In objHtml.all
        
        If UCase(objHtmlItem.innerText) = UCase(“Specification:“) Then
            blnFlag = True
        End If
        
        If blnFlag Then
            If TypeName(objHtmlItem) = “HTMLTable“ Then
                
                Set objHtmlTable = objHtmlItem
                Exit For
            End If
        End If

    Next
    
    If Not objHtmlTable Is Nothing Then
        If objHtmlTable.Cells.Length > 1 Then
            ReDim strSpec(1 To objHtmlTable.Cells.Length / 2, 1 To 2)
            
            For intRow = 1 To objHtmlTable.Cells.Length / 2
                strSpec(intRow, 1) = objHtmlTable.Cells(intRow * 2 - 2).innerText
                strSpec(intRow, 2) = objHtmlTable.Cells(intRow * 2 - 1).innerText
            Next intRow
        Else
            ReDim strSpec(0 To 0, 0 To 0)
        End If
    Else
        ReDim strSpec(0 To 0, 0 To 0)
    End If
    
    Set objHtmlItem = Nothing
    Set objHtmlTable = Nothing
End Sub

Private Sub WriteStrToFile(ByVal strText As String, ByVal strPath As String, ByVal strCharSet As String)
    ‘Dim objFso          As New FileSystemObject
    Dim objText         As New ADODB.Stream
    
    objText.Type = adTypeText
    objText.Open
    objText.Charset = strCharSet
    objText.WriteText strText, adWriteChar
    objText.SaveToFile strPath, adSaveCreateOverWrite
    objText.Close
    Set objText = Nothing
    
End Sub


Function ReadStrFromFile(ByVal strPath As String, ByVal strCharSet As String) As String
    ‘Dim objFso          As New FileSystemObject
    Dim objText         As New ADODB.Stream
    
    objText.Type = adTypeText
    objText.Open
    objText.Charset = strCharSet
    objText.LoadFromFile strPath
    ReadStrFromFile = objText.ReadText
    objText.Close
    Set objText = Nothing
    
End Function

Public Sub com1()
    Dim intRow      As Integer
    Dim intCol      As Integer
    Dim strTmp1     As String
    Dim strTmp2     As String
    
    For intRow = 2 To 177
        strTmp2 = “”
        For intCol = 3 To 15
        
            strTmp1 = Trim(Sheet6.Cells(intRow, intCol) & “ | “ & Sheet7.Cells(intRow, intCol))
            
            If strTmp1 <> “|“ Then
                
                If strTmp2 <> “” Then
                    strTmp2 = strTmp2 & vbLf & strTmp1
                Else
                    strTmp2 = strTmp1
                End If
                
            End If
            
            Sheet4.Cells(intRow, 2).Value = strTmp2
            
        Next intCol
        
        
        
    Next intRow
End Sub

或者：

Sub Goto163()
With CreateObject(“InternetExplorer.Application”)
.Visible = True
.navigate “http://mail.163.com”
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All(“username”).Value = “myusername”
.Document.Forms(0).All(“password”).Value = “mypassword”
.Document.Forms(0).All(“登录邮箱”).Click
End With
MsgBox “Ok”
End Sub

附：

Sub show163tags()
Dim i As Byte
With CreateObject(“InternetExplorer.Application”)
.Visible = True
.navigate “http://mail.163.com”
Do Until .Readystate = 4
DoEvents
Loop
On Error Resume Next
For i = 1 To 100
If Len(.Document.Forms(0).All(i).Name) > 0 Then Debug.Print “i=” & i; “  name=” & .Document.Forms(0).All(i).Name
Next
End With
MsgBox “ok”
End Sub

返回：

i=9  name=username
i=13  name=password
i=17  name=selType
i=24  name=remUser
i=26  name=secure
i=35  name=登录邮箱
i=40  name=登录网盘
i=62  name=style
i=63  name=product

    难点：（1）取得验证码图片并识别成相应数据；（2）提交数据表单。

    首先我们来剖析一下本页面的 HTML 源代码，代码如下：

        … …
<table>
        <form name=”form1″ method=”post” action=”photo_vote.asp”>
                <input type=”hidden” name=”id” value=”{525147E1-C4A7-41EE-9190-95800AC81E29}”>
        <tr>
                <td>请输入4位数字验证码： <input type=”text” name=”CheckCode” size=4><img src=”count.asp?sksid=624BE861D1FF9641DE7F1D1FF967C1E711D1FF95CD5E9B1D1FF9|3812D0|1AF2D7″><input type=”submit” name=”submit” value=”投 票”><input type=”button” value=”关 闭” onClick=”javascript:window.close()”></td>
        </tr>
        </form>
</table>

        … …

 
为了保证代码的易读性，进行了相应的处理，并省略了部分无用的代码！不难看出的是：

    （1）表单的名称是：form1 ； 提交的页面是：Photo_Vote.asp ； 提交方式是：Post
    （2）表单提交的数据有：id 和 CheckCode 。其中 id 为隐藏域，内容是：{525147E1-C4A7-41EE-9190-95800AC81E29}
    （3）验证码的图片文件为：count.asp?sksid=624BE861D1FF9641DE7F1D1FF967C1E711D1FF95CD5E9B1D1FF9|3812D0|1AF2D7 它是由 Count.asp 随即动态生成，存在不确定性！
    （4）在网页的验证码的图片上按右键，保存图片时显示为：Count.XBM 即图片的格式为：XBM

    通过上面的分析，问题就可以一个一个解决了。

【表单的提交】

 
    表单的提交有几种方式，常用的有两种：一是直接提交含表单提交数据的网址；二是修改原表单，然后提交新数据！
    对于第一种，我们在得到验证码后可以这样发送：http://www.motorola.com.cn/news/925/photo_vote.asp?id={525147E1-C4A7-41EE-9190-95800AC81E29}&CheckCode=6793 然而由于摩托罗拉的网站对 Cookies 进行了操作，这样做起来不是很好，而且也难成功，所以我们直能改用第二种方法，修改原有的表单。
    首先，利用 WebBrowers 控件取得网页源代码（具体方法，请参考：http://www.cndevx.com/tips/showdoc.asp?detail_id=1337）利用VB中的 Replace 函数将原表单网页的代码修改成：
        … …
<table>
        <form name=”form1″ method=”post” action=”http://www.motorola.com.cn/news/925/photo_vote.asp“;>
                <input type=”hidden” name=”id” value=”{525147E1-C4A7-41EE-9190-95800AC81E29}”>
        <tr>
                <td>请输入4位数字验证码： <input type=”text” name=”CheckCode” size=4 value=6739><img src=”count.asp?sksid=624BE861D1FF9641DE7F1D1FF967C1E711D1FF95CD5E9B1D1FF9|3812D0|1AF2D7″>

<Script>
        form1.submit();
</Script>
<input type=”button” value=”关 闭” onClick=”javascript:window.close()”></td>
        </tr>
        </form>
</table>
        … …
    然后利用 Webbrowers.Document.write HTMLCodes 方式，讲替换的 HTML 代码重新写入 Webbrowers 控件里面， Webbrowers 控件将自动运行新的代码，即自动提交了数据！

    这样，整个提交过程就自动完成了，如果我们再加上相应的时间控制或者其他网站的话，就可以实现自动刷新和消息群发了！

【XBM 图片文件】

    XBM（X BitMap）一种图形文件格式

    文件结构类似如下：
#define counter_width 32                           //定义图片宽（象素）
#define counter_height 10                           //定义图片高（象素）
static unsigned char counter_bits[]={
0x3c,0x3c,0xfe,0x3c,0×66,0×66,0xfe,0×66,0xc3,0xc3,0×06,0×60,0×66,0×66,0×06,0×60,0x3c,0x3c,0x3e,0×30,0×66,0×66,0×60,0×18,0xc3,0xc3,0xc0,0x0c,0xc3,0xc3,0xc3,0×06,0×66,0×66,0×66,0×06,0x3c,0x3c,0x3c,0x7e};                           //图像数据，采取16进制格式的，还原图像时需转换成二进制后数据反向，否则图片将是反的

    得到 XBM 图片，分离成相应的字符，然后与预先的图片文件比较，即可得出此图像代表的数字，即所谓的识别！

    演示程序：http://www.cndevx.com/club/uploadfile/2003941042070557.rar

    源 代 码：http://www.cndevx.com/club/uploadfile/20039410421872749.rar

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
附：使用VB获得一页的HTML代码

加入WebBrowser、Timer、CommandButton控件各一个，然后使用以下代码：

Private Sub Command1_Click()
    WebBrowser1.Navigate ”http://www.motorola.com.cn/news/925/photo_vote.asp?id={525147E1-C4A7-41EE-9190-95800AC81E29}”
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim doc, objhtml As Object
    Dim i As Integer
    Dim strhtml As String
    
    If Not WebBrowser1.Busy Then
        Set doc = WebBrowser1.Document
        i = 0
        Set objhtml = doc.body.createtextrange()
        If Not IsNull(objhtml) Then
            Text1.Text = objhtml.htmltext
        End If
        Timer1.Enabled = False
    End If
End Sub 

    这是网上流行的一种方法，但是从我使用来看，因为 WebBrowers 控件本身有 DocumentComplete 事件，也就是说并不需要使用 Timer 控件！

定制模块行为
(1) Option Explicit ‘强制对模块内所有变量进行声明
Option Private Module ‘标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
       Option Compare Text ‘字符串不区分大小写
       Option Base 1 ‘指定数组的第一个下标为1
(2) On Error Resume Next ‘忽略错误继续执行VBA代码,避免出现错误消息
(3) On Error GoTo ErrorHandler ‘当错误发生时跳转到过程中的某个位置
(4) On Error GoTo 0 ‘恢复正常的错误提示
(5) Application.DisplayAlerts=False ‘在程序执行过程中使出现的警告框不显示
(6) Application.ScreenUpdating=False ‘关闭屏幕刷新
   Application.ScreenUpdating=True ‘打开屏幕刷新
(7) Application.Enable.CancelKey=xlDisabled ‘禁用Ctrl+Break中止宏运行的功能
工作簿
(8) Workbooks.Add() ‘创建一个新的工作簿
(9) Workbooks(“book1.xls”).Activate ‘激活名为book1的工作簿
(10) ThisWorkbook.Save ‘保存工作簿
(11) ThisWorkbook.close ‘关闭当前工作簿
(12) ActiveWorkbook.Sheets.Count ‘获取活动工作薄中工作表数
(13) ActiveWorkbook.name  ‘返回活动工作薄的名称
(14) ThisWorkbook.Name ‘返回当前工作簿名称
    ThisWorkbook.FullName ‘返回当前工作簿路径和名称
(15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小
(16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列
(17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化
工作表
(18) ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数
(19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性)
(20) Sheets(Sheet1).Name= “Sum” ‘将Sheet1命名为Sum
(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) ‘添加一个新工作表在第一工作表前
(22) ActiveSheet.Move After:=ActiveWorkbook. _
Sheets(ActiveWorkbook.Sheets.Count) ‘将当前工作表移至工作表的最后
(23) Worksheets(Array(“sheet1”,”sheet2”)).Select ‘同时选择工作表1和工作表2
(24) Sheets(“sheet1”).Delete或 Sheets(1).Delete ‘删除工作表1
(25) ActiveWorkbook.Sheets(i).Name ‘获取工作表i的名称
(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines ‘切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮
(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings  ‘切换工作表中的行列边框显示
(28) ActiveSheet.UsedRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式
(29) Cells.Hyperlinks.Delete ‘取消当前工作表所有超链接
(30) ActiveSheet.PageSetup.Orientation=xlLandscape
或ActiveSheet.PageSetup.Orientation=2 ‘将页面设置更改为横向
(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页面设置的表尾中输入文件路径
ActiveSheet.PageSetup.LeftFooter=Application.UserName ‘将用户名放置在活动工作表的页脚
单元格/单元格区域
(32) ActiveCell.CurrentRegion.Select
或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select
‘选择当前活动单元格所包含的范围，上下左右无空行
(33) Cells.Select ‘选定当前工作表的所有单元格
(34) Range(“A1”).ClearContents ‘清除活动工作表上单元格A1中的内容
Selection.ClearContents ‘清除选定区域内容
Range(“A1:D4”).Clear ‘彻底清除A1至D4单元格区域的内容，包括格式
(35) Cells.Clear ‘清除工作表中所有单元格的内容
(36) ActiveCell.Offset(1,0).Select ‘活动单元格下移一行，同理，可下移一列
(37) Range(“A1”).Offset(ColumnOffset:=1)或Range(“A1”).Offset(,1) ‘偏移一列
Range(“A1”).Offset(Rowoffset:=-1)或Range(“A1”).Offset(-1) ‘向上偏移一行
(38) Range(“A1”).Copy Range(“B1”) ‘复制单元格A1，粘贴到单元格B1中
Range(“A1:D8”).Copy Range(“F1”) ‘将单元格区域复制到单元格F1开始的区域中
Range(“A1:D8”).Cut Range(“F1”) ‘剪切单元格区域A1至D8，复制到单元格F1开始的区域中
Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) ‘复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中
注：CurrentRegion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列
(39) ActiveWindow.RangeSelection.Value=XX ‘将值XX输入到所选单元格区域中
(40) ActiveWindow.RangeSelection.Count ‘活动窗口中选择的单元格数
(41) Selection.Count ‘当前选中区域的单元格数
(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,””) ‘返回单元格中超级链接的地址并赋值
(43) TextColor=Range(“A1”).Font.ColorIndex ‘检查单元格A1的文本颜色并返回颜色索引
Range(“A1”).Interior.ColorIndex ‘获取单元格A1背景色
(44) cells.count ‘返回当前工作表的单元格数
(45) Selection.Range(“E4”).Select ‘激活当前活动单元格下方3行，向右4列的单元格
(46) Cells.Item(5,”C”) ‘引单元格C5
    Cells.Item(5,3) ‘引单元格C5
(47) Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)
或 Range(“A1”).Offset(4,5) ‘指定单元格F5
(48) Range(“B3”).Resize(RowSize:=11,ColumnSize:=3)
Rnage(“B3”).Resize(11,3) ‘创建B3：D13区域
(49) Range(“Data”).Resize(,2) ‘将Data区域扩充2列
(50) Union(Range(“Data1”),Range(“Data2”)) ‘将Data1和Data2区域连接
(51) Intersect(Range(“Data1”),Range(“Data2”)) ‘返回Data1和Data2区域的交叉区域
(52) Range(“Data”).Count ‘单元格区域Data中的单元格数
    Range(“Data”). Columns.Count ‘单元格区域Data中的列数
    Range(“Data”). Rows.Count ‘单元格区域Data中的行数
(53) Selection.Columns.Count ‘当前选中的单元格区域中的列数
Selection.Rows.Count ‘当前选中的单元格区域中的行数
(54) Selection.Areas.Count ‘选中的单元格区域所包含的区域数
(55) ActiveSheet.UsedRange.Row  ‘获取单元格区域中使用的第一行的行号
(56) Rng.Column ‘获取单元格区域Rng左上角单元格所在列编号
(57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) ‘在活动工作表中返回所有符合条件格式设置的区域
(58) Range(“A1”).AutoFilter Field:=3,VisibleDropDown:=False ‘关闭由于执行自动筛选命令产生的第3个字段的下拉列表
名称
(59) Range(“A1：C3”).Name=“computer” ‘命名A1：C3区域为computer
或Range(“D1：E6”).Name=“Sheet1!book” ‘命名局部变量，即Sheet1上区域D1：E6为book
或 Names(“computer”).Name=“robot” ‘将区域computer重命名为robot
(60) Names(“book”).Delete ‘删除名称
(61) Names.Add Name:=“ContentList”，_
RefersTo:=“=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))” ‘动态命名列
(62) Names.Add Name:=“Company”,RefersTo:=“CompanyCar” ‘命名字符串CompanyCar
(63) Names.Add Name:=“Total”,RefersTo:=123456 ‘将数字123456命名为Total。注意数字不能加引号，否则就是命名字符串了。
(64) Names.Add Name:=“MyArray”,RefersTo:=ArrayNum ‘将数组ArrayNum命名为MyArray。
(65) Names.Add Name:=“ProduceNum”,RefersTo:=“=$B$1”,Visible:=False ‘将名称隐藏
(66) ActiveWorkbook.Names(“Com”).Name ‘返回名称字符串
公式与函数
(67) Application.WorksheetFunction.IsNumber(“A1”) ‘使用工作表函数检查A1单元格中的数据是否为数字
(68) Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”))).Activate
‘激活单元格区域A列中最大值的单元格
(69) Cells(8,8).FormulaArray=“=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)” ‘在单元格中输入数组公式。注意必须使用R1C1样式的表达式
图表
(70) ActiveSheet.ChartObjects.Count ‘获取当前工作表中图表的个数
(71) ActiveSheet.ChartObjects(“Chart1”).Select ‘选中当前工作表中图表Chart1
(72) ActiveSheet.ChartObjects(“Chart1”).Activate
    ActiveChart.ChartArea.Select ‘选中当前图表区域
(73) WorkSheets(“Sheet1”).ChartObjects(“Chart2”).Chart. _
ChartArea.Interior.ColorIndex=2 ‘更改工作表中图表的图表区的颜色
(74) Sheets(“Chart2”).ChartArea.Interior.ColorIndex=2 ‘更改图表工作表中图表区的颜色
(75) Charts.Add ‘添加新的图表工作表
(76) ActiveChart.SetSourceData Source:=Sheets(“Sheet1”).Range(“A1:D5”), _
PlotBy:=xlColumns ‘指定图表数据源并按列排列
(77) ActiveChart.Location Where:=xlLocationAsNewSheet ‘新图表作为新图表工作表
(78) ActiveChart.PlotArea.Interior.ColorIndex=xlNone ‘将绘图区颜色变为白色
(79) WorkSheets(“Sheet1”).ChartObjects(1).Chart. _
Export FileName:=“C：MyChart.gif”,FilterName:=“GIF” ‘将图表1导出到C盘上并命名为MyChart.gif
窗体
(80) MsgBox “Hello!” ‘消息框中显示消息Hello
(81) Ans=MsgBox(“Continue?”,vbYesNo) ‘在消息框中点击“是”按钮，则Ans值为vbYes；点击“否”按钮，则Ans值为vbNo。
If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub ‘返回值不为“是”，则退出
(82) Config=vbYesNo+vbQuestion+vbDefaultButton2 ‘使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮
(83) MsgBox “This is the first line.” & vbNewLine & “Second line.” ‘在消息框中强制换行，可用vbCrLf代替vbNewLine。
(84) MsgBox “the average is :”&Format(Application.WorksheetFunction.Average(Selection),”#,##0.00″),vbInformation, “selection count average” & Chr(13) ‘应用工作表函数返回所选区域的平均值并按指定格式显示
(85) Userform1.Show ‘显示用户窗体
(86) Load Userform1 ‘加载一个用户窗体,但该窗体处于隐藏状态
(87) Userform1.Hide ‘隐藏用户窗体
(88) Unload Userform1 或 Unload Me ‘卸载用户窗体
(89) (图像控件).Picture=LoadPicture(“图像路径”) ‘在用户窗体中显示图形
(90) UserForm1.Show 0 或 UserForm1.Show vbModeless ‘将窗体设置为无模式状态
(91) Me.Height=Int(0.88*ActiveWindow.Height) ‘窗体高度为当前活动窗口高度的0.88
   Me.Width=Int(0.88*ActiveWindow.Width) ‘窗体宽度为当前活动窗口高度的0.88
事件
(92) Application.EnableEvents=False ‘禁用所有事件
        Application.EnableEvents=True ‘启用所有事件
    注：不适用于用户窗体控件触发的事件
对象
(93) Set ExcelSheet = CreateObject(“Excel.Sheet”) ‘创建一个Excel工作表对象
ExcelSheet.Application.Visible = True ‘设置 Application 对象使 Excel 可见
ExcelSheet.Application.Cells(1, 1).Value = “Data” ‘在表格的第一个单元中输入文本
ExcelSheet.SaveAs “C:\TEST.XLS” ‘将该表格保存到C:\test.xls 目录
ExcelSheet.Application.Quit ‘关闭 Excel
Set ExcelSheet = Nothing ‘释放该对象变量
(94) ‘声明并创建一个Excel对象引用
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject(“Excel.Application”)
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
(95) ‘创建并传递一个 Excel.Application 对象的引用
Call MySub (CreateObject(“Excel.Application”))
(96) Set d = CreateObject(Scripting.Dictionary) ‘创建一个 Dictionary 对象变量
(97) d.Add “a”, “Athens” ‘为对象变量添加关键字和条目
其他
(98) Application.OnKey “^I”,”macro” ‘设置Ctrl+I键为macro过程的快捷键
(99) Application.CutCopyMode=False ‘退出剪切/复制模式
(100) Application.Volatile True ‘无论何时工作表中任意单元格重新计算，都会强制计算该函数
Application.Volatile False ‘只有在该函数的一个或多个参数发生改变时，才会重新计算该函数

*******************************************************
定制模块行为
(101) Err.Clear ‘清除程序运行过程中所有的错误
*******************************************************
工作簿
(102) ThisWorkbook.BuiltinDocumentProperties(“Last Save Time”)
或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Save Time”) ‘返回上次保存工作簿的日期和时间
(103) ThisWorkbook.BuiltinDocumentProperties(“Last Print Date”)
或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Print Date”) ‘返回上次打印或预览工作簿的日期和时间
(104) Workbooks.Close ‘关闭所有打开的工作簿
(105) ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接
(106) ActiveWorkbook.CodeName
ThisWorkbook.CodeName  ‘返回工作簿代码的名称
(107) ActiveWorkbook.FileFormat
ThisWorkbook.FileFormat  ‘返回当前工作簿文件格式代码
(108) ThisWorkbook.Path
ActiveWorkbook.Path ‘返回当前工作簿的路径(注:若工作簿未保存,则为空)
(109) ThisWorkbook.ReadOnly
   ActiveWorkbook.ReadOnly ‘返回当前工作簿的读/写值(为False)
(110) ThisWorkbook.Saved
ActiveWorkbook.Saved ‘返回工作簿的存储值(若已保存则为False)
(111) Application.Visible = False ‘隐藏工作簿
   Application.Visible = True ‘显示工作簿
   注:可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见
*******************************************************
工作表
(112) ActiveSheet.Columns(“B”).Insert ‘在A列右侧插入列，即插入B列
ActiveSheet.Columns(“E”).Cut
  ActiveSheet.Columns(“B”).Insert  ‘以上两句将E列数据移至B列，原B列及以后的数据相应后移
ActiveSheet.Columns(“B”).Cut
  ActiveSheet.Columns(“E”).Insert ‘以上两句将B列数据移至D列，原C列和D列数据相应左移一列
(113) ActiveSheet.Calculate ‘计算当前工作表
(114) ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetHidden ‘正常隐藏工作表，同在Excel菜单中选择“格式——工作表——隐藏”操作一样
ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVeryHidden ‘隐藏工作表，不能通过在Excel菜单中选择“格式——工作表——取消隐藏”来重新显示工作表
ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVisible ‘显示被隐藏的工作表
(115) ThisWorkbook.Sheets(1).ProtectContents ‘检查工作表是否受到保护
(116) ThisWorkbook.Worksheets.Add Count:=2, _
Before:=ThisWorkbook.Worksheets(2)
或 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2  ‘在第二个工作表之前添加两个新的工作表
(117) ThisWorkbook.Worksheets(3).Copy ‘复制一个工作表到新的工作簿
(118) ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2) ‘复制第三个工作表到第二个工作表之前
(119) ThisWorkbook.ActiveSheet.Columns.ColumnWidth = 20 ‘改变工作表的列宽为20
  ThisWorkbook.ActiveSheet.Columns.ColumnWidth = _
 ThisWorkbook.ActiveSheet.StandardWidth ‘将工作表的列宽恢复为标准值
ThisWorkbook.ActiveSheet.Columns(1).ColumnWidth = 20 ‘改变工作表列1的宽度为20
(120) ThisWorkbook.ActiveSheet.Rows.RowHeight = 10 ‘改变工作表的行高为10
  ThisWorkbook.ActiveSheet.Rows.RowHeight = _
ThisWorkbook.ActiveSheet.StandardHeight ‘将工作表的行高恢复为标准值
ThisWorkbook.ActiveSheet.Rows(1).RowHeight = 10 ‘改变工作表的行1的高度值设置为10
(121) ThisWorkbook.Worksheets(1).Activate ‘当前工作簿中的第一个工作表被激活
(122) ThisWorkbook.Worksheets(“Sheet1″).Rows(1).Font.Bold = True ‘设置工作表Sheet1中的行1数据为粗体
(123) ThisWorkbook.Worksheets(“Sheet1″).Rows(1).Hidden = True ‘将工作表Sheet1中的行1隐藏
ActiveCell.EntireRow.Hidden = True ‘将当前工作表中活动单元格所在的行隐藏
注：同样可用于列。
(124) ActiveSheet.Range(“A:A”).EntireColumn.AutoFit ‘自动调整当前工作表A列列宽
(125) ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) ‘选中当前工作表中常量和文本单元格
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) ‘选中当前工作表中常量和文本及错误值单元格
*******************************************************
公式与函数
(126) Application.MacroOptions Macro:=”SumPro”,Category:=4 ‘将自定义的SumPro函数指定给Excel中的“统计函数”类别
(127) Application.MacroOptions Macro:=”SumPro”, _
 Description:=”First Sum,then Product” ‘为自定义函数SumPro进行了功能说明
(128) Application.WorksheetFunction.CountA(Range(“A:A”))+1 ‘获取A列的下一个空单元格
(129) WorksheetFunction.CountA(Cell.EntireColumn) ‘返回该单元格所在列非空单元格的数量
WorksheetFunction.CountA(Cell.EntireRow) ‘返回该单元格所在行非空单元格的数量
(130) WorksheetFunction.CountA(Cells) ‘返回工作表中非空单元格数量
(131) ActiveSheet.Range(“A20:D20”).Formula=“=Sum(R[-19]C:R[-1]C”’对A列至D列前19个数值求和
*******************************************************
图表
(132) ActiveWindow.Visible=False
或 ActiveChart.Deselect ‘使图表处于非活动状态
(133) TypeName(Selection)=”Chart” ‘若选中的为图表，则该语句为真，否则为假
(134) ActiveSheet.ChartObjects.Delete ‘删除工作表上所有的ChartObject对象
  ActiveWorkbook.Charts.Delete ‘删除当前工作簿中所有的图表工作表
*******************************************************
窗体和控件
(135) UserForms.Add(MyForm).Show ‘添加用户窗体MyForm并显示
(136)TextName.SetFocus ‘设置文本框获取输入焦点
(137) SpinButton1.Value=0 ‘将数值调节钮控件的值改为0
(138) TextBox1.Text=SpinButton1.Value ‘将数值调节钮控件的值赋值给文本框控件
   SpinButton1.value=”/Val(TextBox1.Text)” ‘将文本框控件值赋给数值调节钮控件
   CStr(SpinButton1.Value)=TextBox1.Text ‘数值调节钮控件和文本框控件相比较
(139) UserForm1.Controls.Count ‘显示窗体UserForm1上的控件数目
(140) ListBox1.AddItem “Command1” ‘在列表框中添加Command1
(141) ListBox1.ListIndex ‘返回列表框中条目的值，若为-1，则表明未选中任何列表框中的条目
(142) RefEdit1.Text ‘返回代表单元格区域地址的文本字符串
   RefEdit1.Text=ActiveWindow.RangeSelection.Address ‘初始化RefEdit控件显示当前所选单元格区域
   Set FirstCell=Range(RefEdit1.Text).Range(“A1”) ‘设置某单元格区域左上角单元格
(143) Application.OnTime Now + TimeValue(“00:00:15″), “myProcedure” ‘等待15秒后运行myProcedure过程
(144) ActiveWindow.ScrollColumn=ScrollBarColumns.Value ‘将滚动条控件的值赋值给ActiveWindow对象的ScrollColumn属性
ActiveWindow.ScrollRow=ScrollBarRows.Value ‘将滚动条控件的值赋值给ActiveWindow对象的ScrollRow属性
(145) UserForm1.ListBox1.AddItem Sheets(“Sheet1”).Cells(1,1) ‘将单元格A1中的数据添加到列表框中
ListBox1.List=Product ‘将一个名为Product数组的值添加到ListBox1中
ListBox1.RowSource=”Sheet2!SumP” ‘使用工作表Sheet2中的SumP区域的值填充列表框
(146) ListBox1.Selected(0) ‘选中列表框中的第一个条目(注：当列表框允许一次选中多个条目时，必须使用Selected属性)
(147) ListBox1.RemoveItem ListBox1.ListIndex ‘移除列表框中选中的条目
*******************************************************
对象
Application对象
(148) Application.UserName ‘返回应用程序的用户名
(149) Application.Caller ‘返回代表调用函数的单元格
(150) Application.Caller.Parent.Parent ‘返回调用函数的工作簿名称
(151) Application.StatusBar=”请等待……” ‘将文本写到状态栏
  Application.StatusBar=”请等待……” & Percent & “% Completed” ‘更新状态栏文本，以变量Percent代表完成的百分比
  Application.StatusBar=False ‘将状态栏重新设置成正常状态
(152) Application.Goto Reference:=Range(“A1:D4”) ‘指定单元格区域A1至D4，等同于选择“编辑——定位”，指定单元格区域为A1至D4，不会出现“定位”对话框
(153) Application.Dialogs(xlDialogFormulaGoto).Show ‘显示“定位”对话框，但定位条件按钮无效
(154) Application.Dialogs(xlDialogSelectSpecial).Show ‘显示“定位条件”对话框
(155) Application.Dialogs(xlDialogFormatNumber).show ‘显示“单元格格式”中的“数字”选项卡
  Application.Dialogs(xlDialogAlignment).show ‘显示“单元格格式”中的“对齐”选项卡
Application.Dialogs(xlDialogFontProperties).show ‘显示“单元格格式”中的“字体”选项卡
Application.Dialogs(xlDialogBorder).show ‘显示“单元格格式”中的“边框”选项卡
Application.Dialogs(xlDialogPatterns).show ‘显示“单元格格式”中的“图案”选项卡
Application.Dialogs(xlDialogCellProtection).show ‘显示“单元格格式”中的“保护”选项卡
注：无法一次显示带选项卡的“单元格格式”对话框，只能一次显示一个选项卡。
(156) Application.Dialogs(xlDialogFormulaGoto).show Range(“b2″), True ‘显示“引用位置”的默认单元格区域并显示引用使其出现在窗口左上角(注：内置对话框参数的使用)
(157) Application.CommandBars(1).Controls(2).Controls(16).Execute ‘执行“定位”话框，相当于选择菜单“编辑——定位”命令
(158) Application.Transpose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”)) ‘返回一个垂直的数组
(159) Application.Version ‘返回使用的Excel版本号
(160) Application.Cursor = xlNorthwestArrow ‘设置光标形状为北西向箭头
Application.Cursor = xlIBeam ‘设置光标形状为Ⅰ字形
Application.Cursor = xlWait ‘设置光标形状为沙漏(等待)形
Application.Cursor = xlDefault ‘恢复光标的默认设置
(161) Application.WindowState ‘返回窗口当前的状态
   Application.WindowState = xlMinimized ‘窗口最小化
Application.WindowState = xlMaximized ‘窗口最大化
Application.WindowState = xlNormal ‘窗口正常状态
(162) Application.UsableHeight ‘获取当前窗口的高度
Application.UsableWidth ‘获取当前窗口的宽度
(163) Application.ActiveCell.Address ‘返回活动单元格的地址(注:返回的是绝对地址)
(164) Application.ActivePrinter ‘返回当前打印机的名称
(165) Application.ActiveSheet.Name ‘返回活动工作表的名称
(166) Application.ActiveWindow.Caption ‘返回活动窗口的标题
(167) Application.ActiveWorkbook.Name ‘返回活动工作簿的名称
(168) Application.Selection.Address ‘返回所选区域的地址
(169) Application.ThisWorkbook.Name ‘返回当前工作簿的名称
(170) Application.CalculationVersion ‘返回Excel计算引擎版本(右边四位数字)及Excel版本(左边两位数字)
(171) Application.MemoryFree ‘以字节为单位返回Excel允许使用的内存数(不包括已经使用的内存)
(172) Application.MemoryUsed ‘以字节为单位返回Excel当前使用的内存数
(173) Application.MemoryTotal ‘以字节为单位返回Excel可以使用的内存数(包括已使用的内存,是MemoryFree和MemoryUsed的总和)
(174) Application.OperatingSystem ‘返回所使用的操作系统的名称和版本
(175) Application.OrganizationName ‘返回Excel产品登记使用的组织机构的名称
(176) Application.FindFormat ‘查找的格式种类
   Application.ReplaceFormat ‘替换查找到的内容的格式种类
ActiveSheet.Cells.Replace What:=” “, _
Replacement:=” “,SearchFormat:=True,ReplaceFormat:=True ‘替换查找到的格式
(177) Application.Interactive=False ‘忽略键盘或鼠标的输入
(178) Application.Evaluate(“Rate”) ‘若在工作表中定义了常量0.06的名称为”Rate”,则本语句将返回值0.06
(179) Application.OnUndo “Undo Option”,“Undo Procedure” ‘选择UndoOption后，将执行Undo Procedure过程
*******************************************************
Range对象
(180) Range(A1:A10).value=”/Application.WorksheetFunction.Transpose(MyArray)” ‘将一个含有10个元素的数组转置成垂直方向的工作表单元格区域(A1至A10)
注：因为当把一维数组的内容传递给某个单元格区域时，该单元格区域中的单元格必须是水平方向的，即含有多列的一行。若必须使用垂直方向的单元格区域，则必须先将数组进行转置，成为垂直的。
(181) Range(“A65536”).End(xlUp).Row+1 ‘返回A列最后一行的下一行
(182) rng.Range(“A1”) ‘返回区域左上角的单元格
(183) cell.Parent.Parent.Worksheets ‘访问当前单元格所在的工作簿
(184) Selection.Font.Bold=Not Selection.Font.Bold ‘切换所选单元格是否加粗
(185) ActiveSheet.Range(“A:B”).Sort Key1:=Columns(“B”), Key2:=Columns(“A”), _
Header:=xlYes ‘两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列
(186) cell.Range(“A1”).NumberFormat ‘显示单元格或单元格区域中的第一个单元格的数字格式
(187) cell.Range(“A1”).HasFormula ‘检查单元格或单元格区域中的第一个单元格是否含有公式
或cell.HasFormula ‘工作表中单元格是否含有公式
(188) Cell.EntireColumn ‘单元格所在的整列
   Cell.EntireRow ‘单元格所在的整行
(189) rng.Name.Name ‘显示rng区域的名称
(190) rng.Address ‘返回rng区域的地址
(191) cell.Range(“A1”).Formula ‘返回包含在rng区域中左上角单元格中的公式。
注：若在一个由多个单元格组成的范围内使用Formula属性，会得到错误；若单元格中没有公式，会得到一个字符串，在公式栏中显示该单元格的值。
(192) Range(“D5:D10”).Cells(1,1) ‘返回单元格区域D5:D10中左上角单元格
(193) ActiveCell.Row ‘活动单元格所在的行数
   ActiveCell.Column ‘活动单元格所在的列数
(194) Range(“A1:B1″).HorizontalAlignment = xlLeft ‘当前工作表中的单元格区域数据设置为左对齐
(195) ActiveSheet.Range(“A2:A10”).NumberFormat=”#,##0” ‘设置单元格区域A2至A10中数值格式
(196) rng.Replace “ “,”0”  ‘用0替换单元格区域中的空单元格
*******************************************************
Collection与object
(197) Dim colMySheets As New Collection
Public colMySheets As New Collection  ‘声明新的集合变量
(198) Set MyRange=Range(“A1:A5”) ‘创建一个名为MyRange的对象变量
(199) <object>.Add Cell.Value CStr(Cell.Value) ‘向集合中添加惟一的条目(即将重复的条目忽略)
*******************************************************
Windows API
(200) Declare Function GetWindowsDirectoryA Lib “kernel32” _
(ByVal lpBuffer As String,ByVal nSize As Long) As Long ‘API函数声明。返回安装Windows所在的目录名称，调用该函数后，安装Windows的目录名称将在第一个参数lpBuffer中，该目录名称的字符串长度包含在第二个参数nSize中。
(201) Set objExcel = CreateObject(“Excel.Application”)
objExcel.Workbooks.Add ‘创建Excel工作簿
(202) Application.ActivateMicrosoftApp xlMicrosoftWord ‘开启Word应用程序
(203) Application.TemplatesPath ‘获取工作簿模板的位置
(204) Application.Calculation = xlCalculationManual ‘设置工作簿手动计算
   Application.Calculation = xlCalculationAutomatic ‘工作簿自动计算
(205) Worksheets(1).EnableCalculation = False ‘不对第一张工作表自动进行重算
(206) Application.CalculateFull ‘重新计算所有打开的工作簿中的数据
(207) Application.RecentFiles.Maximum = 5 ‘将最近使用的文档列表数设为5
(208) Application.RecentFiles(4).Open ‘打开最近打开的文档中的第4个文档
(209) Application.OnTime DateSerial(2006,6,6)+TimeValue(“16:16:16”),“BaoPo” ‘在2006年6月6日的16:16:16开始运行BaoPo过程
(210) Application.Speech.Speak (“Hello” & Application.UserName) ‘播放声音，并使用用户的姓名问候用户
(211) MsgBox Application.PathSeparator ‘获取”\”号
(212) MsgBox Application.International(xlCountrySetting) ‘返回应用程序当前所在国家的设置信息
(213) Application.AutoCorrect.AddReplacement “葛洲坝”, “三峡” ‘自动将在工作表中进行输入的”葛洲坝”更正为”三峡”
(214) Beep ‘让计算机发出声音
(215) Err.Number ‘返回错误代码
(216) MsgBox IMEStatus ‘获取输入法状态
(217) Date = #6/6/2006#
Time = #6:16:16 AM# ‘将系统时间更改为2006年6月6日上午6时16分16秒
(218) Application.RollZoom = Not Application.RollZoom ‘切换是否能利用鼠标中间的滑轮放大/缩小工作表
(219) Application.ShowWindowsInTaskba = True ‘显示任务栏中的窗口,即各工作簿占用各自的窗口
(220) Application.DisplayScrollBars = True ‘显示窗口上的滚动条
(221) Application.DisplayFormulaBar = Not Application.DisplayFormulaBar ‘切换是否显示编辑栏
(222) Application.Dialogs(xlDialogPrint).Show ‘显示打印内容对话框
(223) Application.MoveAfterReturnDirection = xlToRight ‘设置按Enter键后单元格的移动方向向右
(224) Application.FindFile ‘显示打开对话框
(225) ThisWorkbook.FollowHyperlink http://www.sinoarch.cn ‘打开超链接文档
(226) ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly ‘将当前工作簿设置为只读
(227) ActiveWorkbook.AddToFavorites ‘将当前工作簿添加到收藏夹文件夹中
(228) ActiveSheet.CheckSpelling ‘在当前工作表中执行”拼写检查”
(229) ActiveSheet.Protect userinterfaceonly:=True ‘保护当前工作表
(230) ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName ‘在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名
(231) Worksheets(“Sheet1″).Range(“A1:G37″).Locked = False
Worksheets(“Sheet1″).Protect
‘解除对工作表Sheet1中A1:G37区域单元格的锁定
‘以便当该工作表受保护时也可对这些单元格进行修改
(232) Worksheets(“Sheet1″).PrintPreview ‘显示工作表sheet1的打印预览窗口
(233) ActiveSheet.PrintPreview Enablechanges:=False ‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮
(234) ActiveSheet.PageSetup.PrintGridlines = True ‘在打印预览中显示网格线
ActiveSheet.PageSetup.PrintHeadings = True ‘在打印预览中显示行列编号
(235) ActiveSheet.ShowDataForm ‘开启数据记录单
(236) Worksheets(“Sheet1″).Columns(“A”).Replace _
What:=”SIN”, Replacement:=”COS”, _
SearchOrder:=xlByColumns, MatchCase:=True ‘将工作表sheet1中A列的SIN替换为COS
(237) Rows(2).Delete ‘删除当前工作表中的第2行
Columns(2).Delete ‘删除当前工作表中的第2列
(238) ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell ‘在当前单元格左侧插入一条垂直分页符
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell ‘在当前单元格上方插入一条垂直分页符
(239) ActiveWindow.ScrollRow = 14 ‘将当前工作表窗口滚动到第14行
ActiveWindow.ScrollColumn = 13 ‘将当前工作表窗口滚动到第13列
(240) ActiveWindow.Close ‘关闭当前窗口
(241) ActiveWindow.Panes.Count ‘获取当前窗口中的窗格数
(242) Worksheets(“sheet1″).Range(“A1:D2″).CreateNames Top:=True ‘将A2至D2的单元格名称设定为A1到D1单元格的内容
(243) Application.AddCustomList listarray:=Range(“A1:A8″) ‘自定义当前工作表中单元格A1至A8中的内容为自动填充序列
(244) Worksheets(“sheet1″).Range(“A1:B2″).CopyPicture xlScreen, xlBitmap ‘将单元格A1至B2的内容复制成屏幕快照
(245) Selection.Hyperlinks.Delete ‘删除所选区域的所有链接
Columns(1).Hyperlinks.Delete ‘删除第1列中所有的链接
Rows(1).Hyperlinks.Delete  ‘删除第1行中所有的链接
Range(“A1:Z30″).Hyperlinks.Delete ‘删除指定范围所有的链接
(246) ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _
Address:=”C:\Windows\System32\Calc.exe”, ScreenTip:=”按下我，就会开启Windows计算器”, TextToDisplay:=”Windows计算器” ‘在活动单元格中设置开启Windows计算器链接
(247) ActiveCell.Value = Shell(“C:\Windows\System32\Calc.exe”, vbNormalFocus) ‘开启Windows计算器
(248) ActiveSheet.Rows(1).AutoFilter ‘打开自动筛选。若再运行一次，则关闭自动筛选
(249) Selection.Autofilter ‘开启/关闭所选区域的自动筛选
(250) ActiveSheet.ShowAllData ‘关闭自动筛选
(251) ActiveSheet.AutoFilterMode ‘检查自动筛选是否开启，若开启则该语句返回True
(252) ActiveSheet.Columns(“A”).ColumnDifferences(Comparison:=ActiveSheet. _
Range(“A2″)).Delete ‘在A列中找出与单元格A2内容不同的单元格并删除
(253) ActiveSheet.Range(“A6″).ClearNotes ‘删除单元格A6中的批注，包括声音批注和文字批注
(254) ActiveSheet.Range(“B8″).ClearComments ‘删除单元格B8中的批注文字
(255) ActiveSheet.Range(“A1:D10″).ClearFormats ‘清除单元格区域A1至D10中的格式
(256) ActiveSheet.Range(“B2:D2″).BorderAround ColorIndex:=5, _
Weight:=xlMedium, LineStyle:=xlDouble ‘将单元格B2至D2区域设置为蓝色双线
(257) Range(“A1:B2″).Item(2, 3)或Range(“A1:B2″)(2, 3) ‘引用单元格C2的数据
Range(“A1:B2″)(3)  ‘引用单元格A2
(258) ActiveSheet.Cells(1, 1).Font.Bold = TRUE ‘设置字体加粗
ActiveSheet.Cells(1, 1).Font.Size = 24 ‘设置字体大小为24磅
ActiveSheet.Cells(1, 1).Font.ColorIndex = 3 ‘设置字体颜色为红色
ActiveSheet.Cells(1, 1).Font.Italic = TRUE ‘设置字体为斜体
ActiveSheet.Cells(1, 1).Font.Name = “Times New Roman” ‘设置字体类型
ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 ‘将单元格的背景色设置为红色
(259) ActiveSheet.Range(“C2:E6″).AutoFormat Format:=xlRangeAutoFormatColor3 ‘将当前工作表中单元格区域C2至E6格式自动调整为彩色3格式
(260) Cells.SpecialCells(xlCellTypeLastCell) ‘选中当前工作表中的最后一个单元格
(261) ActiveCell.CurrentArray.Select ‘选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中
(262) ActiveCell.NumberFormatLocal = “0.000; [红色] 0.000″ ‘将当前单元格数字格式设置为带3位小数,若为负数则显示为红色
(263) IsEmpty (ActiveCell.Value) ‘判断活动单元格中是否有值
(264) ActiveCell.Value = LTrim(ActiveCell.Value) ‘删除字符串前面的空白字符
(265) Len(ActiveCell.Value) ‘获取活动单元格中字符串的个数
(266) ActiveCell.Value = UCase(ActiveCell.Value) ‘将当前单元格中的字符转换成大写
(267) ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) ‘将活动单元格中的字符串转换成小写
(268) ActiveSheet.Range(“C1″).AddComment ‘在当前工作表的单元格C1中添加批注
(269) Weekday(Date) ‘获取今天的星期,以数值表示,1-7分别对应星期日至星期六
(270) ActiveSheet.Range(“A1″).AutoFill Range(Cells(1, 1), Cells(10, 1)) ‘将单元格A1的数值填充到单元格A1至A10区域中
(271) DatePart(“y”, Date) ‘获取今天在全年中的天数
(272) ActiveCell.Value = DateAdd(“yyyy”, 2, Date) ‘获取两年后的今天的日期
(273) MsgBox WeekdayName(Weekday(Date)) ‘获取今天的星期数
(274) ActiveCell.Value = Year(Date) ‘在当前单元格中输入今年的年份数
ActiveCell.Value = Month(Date) ‘在当前单元格中输入今天所在的月份数
ActiveCell.Value = Day(Date) ‘在当前单元格中输入今天的日期数
(275) ActiveCell.Value = MonthName(1) ‘在当前单元格中显示月份的名称,本句为显示”一月”
(276) ActiveCell.Value = Hour(Time) ‘在当前单元格中显示现在时间的小时数
ActiveCell.Value = Minute(Time) ‘在当前单元格中显示现在时间的分钟数
ActiveCell.Value = Second(Time) ‘在当前单元格中显示现在时间的秒数
(277) ActiveSheet.Shapes(1).Delete ‘删除当前工作表中的第一个形状
(278) ActiveSheet.Shapes.Count ‘获取当前工作表中形状的数量
(279) ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText ‘改变当前工作表中第一个艺术字的方向
(280) ActiveSheet.Shapes(1).TextEffect.FontItalic = True ‘将当前工作表中第一个艺术字的字体设置为斜体
(281) ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, “三峡”,  _
“Arial Black”, 22#, msoFalse, msoFalse, 66#, 80).Select ‘在当前工作表中创建一个名为”三峡”的艺术字并对其进行格式设置和选中
(282) ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _
EndY:=100).Select ‘在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中
(283) ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select ‘在当前工作表中画一个左上角在(70,40),宽为130高为72的三角形并选中
(284) ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select ‘在当前工作表中画一个以点(70,40)为起点,宽130高72的矩形并选中
(285) ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _
Left:=70, Top:=40, Width:=130, Height:=72).Select ‘在当前工作表中画一个左上角在(70,40),宽为130高为72的椭圆
(286) ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255) ‘将当前工作表中第一个形状的线条颜色变为蓝色
(287) ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0) ‘将当前工作表中第2个形状的前景色设置为红色
(288) ActiveSheet.Shapes(1).Rotation = 20 ‘将当前工作表中的第1个形状旋转20度
(289) Selection.ShapeRange.Flip msoFlipHorizontal ‘将当前选中的形状水平翻转
Selection.ShapeRange.Flip msoFlipVertical ‘将当前选中的形状垂直翻转
(290) Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1 ‘将所选取的形状设置为第1种立体样式
(291) ActiveSheet.Shapes(1).ThreeD.Depth = 20 ‘将当前工作表中第一个立体形状的深度设置为20
(292) ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255) ‘将当前工作表中第1个立体形状的进深部分的颜色设为蓝色
(293) ActiveSheet.Shapes(1).ThreeD.RotationX = 60 ‘将当前工作表中的第1个立体形状沿X轴旋转60度
ActiveSheet.Shapes(1).ThreeD.RotationY = 60 ‘将当前工作表中的第1个立体形状沿Y轴旋转60度
(294) Selection.ShapeRange.ThreeD.Visible = msoFalse ‘将所选择的立体形状转换为平面形状
(295) Selection.ShapeRange.ConnectorFormat.BeginDisconnect ‘在形状中让指定的连接符起点脱离原来所连接的形状
(296) ActiveSheet.Shapes(1).PickUp ‘复制当前工作表中形状1的格式
(297) ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30). TextFrame.Characters.Text = “fanjy.blog.excelhome.net” ‘在工作簿中新建一个文本框并输入内容
(298) ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200). TextFrame.Characters.Text = “fanjy.blog.excelhome.net” ‘在当前工作表中建立一个水平文本框并输入内容
(299) ActiveSheet.Shapes.AddPicture “d:\sx.jpg”, True, True, 60, 20, 400, 300 ‘在当前工作表中插入一张d盘中名为sx的图片
(300) ActiveChart.ApplyCustomType xl3DArea ‘将当前图表类型改为三维面积图

下面给大家一个示例程序，可以自动读取表格第一行的数据登陆163邮箱。

代码如下：

Sub goto163()

Dim x, y As Integer

x = Selection.Row()

Dim urlstr As String

urlstr = Worksheets(“Sheet1″).Cells(x, 4).Value

With CreateObject(“InternetExplorer.Application”)
.Visible = True
.navigate urlstr

Do Until .Readystate = 4
    DoEvents
Loop

y = 1

.Document.Forms(0).All(“username”).Value = Worksheets(“Sheet1″).Cells(x, y)

y = y + 1

.Document.Forms(0).All(“password”).Value = Worksheets(“Sheet1″).Cells(x, y)

y = y + 1

.Document.Forms(0).All(“selType”).Value = Worksheets(“Sheet1″).Cells(x, y)

‘.Document.Forms(0).All(“登录邮箱”).Click

End With

End Sub

配合这个程序演示的表格内容如下：

[singlepic=102,403,60,web20,left]

近日在调测一个UTF8编码的中文Zen Cart网站时遇到一件怪事，网页显示文字正常，用ie的察看源文件（记事本打开）却发现乱码，firefox没有这个问题。经在网上多方查证和多次测试，解决了这个问题，其实是UTF-8文件的Unicode签名BOM(Byte Order Mark)问题。

BOM(Byte Order Mark)，是UTF编码方案里用于标识编码的标准标记，在UTF-16里本来是FF FE，变成UTF-8就成了EF BB BF。这个标记是可选的，因为UTF8字节没有顺序，所以它可以被用来检测一个字节流是否是UTF-8编码的。微软做这种检测，但有些软件不做这种检测，而把它当作正常字符处理。

微软在自己的UTF-8格式的文本文件之前加上了EF BB BF三个字节, windows上面的notepad等程序就是根据这三个字节来确定一个文本文件是ASCII的还是UTF-8的, 然而这个只是微软暗自作的标记, 其它平台上并没有对UTF-8文本文件做个这样的标记。

也就是说一个UTF-8文件可能有BOM，也可能没有BOM，那么怎么区分呢？三种方法。1，用UltraEdit-32打开文件，切换到十六进制编辑模式，察看文件头部是否有EF BB BF。2，用Dreamweaver打开，察看页面属性，看“包括Unicode签名BOM”前面是否有个勾。3，用Windows的记事本打开，选择 “另存为”，看文件的默认编码是UTF-8还是ANSI，如果是ANSI则不带BOM。

我找到Zen Cart的模版文件中的html_header.php，发现文件果然不带BOM，用UltraEdit-32另存为的方式加上BOM后，再上传html_header.php，一切正常。

注意用Convertz把gb2312文件转换成UTF-8文件时，默认设置是不带BOM的。不带BOM可能出现上述乱码问题，但是带 BOM，对于php的include文件要小心，会在php字节流前面多出EF BB BF，提前输出到显示器有可能会带来程序错误。一个解决方案是凡是被include的文件都保存为ANSI，主文件可以是UTF-8。要想把一个文件去掉 BOM，使用UlterEdit打开, 切换到十六进制编辑模式，把最前面三个字节(就是那该死的 EF BB BF)替换为20，保存（注意关闭保存时自动备份的功能），再切换到默认编辑模式，把最前面的三个空格去掉就可以了。

另外还学到一些编码的小知识：所谓的unicode保存的文件实际上是utf-16，只不过恰好跟unicode的码相同而已,但在概念上unicode与utf是两回事，unicode是内存编码表示方案，而utf是如何保存和传输unicode的方案。utf-16还分高位在前 (LE)和高位在后(BE)两种。官方的utf编码还有utf-32，也分LE和BE。非unicode官方的utf编码还有utf-7，主要用于邮件传输。utf-8的单字节部分是和iso-8859-1兼容的，这主要是一些旧的系统和库函数不能正确处理utf-16而被迫出来的，而且对英语字符来说，也节省保存的文件空间（以非英语字符浪费空间为代价）。在iso-8859-1的时候，utf8和iso-8859-1都是用一个字节表示的，当表示其它字符的时候，utf-8会使用两个或三个字节。 

 一、内核简介
　　内核，是一个操作系统的核心。它负责管理系统的进程、内存、设备驱动程序、文件和网络系统，决定着系统的性能和稳定性。
　　linux的一个重要的特点就是其源代码的公开性，所有的内核源程序都可以在 /usr/src/linux下找到，大部分应用软件也都是遵循GPL而设计的，你都可以获取相应的源程序代码。全世界任何一个软件工程师都可以将自己认为优秀的代码加入到其中，由此引发的一个明显的好处就是Linux修补漏洞的快速以及对最新软件技术的利用。而Linux的内核则是这些特点的最直接的代表。
　　想象一下，拥有了内核的源程序对你来说意味着什么？首先，我们可以了解系统是如何工作的。通过通读源代码，我们就可以了解系统的工作原理，这在Windows下简直是天方夜谭。其次，我们可以针对自己的情况，量体裁衣，定制适合自己的系统，这样就需要重新编译内核。在Windows下是什么情况呢？相信很多人都被越来越庞大的Windows整得莫名其妙过。再次，我们可以对内核进行修改，以符合自己的需要。这意味着什么？没错，相当于自己开发了一个操作系统，但是大部分的工作已经做好了，你所要做的就是要增加并实现自己需要的功能。在Windows下，除非你是微软的核心技术人员，否则就不用痴心妄想了。

二、内核版本号
　　由于linux的源程序是完全公开的，任何人只要遵循GPL，就可以对内核加以修改并发布给他人使用。Linux的开发采用的是集市模型（bazaar，与cathedral–教堂模型–对应），为了确保这些无序的开发过程能够有序地进行，Linux采用了双树系统。一个树是稳定树（stable tree），另一个树是非稳定树（unstable tree）或者开发树（development tree）。一些新特性、实验性改进等都将首先在开发树中进行。如果在开发树中所做的改进也可以应用于稳定树，那么在开发树中经过测试以后，在稳定树中将进行相同的改进。一旦开发树经过了足够的发展，开发树就会成为新的稳定树。开发数就体现在源程序的版本号中；源程序版本号的形式为x.y.z：对于稳定树来说，y是偶数；对于开发树来说，y比相应的稳定树大一（因此，是奇数）。到目前为止，稳定树的最高版本是2.4.18；开发树的最新版本是2.5.10。下载内核版本请访问http://www.kernel.org。

三、为什么重新编译内核
　　linux作为一个自由软件，在广大爱好者的支持下，内核版本不断更新。新的内核修订了旧内核的bug，并增加了许多新的特性。如果用户想要使用这些新特性，或想根据自己的系统度身定制一个更高效，更稳定的内核，就需要重新编译内核。
　　通常，更新的内核会支持更多的硬件，具备更好的进程管理能力，运行速度更快、 更稳定，并且一般会修复老版本中发现的许多漏洞等，经常性地选择升级更新的系统内核是 linux使用者的必要操作内容。
　　为了正确的合理地设置内核编译配置选项，从而只编译系统需要的功能的代码，一般主要有下面四个考虑：
　　自己定制编译的内核运行更快（具有更少的代码）
　　系统将拥有更多的内存（内核部分将不会被交换到虚拟内存中）
　　不需要的功能编译进入内核可能会增加被系统攻击者利用的漏洞
　　将某种功能编译为模块方式会比编译到内核内的方式速度要慢一些

四、内核编译模式
　　要增加对某部分功能的支持，比如网络之类，可以把相应部分编译到内核中（build-in），也可以把该部分编译成模块（module），动态调用。如果编译到内核中，在内核启动时就可以自动支持相应部分的功能，这样的优点是方便、速度快，机器一启动，你就可以使用这部分功能了；缺点是会使内核变得庞大起来，不管你是否需要这部分功能，它都会存在，这就是Windows惯用的招数，建议经常使用的部分直接编译到内核中，比如网卡。如果编译成模块，就会生成对应的.o文件，在使用的时候可以动态加载，优点是不会使内核过分庞大，缺点是你得自己来调用这些模块。

五、新版本内核的获取和更新
　　linux内核版本发布的官方网站是http://www.kernel.org。新版本的内核分两种，一种是full Source版本，另外一种是patch文件，即补丁。完整的内核版本比较大，一般是 tar.gz或者是.bz2文件，二者分别是使用g***或者b***2进行压缩的文件，使用时需要解压缩。patch文件则比较小，一般只有几十K到几百K,但是patch文件是针对于特定的版本的，你需要找到自己对应的版本才能使用。
　　编译内核需要root权限，以下操作都假定你是root用户。请把你需要升级的内核拷贝到/usr/src/下（下文中以2.4.18的内核的linux-2.4.18.tar.gz为例），命令为

#cp linux-2.4.18.tar.gz /usr/src

　　让我们先来查看一下当前/usr/src的内容，注意到有一个linux-2.4的符号链接，指向一个linux-2.4.7-10（以REDHAT7.2为例）的目录。这就是你所装linux的kernel源代码，删除这个链接。

　　现在解压我们下载的源程序文件。如果所下载的是.tar.gz（.tgz）文件，请使用下面的命令：

#tar -zxvf linux-2.4.18.tar.gz.tar.gz

　　如果你所下载的是.bz2文件，例如linux-2.4.0test8.tar.bz2，请使用下面的命令

#b***2 -d linux-2.4.18.tar.bz2
#tar -xvf linux-2.4.18.tar

　　文件将解压到/usr/src/linux目录中,我们把它稍作修改：

#mv linux linux-2.4.18
#ln -s linux-2.4.18 linux

　　如果下载的是patch文件，就可以进行patch操作（下面假设patch-2.4.18已经位于 /usr/src目录下了，否则你需要先把该文件拷贝到/usr/src下）：

#patch -p0 < patch-2.4.18

　　
六、内核编译
　　通常要运行的第一个命令是：

＃cd /usr/src/linux
＃make mrproper

　　该命令确保源代码目录下没有不正确的.o文件以及文件的互相依赖。由于我们使用刚下载的完整的源程序包进行编译，所以本步可以省略。而如果你多次使用了这些源程序编译内核，那么最好要先运行一下这个命令。
　　确保/usr/include/目录下的asm、linux和scsi等链接是指向要升级的内核源代码的。它们分别链向源代码目录下的真正的、该计算机体系结构（对于PC机来说，使用的体系结构是i386）所需要的真正的include子目录。如：asm指向/usr/src/linux/include/asm-i386 等。若没有这些链接，就需要手工创建，按照下面的步骤进行：

# cd /usr/include/
# rm -r asm linux scsi
# ln -s /usr/src/linux/include/asm-i386 asm
# ln -s /usr/src/linux/include/linux linux
# ln -s /usr/src/linux/include/scsi scsi

　　这是配置非常重要的一部分。删除掉/usr/include下的asm、linux和scsi链接后，再创建新的链接指向新内核源代码目录下的同名的目录。这些头文件目录包含着保证内核在系统上正确编译所需要的重要的头文件。现在你应该明白为什么我们上面又在/usr/src下 “多余”地创建了个名为linux的链接了吧？

　　接下来的内核配置过程比较烦琐，但是配置的适当与否与日后linux的运行直接相关，有必要了解一下一些主要的且经常用到的选项的设置。
　　
配置内核可以根据需要与爱好使用下面命令中的一个：

#make config（基于文本的最为传统的配置界面，不推荐使用）
#make menuconfig（基于文本选单的配置界面，字符终端下推荐使用）
#make xconfig（基于图形窗口模式的配置界面，Xwindow下推荐使用）
#make oldconfig（如果只想在原来内核配置的基础上修改一些小地方，会省去不少麻烦）

　　这三个命令中，make xconfig的界面最为友好，如果你可以使用Xwindow，那么就推荐你使用这个命令，界面如下：

　　如果你不能使用Xwindow，那么就使用make menuconfig好了。界面虽然比上面一个差点，总比make config的要好多了，下图为make menuconfig的界面：
　　选择相应的配置时，有三种选择，它们分别代表的含义如下：
　　Y－-将该功能编译进内核
　　N－-不将该功能编译进内核
　　M－-将该功能编译成可以在需要时动态插入到内核中的模块
　　如果使用的是make xconfig，使用鼠标就可以选择对应的选项。如果使用的是 make menuconfig，则需要使用空格键进行选取。你会发现在每一个选项前都有个括号, 但有的是中括号有的是尖括号，还有一种圆括号。用空格键选择时可以发现，中括号里要么是空，要么是”*”，而尖括号里可以是空，”*”和”M”。这表示前者对应的项要么不要，要么编译到内核里；后者则多一样选择，可以编译成模块。而圆括号的内容是要你在所提供的几个选项中选择一项。
　　在编译内核的过程中，最烦杂的事情就是这步配置工作了，很多新手都不清楚到底该如何选取这些选项。实际上在配置时，大部分选项可以使用其缺省值，只有小部分需要根据用户不同的需要选择。选择的原则是将与内核其它部分关系较远且不经常使用的部分功能代码编译成为可加载模块，有利于减小内核的长度，减小内核消耗的内存，简化该功能相应的环境改变时对内核的影响；不需要的功能就不要选；与内核关心紧密而且经常使用的部分功能代码直接编译到内核中。

至于选项，因为比较复杂，只是简单做一介绍，编译时应视具体情况，参考帮助的内容再加以选择。

1. Code maturity level options
　　代码成熟等级。此处只有一项：prompt for development and/or incomplete code/drivers，如果你要试验现在仍处于实验阶段的功能，比如khttpd、IPv6等，就必须把该项选择为Y了；否则可以把它选择为N。

2. Loadable module support
　　对模块的支持。这里面有三项：

　　Enable loadable module support：除非你准备把所有需要的内容都编译到内核里面，否则该项应该是必选的。
　　Set version inFORMation on all module symbols：可以不选它。
　　Kernel module loader：让内核在启动时有自己装入必需模块的能力，建议选上。

3. Processor type and features
　　CPU类型。内容蛮多的，不一一介绍了，有关的几个如下：

　　Processor family：根据你自己的情况选择CPU类型。
　　High Memory Support：大容量内存的支持。可以支持到4G、64G，一般可以不选。
　　Math emulation：协处理器仿真。协处理器是在386时代的宠儿，现在早已不用了。
　　MTTR support：MTTR支持。可不选。
　　Symmetric multi-processing support：对称多处理支持。除非你富到有多个CPU，否则就不用选了。

4. General setup
　　这里是对最普通的一些属性进行设置。这部分内容非常多，一般使用缺省设置就可以了。下面介绍一下经常使用的一些选项：

　　Networking support：网络支持。必须，没有网卡也建议你选上。
　　PCI support：PCI支持。如果使用了PCI的卡，当然必选。
　　PCI access mode：PCI存取模式。可供选择的有BIOS、Direct和Any，选Any吧。
　　Support for hot-pluggabel devices：热插拔设备支持。支持的不是太好，可不选。
　　PCMCIA/CardBus support：PCMCIA/CardBus支持。有PCMCIA就必选了。
　　System V IPC
　　BSD Process Accounting
　　Sysctl support：以上三项是有关进程处理/IPC调用的，主要就是System V和BSD两种风格。如果你不是使用BSD，就按照缺省吧。
　　Power Management support：电源管理支持。
　　Advanced Power Management BIOS support：高级电源管理BIOS支持。

5. Memory Technology Device（MTD）
　　MTD设备支持。可不选。

6. Parallel port support
　　并口支持。如果不打算使用串口，就别选了。

7. Plug and Play configuration
　　即插即用支持。虽然linux对即插即用目前支持的不如Windows好，但是还是选上吧，这样你可以拔下鼠标之类的体验一下Linux下即插即用的感觉。

8. Block devices
　　块设备支持。这个就得针对自己的情况来选了，简单说明一下吧：

　　Normal PC floppy disk support：普通PC软盘支持。这个应该必选。
　　XT hard disk support：
　　Compaq ***ART2 support：
　　Mulex DAC960/DAC1100 PCI RAID Controller support：RAID镜像用的。
　　Loopback device support：
　　Network block device support：网络块设备支持。如果想访问网上邻居的东西，就选上。
　　Logical volume manager（LVM）support：逻辑卷管理支持。
　　Multiple devices driver support：多设备驱动支持。
　　RAM disk support：RAM盘支持。

9. Networking options
　　网络选项。这里配置的是网络协议。内容太多了，不一一介绍了，自己看吧，如果你对网络协议有所了解的话，应该可以看懂的。如果懒得看，使用缺省选项（肯定要选中TCP/IP networking哦）就可以了。让我们看看，TCP/IP、ATM、IPX、DECnet、Appletalk……支持的协议好多哦，IPv6也支持了，Qos and/or fair queueing（服务质量公平调度）也支持了，还有kHTTPd，不过这些都还在实验阶段。

10. Telephony Support
　　电话支持。linux下可以支持电话卡，这样你就可以在IP上使用普通的电话提供语音服务了。记住，电话卡可和modem没有任何关系哦。

11. ATA/IDE/MFM/RLL support
　　这个是有关各种接口的硬盘/光驱/磁带/软盘支持的，内容太多了，使用缺省的选项吧，如果你使用了比较特殊的设备，比如PCMCIA等，就到里面自己找相应的选项吧。

12. SCSI support
　　SCSI设备的支持。我没有SCSI的设备，所以根本就不用选，如果你用了SCSI的硬盘/光驱/磁带等设备，自己找好了。

13. Fusion MPT device support
　　需要Fusion MPT兼容PCI适配器，不用选。

14. I2O device support
　　需要I2O接口适配器支持，在智能Input/Output（I2O）体系接口中使用。

15. Network device support
　　网络设备支持。上面选好协议了，现在该选设备了，可想而知，内容肯定多得很。还好还好，里面大概分类了，有ARCnet设备、Ethernet（10 or 100 Mbit）、Ethernet（1000Mbit）、Wireless LAN（non-hamradio）、Token Ring device、Wan interfaces、PCMCIA network device support几大类。我用的是10/100M的以太网，看来只需要选则这个了。还是10/100M的以太网设备熟悉，内容虽然多，一眼就可以看到我所用的RealTeck RTL-8139 PCI Fast Ethernet Adapter support，为了免得麻烦，编译到内核里面好了，不选M了，选Y。耐心点，一般说来你都能找到自己用的网卡。如果没有，你只好自己到厂商那里去要驱动了。

16. Amateur Radio support
　　配置业余无线广播。

17. IrDA（inf***ed）support
　　红外线支持。

18. ISDN subsystem
　　如果你使用ISDN上网，这个就必不可少了。

19. Old CD-ROM drivers（not SCSI、not IDE）
　　做的可真周到，原来那些非SCSI/IDE口的光驱谁还在用啊，自己选吧，用IDE的CD-ROM不用选。

20. Character devices
　　字符设备。这个内容又太多了，先使用缺省设置，需要的话自己就修改。把大类介绍一下吧：

　　I2C support：I2C是Philips极力推动的微控制应用中使用的低速串行总线协议。如果你要选择下面的Video For linux，该项必选。
　　Mice：鼠标。现在可以支持总线、串口、PS/2、C&T 82C710 mouse port、PC110 digitizer pad，自己根据需要选择。
　　Joysticks：手柄。即使在linux下把手柄驱动起来意义也不是太大，游戏太少了。
　　Watchdog Cards：虽然称为Cards，这个可以用纯软件来实现，当然也有硬件的。如果你把这个选中，那么就会在你的/dev下创建一个名为watchdog的文件，它可以记录你的系统的运行情况，一直到系统重新启动的1分钟左右。有了这个文件，你就可以恢复系统到重启前的状态了。
　　Video For linux：支持有关的音频/视频卡。
　　Ftape, the floppy tape device driver：
　　PCMCIA character device support：

21. File systems
　　文件系统。内容又太多了，老法子，在缺省选项的基础上进行修改。介绍以下几项：

　　Quota support：Quota可以限制每个用户可以使用的硬盘空间的上限，在多用户共同使用一台主机的情况中十分有效。
　　DOS FAT fs support：DOS FAT文件格式的支持，可以支持FAT16、FAT32。
　　ISO 9660 CD-ROM file system support：光盘使用的就是ISO 9660的文件格式。
　　NTFS file system support：ntfs是NT使用的文件格式。
　　/proc file system support：/proc文件系统是linux提供给用户和系统进行交互的通道，建议选上，否则有些功能没法正确执行。

　　还有另外三个大类都归到这儿了：Network File Systems（网络文件系统）、Partition Types（分区类型）、Native Language Support（本地语言支持）。值得一提的是Network File Systems里面的两种：NFS和***B分别是linux和Windows相互以网络邻居的形式访问对方所使用的文件系统，根据需要加以选择。

22. Console drivers
　　控制台驱动。一般使用VGA text console就可以了，标准的80*25的文本控制台。

23. Sound
　　声卡驱动。如果你能在列表中找到声卡驱动那自然最好，否则就试试OSS了。

24. USB supprot
　　USB支持。很多USB设备，比如鼠标、调制解调器、打印机、扫描仪等，在linux都可以得到支持，根据需要自行选择。

25. Kernel hacking
　　配置了这个，即使在系统崩溃时，你也可以进行一定的工作了。普通用户是用不着这个功能的。

　　配置完后，存盘退出，当然你也可以把现在的配置文件保存起来，这样下次再配置的时候就省力气了。

接下来是编译，输入以下命令。

#make dep
#make clean
#make bzImage或make zImage
#make modules
#make modules_install
#depmod -a

　　第一个命令make dep实际上读取配置过程生成的配置文件，来创建对应于配置的依赖关系树，从而决定哪些需要编译而那些不需要；第二命令make clean完成删除前面步骤留下的文件，以避免出现一些错误；make zImage和make bzImage则实现完全编译内核，二者生成的内核都是使用g***压缩的，只要使用一个就够了，它们的区别在于使用make bzImage可以生成大一点的内核。建议大家使用make bzImage命令。
　　后面三个命令只有在你进行配置的过程中，在回答Enable loadable module support (CONFIG_MODULES)时选了”Yes”才是必要的，make modules和make modules_install分别生成相应的模块和把模块拷贝到需要的目录中。
　　严格说来，depmod -a命令和编译过程并没有关系，它是生成模块间的依赖关系，这样你启动新内核之后，使用modprobe命令加载模块时就能正确地定位模块。

更新

　　经过以上的步骤，我们终于得到了新版本的内核。为了能够使用新版本的内核，我们还需要做一些改动：

#cp /usr/src/linux/System.map /boot/System.map-2.4.18
#cp /usr/src/linux/arch/i386/bzImage /boot/vmlinuz-2.4.18

　　以上这两个文件是我们刚才编译时新生成的。下面修改/boot下的两个链接System.map和vmlinuz，使其指向新内核的文件：

#cd /boot;rm -f System.map vmlinuz
#ln -s vmlinuz-2.4.18 vmlinuz
#ln -s System.map-2.4.18 System.map

Win+R 运行以下命令：net stop sysmain

Vista瞬间就安静了。

如果还需要进一步的话，那么就照着下边的做吧

1. 关闭Volume Shadow Copy服务，在Vista里很多文件、文件夹看属性里都有一个 早期版本 选项，我想这个功能对绝大多数人都没有用吧？Win+R打开services.msc ，找到Volume Shadow Copy，设置为禁用

2. 关闭所有分区的系统还原：在我的电脑 属性 高级里关闭所有分区的系统还原

3. 关闭所有分区的 磁盘清理 计划任务，在盘符上点属性，找到磁盘整理，把“计划磁盘整理”的钩去掉

4. 关闭包含大块文件的文件压缩和索引，在盘符/文件夹上点右键，取消 索引文件以加快搜索速度，在文件夹上点右键，属性，高级，关闭 压缩文件以节省空间 索引文件以加快搜索速度

5. 关闭Windows Search服务。Windows Search 该索引的不索引，不该索引的给你索引一大堆。

6. ReadyBoost这个功能有的时候也比较消耗磁盘，弄得我硬盘哐当哐当响。

总之Windows Vista默认状态真的很伤磁盘，大家注意观察硬盘的指示灯就会发现。