校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > VBS獲取文件MD5值(無組件)

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獲取文件MD5值(無組件)》,本文關鍵詞  VBS,獲取,文件,MD5,值,無,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《VBS獲取文件MD5值(無組件)》相關的同類信息!
  • 本頁收集關于VBS獲取文件MD5值(無組件)的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 裕民县| 长沙市| 清水县| 高雄市| 麻阳| 夹江县| 泰州市| 左贡县| 崇义县| 错那县| 锡林浩特市| 郴州市| 延川县| 安仁县| 海林市| 南宫市| 阳朔县| 万年县| 涿州市| 纳雍县| 肃南| 陈巴尔虎旗| 成都市| 嘉峪关市| 霍邱县| 弥渡县| 万州区| 五家渠市| 托克托县| 呼伦贝尔市| 酉阳| 和田市| 定安县| 淅川县| 兴宁市| 女性| 灌阳县| 济阳县| 蓝山县| 安庆市| 邹平县|