个人中心
文章发布
退出
作者热门文章
- PageHelper返回参数详解
- Java 简介
- Java开发环境配置
- Java基础语法
27
4
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的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。
27
4
0
我有点困惑。在 : http://delphi.about.com/od/objectpascalide/l/blvkc.htm 它说“Space”的正确键是#20。试过了，但行不通。但是，将其替换为
我有一个 input 的 type="submit" 并且我希望当我点击(右键或左键点击)它时这个元素周围没有蓝色边框。 我在下面的chrome浏览器中添加了OK模式和not OK模式的图片: OK模
我想在右键单击选项卡标题时显示上下文菜单条。 但是，我没有找到检测选项卡标题点击的方法。 有人知道如何做到这一点吗？ 最佳答案 Private Sub tab1_MouseClick(sender A
我对编程还很陌生，正在尝试制作扫雷 GUI。游戏完美地右键单击 JToggleButton，在按钮上显示了一个代表炸弹的“B”，但是当我在鼠标监听器中用 setIcon() 替换 setText()
我正在尝试将一个按钮 float 到卡片的右侧。我希望它出现在右下角。 当我正确使用 float 时。它出现在父 div 之外，有没有办法正确定位它？
我正在使用 Struts2 标签和下面的代码使用 JS 计算并检查/验证在文本字段中输入的值。 它还会更新在 textfield 中输入的总数列表，这些由 onblur 处理和 onkeydown事件
我是一名优秀的程序员,十分优秀！