只要下載此文件后便可以查詢了.
下面是詳細代碼
復制代碼 代碼如下:
'QueryCode.vbs BY: fastslz
'支持批量查詢，可以放在SendTo擴展應用
set files=WScript.Arguments
if files.Count=0 Then
MsgBox "請將要查詢的文件拖動到這個文件里！ ", vbInformation, "文件編碼查詢工具 BY: fastslz"
end if
for i=0 To files.Count-1
file=files(i)
Call CheckCode (" 編碼為:")
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代碼下載
您可能感興趣的文章:- ACCESS的參數化查詢,附VBSCRIPT(ASP)和C#(ASP.NET)函數
- vbs版IP地理位置查詢小偷
- vbs版sql查詢分析器lcx作品
- 可以查詢系統用戶名sid的vbs
- 字符ANSI代碼查詢工具vbs版
- 通過IIS自帶工具Iisapp.vbs查詢哪個w3wp.exe站點占用資源(cpu或內存)
- VBS實現查詢服務的制造商
