gpt4 book ai didi

VBS 添加右键计算文件MD5的实现代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 28 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS 添加右键计算文件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 。

  。

脚本如运行出错,请下载并注册CAPICOM组件 。

最后此篇关于VBS 添加右键计算文件MD5的实现代码的文章就讲到这里了,如果你想了解更多关于VBS 添加右键计算文件MD5的实现代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com