aa77dd@163.com

Const adTypeBinary = 1
Const adTypeText = 2

' accept a string and convert it to Bytes array in the selected Charset
Function StringToBytes(Str,Charset)
  ' Dim Stream
  Set Stream = CreateObject("ADODB.Stream")
  Stream.Type = adTypeText
  Stream.Charset = Charset
  Stream.Open
  Stream.WriteText Str
  Stream.Flush
  Stream.Position = 0
  ' rewind stream and read Bytes
  Stream.Type = adTypeBinary
  StringToBytes= Stream.Read
  Stream.Close
  Set Stream = Nothing
End Function

' accept Bytes array and convert it to a string using the selected charset
Function BytesToString(Bytes, Charset)
  ' Dim Stream
  Set Stream = CreateObject("ADODB.Stream")
  Stream.Charset = Charset
  Stream.Type = adTypeBinary
  Stream.Open
  Stream.Write Bytes
  Stream.Flush
  Stream.Position = 0
  ' rewind stream and read text
  Stream.Type = adTypeText
  BytesToString= Stream.ReadText
  Stream.Close
  Set Stream = Nothing
End Function

' This will alter charset of a string from 1-byte charset(as windows-1252)
' to another 1-byte charset(as windows-1251)
Function AlterCharset(Str, FromCharset, ToCharset)
  Dim Bytes
  Bytes = StringToBytes(Str, FromCharset)

	' HEXS=""
	' for i = 1 to LenB(Bytes)
		' HEXS = HEXS & hex(ascb(MidB (Bytes, i, 1))) & ","
	' next
	' MsgBox HEXS

  AlterCharset = BytesToString(Bytes, ToCharset)
End Function


Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "HEAD", "https://www.nyaa.se/?page=download&tid=613616"
objWinHttp.Send
MsgBox objWinHttp.GetResponseHeader("Content-Disposition")
' MsgBox LenB ( objWinHttp.GetResponseHeader("Content-Disposition") )
MsgBox AlterCharset( objWinHttp.GetResponseHeader("Content-Disposition"), "GB2312", "utf-8")
复制代码

aa77dd@163.com

数据如此: 这是什么编码我完全不知道

69,0,6E,0,6C,0,69,0,6E,0,65,0,3B,0,20,0,66,0,69,0,6C,0,65,0,6E,0,61,0,6D,0,65,0,3D,0,22,0,34,5A,AF,75,87,91,1C,94,3F,0,36,0,35,0,2E,0,72,0,61,0,72,0,2E,0,74,0,6F,0,72,0,72,0,65,0,6E,0,74,0,22,0,
复制代码

其中 34,5A,AF,75,87,91,1C,94,3F  按 UTF-16 LE 解码为 娴疯醇鐜

另外 ahk 也可以用
ComObjCreate("Msxml2.XMLHTTP")

之类

我觉得是 WinHttp 或者 VBS 的问题

Const adTypeBinary = 1
Const adTypeText = 2

' accept a string and convert it to Bytes array in the selected Charset
Function StringToBytes(Str,Charset)
  ' Dim Stream
  Set Stream = CreateObject("ADODB.Stream")
  Stream.Type = adTypeText
  Stream.Charset = Charset
  Stream.Open
  Stream.WriteText Str
  Stream.Flush
  Stream.Position = 0
  ' rewind stream and read Bytes
  Stream.Type = adTypeBinary
  StringToBytes= Stream.Read
  Stream.Close
  Set Stream = Nothing
End Function

' accept Bytes array and convert it to a string using the selected charset
Function BytesToString(Bytes, Charset)
  ' Dim Stream
  Set Stream = CreateObject("ADODB.Stream")
  Stream.Charset = Charset
  Stream.Type = adTypeBinary
  Stream.Open
  Stream.Write Bytes
  Stream.Flush
  Stream.Position = 0
  ' rewind stream and read text
  Stream.Type = adTypeText
  BytesToString= Stream.ReadText
  Stream.Close
  Set Stream = Nothing
End Function

' This will alter charset of a string from 1-byte charset(as windows-1252)
' to another 1-byte charset(as windows-1251)
Function AlterCharset(Str, FromCharset, ToCharset)
  Dim Bytes
  Bytes = StringToBytes(Str, FromCharset)
  
  AlterCharset = BytesToString(Bytes, ToCharset)
End Function


Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "HEAD", "https://www.nyaa.se/?page=download&tid=613616"
objWinHttp.Send
MsgBox objWinHttp.GetResponseHeader("Content-Disposition")
MsgBox LenB ( objWinHttp.GetResponseHeader("Content-Disposition") )

        HEXS=""
        for i = 1 to LenB(objWinHttp.GetResponseHeader("Content-Disposition"))
                HEXS = HEXS & hex(ascb(MidB (objWinHttp.GetResponseHeader("Content-Disposition"), i, 1))) & ","
        next
        MsgBox HEXS


MsgBox AlterCharset( objWinHttp.GetResponseHeader("Content-Disposition"), "GB2312", "utf-8")
复制代码

aa77dd@163.com

回复 13# 523066680

问题可能出现在 GetResponseHeader("Content-Disposition") 方法

req := ComObjCreate("Microsoft.XMLHTTP")
; Open a request with async enabled.
req.open("GET", "https://www.nyaa.se/?page=download&tid=613616", true)
; Set our callback function (v1.1.17+).
req.onreadystatechange := Func("Ready")
; Send the request.  Ready() will be called when it's complete.
req.send()
; /*
; If you're going to wait, there's no need for onreadystatechange.
; Setting async=true and waiting like this allows the script to remain
; responsive while the download is taking place, whereas async=false
; will make the script unresponsive.
while req.readyState != 4
    sleep 100
; */
#Persistent

Ready() {
    global req
    if (req.readyState != 4)  ; Not done yet.
        return
    if (req.status == 200 || req.status == 304) {
        MsgBox % "responseText: " req.responseText
		t:=req.GetResponseHeader("Content-Disposition")
        MsgBox % "Content-Disposition: " t
		
		}
    else
        MsgBox 16,, % "Status " req.status
    ExitApp
}
复制代码

aa77dd@163.com

回复 15# 523066680

有个贴吧

http://tieba.baidu.com/p/1618906999

这应该是个编码转换的 bug, 而非字节丢失

uni     GB
5A34 E6B5 娴
75AF B7E8 疯
9187 B4BC 醇