以下代码转自C# 不知道为什么 判断结果不正确
Public Sub IsImagePs(ByVal ImageFilePath As String)
Dim buffer(5210) As Byte
Dim fs As New FileStream(ImageFilePath, FileMode.Open)
fs.Read(buffer, 0, buffer.Length)
fs.Close()
Dim str = buffer(4869).ToString() 'A 65
str += buffer(4870).ToString() 'd 100
str += buffer(4871).ToString() 'o 111
str += buffer(4872).ToString() 'b 98
str += buffer(4873).ToString() 'e 101
str += buffer(4874).ToString() ' 32
str += buffer(4875).ToString() 'P 80
str += buffer(4876).ToString() 'h 104
str += buffer(4877).ToString() 'o 111
str += buffer(4878).ToString() 't 116
str += buffer(4879).ToString() 'o 111
str += buffer(4880).ToString() 's 115
str &#