确定是WINDOWS的可执行文件

资讯 2008-03-17 驱动中国若水 999 次阅读 0 条评论

在文件的第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

文件执行确定 As String Dim #fh fh

本文价值 ★★★★★ — 成为第一个评分的人

登录后为本文打分

网友评论0 条评论

正在回复的评论取消

评论加载中…

🔐

登录后参与互动

评论、点赞均可赚积分
连续签到、邀请好友也有奖励 🎁

电脑端: 微信扫码登录微信内: 一键登录

确定是WINDOWS的可执行文件

登录后参与互动

微信扫一扫