• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBS获取文件MD5值(无组件)

    下面这个代码不需要组件一样可以获取MD5值。

    复制代码 代码如下:

    Option Explicit
    Dim wi
    Dim file
    Dim file_size
    Dim file_attributes
    Dim file_version
    Dim file_hash
    Set wi = CreateObject("WindowsInstaller.Installer")
    file = "111.exe"
    file_size = wi.FileSize(file)
    file_attributes = wi.FileAttributes(file)
    file_version = wi.FileVersion(file)
    file_hash = GetFileHash(file)
    Set wi = Nothing
    MsgBox "File: " file vbCrLf _
    "Size: " file_size vbCrLf _
    "Attributes: " file_attributes vbCrLf _
    "Version: " file_version vbCrLf _
    "MD5: " file_hash
    Function GetFileHash(file_name)
    Dim file_hash
    Dim hash_value
    Dim i
    Set file_hash = wi.FileHash(file_name, 0)
    hash_value = ""
    For i = 1 To file_hash.FieldCount
    hash_value = hash_value BigEndianHex(file_hash.IntegerData(i))
    Next
    GetFileHash = hash_value
    Set file_hash = Nothing
    End Function
    Function BigEndianHex(Int)
    Dim result
    Dim b1, b2, b3, b4
    result = Hex(Int)
    b1 = Mid(result, 7, 2)
    b2 = Mid(result, 5, 2)
    b3 = Mid(result, 3, 2)
    b4 = Mid(result, 1, 2)
    BigEndianHex = b1 b2 b3 b4
    End Function

    您可能感兴趣的文章:
    • VBS 添加右键计算文件MD5的实现代码
    • VBS中通过调用CAPICOM对象实现SHA1MD5加密
    • 用VBS实现PHP的md5_file函数代码
    • VBS MD5加密算法代码
    • 一段提取用户名和md5的vbs代码
    上一篇:利用VBS实现显示系统服务列表
    下一篇:VBS调用Photoshop批量生成缩略图的代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS获取文件MD5值(无组件) VBS,获取,文件,MD5,值,无,