网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

标题	VBS添加右键计算文件MD5的实现代码
内容	最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件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
随便看	2013年宿迁市宿豫区基层公共服务公益性岗位面试的通知 广西壮族自治区展览馆2013年招聘工作人员计划调整公告 南通海门市2013年基层公益性岗位招聘政审人员名单 2013年广元市青川县考调县健康教育所/县城市生活垃圾填埋场人员公告 2013年河池市强制隔离戒毒所招聘启事 2013年宁波市慈城镇卫星城市招聘合同制人员拟录人员公示 2013年连云港传媒网招聘启事 百色市平果县2013年事业单位公招拟聘用人员公示(第二批) 2013年芜湖市芜湖县高校毕业生服务基层公益性岗位招聘第二次递补人员公示 2013年厦门市集美区杏林街道招聘违建巡查员综合成绩及体检名单公示 淮安市淮阴区事业单位2014年招聘人员计划申报表 2013年宁波市公路管理局招聘编外高速路政管理人员简章 呼和浩特市托克托县2013年第二批招考聘用事业单位工作人员简章 2013年深圳市宝安区应急管理办公室拟聘临聘人员人选公告 2013年厦门市湖里公安分局招聘编外补充性工作人员简章 2013年厦门市集美区杏林街道土地巡查员招聘简章补充通知 深圳市光明新区土地整备中心2013年11月招聘普通雇员公告 湘潭市2013年财政局事业单位招聘成绩公示 2013年崇左市无线电管理处招聘编外工作人员公告 安徽电子信息职业技术学院2013年省直事业单位招聘实施方案 防城港市2013年事业单位招聘人员考试减少和取消部分招聘计划公告 2013年钦州市市直事业单位招聘考试面试人选公告 防城港市2013年事业单位招聘人员考试减少和取消招聘计划表 2013年南京市南广学院招聘公告 2013年南京水利科学研究院农村水利科学研究推广中心招聘公告 uncontrolled uncontrolled experiment uncontrolled growth uncontroversial uncontroversially unconventional unconventional approach unconventionally unconventional source unconventional style 怡然自得 怡然自若 怡神 急 急三枪 急三火四 急不及待 急不可待 急不如快 急不择言 巧用方法认生词，阅读理解不再难 英语语法干货：基本的语法形态，基础的句子的类型 英语写作技巧——巧用谚语 小学英语提高黄金法则合集 英语快速学习法 英语的学习技巧 儿童英语启蒙，首选儿童英语歌曲 学英语最好的方法 一对一在线学英语口语的方法 想要学好英语的建议和方法

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。