zhao_ming 发表于 2013-2-3 10:56:16

Get 乱码 XmlHttp BinaryToString 尝试搜索论坛的方法都不无法解决

#include <INet.au3>

Local $str = BinaryToString(_INetGetSource('http://www.apple.com.cn/'), 4)

MsgBox(0, "源码", $str)

ConsoleWrite($str & @CRLF)

ClipPut($str)
MsgBox(64,"粘贴到记事本还是很多乱码","粘贴到记事本还是很多乱码")

$s_Str=BinaryToString(_inetgetsource("http://www.apple.com.cn/",False),4)

;尝试搜索论坛的方法都不无法解决
microsoft.xmlhttp

BinaryToString

Get 乱码 XmlHttp BinaryToString 都试过了

komaau3 发表于 2013-2-3 11:56:11

_INetGetSource函数内部已经BinaryToString转换过了 看下你就明白了

$sBody = BinaryToString(InetRead ( "http://www.apple.com.cn/", 1), 4)
MsgBox(0, 0, $sBody)

komaau3 发表于 2013-2-3 12:30:23

Local $sHeader, $sBody
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")

$oHTTP.Open("GET", "http://www.apple.com.cn/", True)
$oHTTP.Send()
If $oHTTP.waitforResponse(10) Then
        $sHeader = $oHTTP.GetResponseHeader("Content-Type")
        ;MsgBox(0, 0, $sHeader)
        If StringInStr($sHeader, "gb2312") Or StringInStr($sHeader, "gbk") Then
                $sBody = BinaryToString($oHTTP.responseBody, 1)
        Else
                $sBody = BinaryToString($oHTTP.responseBody, 4)
        EndIf
        MsgBox(0, 0, $sBody)
Else
        $oHTTP.abort()
EndIf

zhao_ming 发表于 2013-2-3 12:35:31

回复 3# komaau3

谢谢老哥

测试一下      
      MsgBox(0, 0, $sBody)
                ClipPut($sBody)
剪贴板中的的内容 跟ConsoleWrite($str & @CRLF) 不一样。大部份丢失了...

zhao_ming 发表于 2013-2-3 12:39:30

谢谢老哥的帮助 测试过程中
        ClipPut($sBody) 剪贴板中的数据大部分丢失 与 不一样ConsoleWrite($str & @CRLF)
页: [1]
查看完整版本: Get 乱码 XmlHttp BinaryToString 尝试搜索论坛的方法都不无法解决