下面这个代码不需要组件一样可以获取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
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
- 原神:4.7新深渊攻略|配队与思路分享,难度有所上涨
- 群星《70/80/90年代经典老歌精选1100首》[MP3][10.5G]
- 孙露《观心》1:1母盘直刻限量版[低速原抓WAV+CUE][361M]
- 庄心妍《念》[WAV+CUE][388M]
- 赵坤宇《东方弦韵STS+TD》[WAV+CUE]
- YayaBey《TenFold》(2024)[WAV]
- [In-Akustik19007]FreshBlues-TheInakBlues-ConnectionVol.7(2013)[WAV+CUE]
- 林宥嘉《王 Love, Lord》[320K/MP3][115.78MB]
- 林宥嘉《王 Love, Lord》[FLAC/分轨][268.79MB]
- 群星《烈焰 影视原声带》[320K/MP3][226.72MB]
- 张国荣1997-狂恋张国荣国语经典[巨星发烧HI-END20bit系列][宝丽金]WAV+CUE
- [发烧音乐]顶级音质《尊宝试音碟》绝版限量非卖品[WAV+CUE]
- 群星《紫水晶试音王2号》三维环绕特效天碟[WAV+CUE]
- SNH48袁一琦《24》[320K/MP3][32.74MB]
- SNH48袁一琦《24》[FLAC/分轨][100.42MB]