Cách thêm kiểm tra 32/64 bit vào menu ngữ cảnh của bạn
Tạo một tệp văn bản có tên exetest.reg và chứa mã này:
Windows Registry Editor Version 5.00
; What will appear in the contextual menu when right-clicking on a .exe file
[HKEY_CLASSES_ROOT\exefile\shell\command32_64]
@="32/64 bit test"
; What to do with it
; here, %1 is the file given as argument of the script
[HKEY_CLASSES_ROOT\exefile\shell\command32_64\command]
@="\"c:\\temp\\x86TestStart.bat\" \"%1\""
Tạo một tệp văn bản có tên x86TestStart.batchỉ chứa dòng mã này và lưu nó trong C: \ temp:
c:\temp\x86or64.vbs %1
Tạo một tệp văn bản có tên x86or64.vbschứa mã này và lưu nó trong C: \ temp:
rem Reading binary file in VBScript: http://stackoverflow.com/questions/21249440/modify-first-two-bytes-of-a-file-using-vbscript
rem Info on executables: https://dmoj.ca/problem/exe
rem x86/64 signature is located dinamycally; its position is addressed
rem from bytes in 0x3C-0x3D position.
rem Possible signatures;
rem "PE..L" (hex code: 50.45.00.00.4C) = 32 bit
rem "PE..d†" (hex code: 50.45.00.00.64.86) = 64 bit
' ------------------------------------
' Source code by Jumpkack 2015
' ------------------------------------
' Read all arguments from command line:
Set args = Wscript.Arguments
' Store first argument (full path to file)
FileName = args(0)
' Find address of executable signature:
FirstChars = readBinary(FileName)
FirstChars = FirstChars
Addr1 = asc(mid(FirstChars,61,1))
Addr2 = asc(mid(FirstChars,62,1))
AddrFinal = Addr2*256 + Addr1 + 1
' Check signature:
if ucase(hex(asc(mid(FirstChars,AddrFinal+4,2)))) = "4C" then Wscript.Echo Filename & " is a 32 bit executable."
if ucase(hex(asc(mid(FirstChars,AddrFinal+4,2)))) = "64" then Wscript.Echo Filename & " is a 64 bit executable."
Function readBinary(path)
Dim a, fso, file, i, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.getFile(path)
If isNull(file) Then
wscript.echo "File not found: " & path
Exit Function
End If
Set ts = file.OpenAsTextStream()
'a = makeArray(file.size)
a=""
i = 0
While (Not ts.atEndOfStream) and (i<60000)
'a(i) = ts.read(1)
a = a + ts.read(1)
i = i + 1
Wend
ts.close
readBinary = a
End Function
Nhấp đúp chuột vào tập tin exetest.reg: một khóa mới sẽ được thêm vào sổ đăng ký windows:
[HKEY_CLASSES_ROOT\exefile\shell\command32_64\command]
Nó sẽ xuất hiện dưới dạng " 32/64 bit test " trong menu ngữ cảnh khi nhấp chuột phải vào tệp thực thi.
Nhấp vào mục sẽ dẫn đến bắt đầu tệp bó c:\\temp\\x86TestStart.bat\, bắt đầu tệp VBscript x86or64.vbs, đọc chữ ký exe và hiển thị kết quả.
Nếu bạn không thể hoặc không muốn giả mạo đăng ký, chỉ cần sao chép tệp .vbs trong thanh QuickLaunch và kéo tệp thực thi trên nó.
