VBS添加右鍵計算文件MD5的實(shí)現(xiàn)代碼

    最近相關(guān)的備份比較頻繁，為了校驗(yàn)文件的完整性，老是要打開某文件HASH校驗(yàn)工具，比較麻煩，于是乎寫了這個東東，文件較大時計算有點(diǎn)慢，文件的MD5值保存在剪貼板
    最近相關(guān)的備份比較頻繁，為了校驗(yàn)文件的完整性，老是要打開某文件HASH校驗(yàn)工具，比較麻煩，于是乎寫了這個東東，文件較大時計算有點(diǎn)慢，文件的MD5值保存在剪貼板！效果如圖：
    
    使用方法：
    1.先將GetMD5.reg文件導(dǎo)入注冊表以添加右鍵菜單，GetMD5.reg代碼如下：
    代碼如下:
    Windows Registry Editor Version 5.00
    [HKEY_CLASSES_ROOT\*\shell\HASH(&G)\command]
    @="WScript.exe //nologo c:\\windows\\system32\\GetMD5.vbs \"%1\""
    2.復(fù)制GetMD5.vbs到c:\windows\system32\，即完成所有操作，GetMD5.vbs代碼如下：
    代碼如下:
    Public MD5Value
    MD5Sum(WScript.Arguments(0))
    SetClipboardText("MD5: " & MD5Value & ", FilePath: " & WScript.Arguments(0))
    Function MD5Sum(filename)
    Dim MyStream, MyHashed, MD5Value
    Set MyStream = CreateObject("ADODB.Stream")
    MyStream.Type = 1
    MyStream.Open()
    MyStream.LoadFromFile(filename)
    Set MyHashed = CreateObject("CAPICOM.HashedData")
    MyHashed.Algorithm = 3
    MyHashed.Hash(MyStream.Read())
    MyStream.Close
    MD5Value = MyHashed.Value
    End Function
    Sub SetClipboardText(Text)
    Dim Word
    Set Word = CreateObject("Word.Application")
    Word.Documents.Add
    Word.Selection.Text = Text
    Word.Selection.Copy
    Word.Quit False
    End Sub