找回密码
 加入
搜索
查看: 2212|回复: 4

[AU3基础] Get 乱码 XmlHttp BinaryToString 尝试搜索论坛的方法都不无法解决

[复制链接]
发表于 2013-2-3 10:56:16 | 显示全部楼层 |阅读模式
#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 都试过了
发表于 2013-2-3 11:56:11 | 显示全部楼层
_INetGetSource函数内部已经BinaryToString转换过了 看下你就明白了

$sBody = BinaryToString(InetRead ( "http://www.apple.com.cn/", 1), 4)
MsgBox(0, 0, $sBody)
发表于 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
 楼主| 发表于 2013-2-3 12:35:31 | 显示全部楼层
回复 3# komaau3

谢谢老哥

测试一下      
        MsgBox(0, 0, $sBody)
                ClipPut($sBody)
剪贴板中的的内容 跟ConsoleWrite($str & @CRLF) 不一样。大部份丢失了...
 楼主| 发表于 2013-2-3 12:39:30 | 显示全部楼层
谢谢老哥的帮助 测试过程中
        ClipPut($sBody) 剪贴板中的数据大部分丢失 与 不一样ConsoleWrite($str & @CRLF)
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-26 01:42 , Processed in 0.098780 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表