确定是WINDOWS的可执行文件
AI摘要
由 AI 生成 · 仅供参考
在文件的第24字节，如果为40h，就是Windows的可执行文件。 Function WinExe(ByVal Exe As String) As Integer Dim fh As Integer Dim t As String*1 fh=FreeFile Open Exe For Binary As #fh Getfh,25,t Close #fh WinExe=(Asc(t)=H40) End Function
在文件的第24字节，如果为40h，就是Windows的可执行文件。
Function WinExe(ByVal Exe As String) As Integer
Dim fh As Integer
Dim t As String*1
fh=FreeFile
Open Exe For Binary As #fh
Getfh,25,t
Close #fh
WinExe=(Asc(t)=&H40&)
End Function
版权声明:本文由驱动中国整理发布,转载需注明出处与原文链接。如有疑问请联系
editor@qudong.com。
本文价值
★★★★★
—
成为第一个评分的人
登录后为本文打分
评论加载中…