Once you have downloaded this file, you can query it.
The following is the detailed code
Copy Code code as follows:
' Querycode.vbs By:fastslz
' Support batch query, can be placed in SendTo extended application
Set files=wscript.arguments
If files. Count=0 Then
MsgBox "Please drag the file you want to query into this file!" ", vbinformation," File Encoding query tool By:fastslz "
End If
For i=0 to files. Count-1
File=files (i)
Call Checkcode ("encoded as:")
Next
Function Checkcode (Usage)
Dim Slz
Set Slz = CreateObject ("ADODB.stream")
Slz. Type = 1
Slz. Mode = 3
Slz. Open
Slz. Position = 0
Slz. LoadFromFile file
Bin=slz.read (2)
If AscB (MidB (bin,1,1)) =&hef and AscB (MidB (bin,2,1)) =&hbb Then
Codes= "UTF-8"
ElseIf AscB (MidB (bin,1,1)) =&hff and AscB (MidB (bin,2,1)) =&hfe Then
Codes= "Unicode"
Else
Codes= "GB2312"
End If
WScript.Echo File,usage,codes
Slz. Close
Set Slz = Nothing
End Function
VBS code Download
