最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件HASH校验工具，比较麻烦，于是乎写了这个东东，文件较大时计算有点慢，文件的MD5值保存在剪贴板
最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件HASH校验工具，比较麻烦，于是乎写了这个东东，文件较大时计算有点慢，文件的MD5值保存在剪贴板！效果如图：
使用方法：
1.先将GetMD5.reg文件导入注册表以添加右键菜单，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.复制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
- 揭牌仪式讲话稿精选集锦5篇
- 揭牌仪式讲话稿精选集总5篇
- 揭牌仪式讲话稿精选合集5篇
- 揭牌仪式讲话稿精选汇总5篇
- 揭牌仪式讲话稿精选范文5篇
- 揭牌仪式讲话稿精选5篇
- 培训班开班讲话稿范文精选5篇
- 培训班开班讲话稿范文5篇
- 培训班开班讲话稿精选集总
- 培训班开班讲话稿精选合集
- 培训班开班讲话稿精选5篇
- 董事长年会致辞精选集锦
- 董事长年会致辞精选合集
- 董事长年会致辞精选集总
- 董事长年会致辞精选5篇
- 工作总结发言稿精选汇总
- 年终总结发言稿最新精选范文5篇
- 年终总结发言稿汇总集锦
- 年终总结发言稿精选范文5篇
- 领导致辞精选集总
- 领导致辞精选汇总
- 领导致辞精选5篇
- 任职表态发言稿精选范文合集2020
- 任职表态发言稿最新精选范文集锦
- 任职表态发言稿最新汇总范文5篇
- unique style
- unique user
- unique-user
- unique variance
- unique visitor
- unique-visitor
- unironed
- unirrigated
- uniserial
- uniseriate
- 走方
- 走方郎中
- 走时
- 走时气
- 走晤
- 走板
- 走样
- 走棋
- 走楼
- 走步
- 2013年北京清华大学技术经济及管理招聘研究人员启事
- 2013年北京清华大学经管学院经济系招聘研究人员
- 重庆奉节县2013年第二季度公招教育事业单位工作人员简章
- 2013年北京清华大学创新创业与战略系招聘研究人员公告
- 2013年遵义市第一人民医院招聘及招收规培人员体检合格人员名单公布
- 重庆潼南县2013年二季度面向社会公招事业单位工作人员岗位表
- 遵义市市直事业单位2013年招聘进入资格复审人员名单公示
- 2013年天津市南开区体育系统招聘计划表
- 遵义医学院实验2013年技术人员招聘启事
- 遵义市纪委监察局信息中心2013年选调事业单位人员简章