用_inetgetsource读取源码并用binarytostring转为utf-8格式后有乱码？

kevinch

如题

$s_Str=BinaryToString(_inetgetsource("http://so.56.com/index?key=Exceltip"),4)

得到的源代码不全，且有乱码，不知如何可以解决，现在只能用打开网页的方式取得代码暂时替代，请高手指点为盼。

qq1244521

一头雾水啊

kevinch

就是我想利用一楼的那段代码得到对应网页的源代码，网页是用utf-8格式编码的，我转换成utf-8格式后，其中很多中文消失了，代之为?，与打开网页取得的源代码不相同，也就是说有一部分中文消失不见啦，想看看大家有没有遇到这样的情况，以及是怎么解决的。毕竟打开网页再取代码不是一个好办法。

ceoguang

$s_Str=BinaryToString(_inetgetsource("http://so.56.com/index?key=Exceltip",False),4)

kevinch

ceoguang 发表于 2011-4-6 23:03

多谢指教，测试后再回复

kevinch

是我的inet.au3太落伍了吗？加了false后什么也取不到了，而函数提示里也没有第二个参数，版主能分享一下你的inet.au3吗？

ceoguang

Func _INetGetSource($s_URL, $bString = True)
        Local $sString = InetRead($s_URL, 1)
        Local $nError = @error, $nExtended = @extended
        If $bString Then $sString = BinaryToString($sString)
        Return SetError($nError, $nExtended, $sString)
EndFunc   ;==>_INetGetSource

hongshow

来学习下...............

auto

搜索，论坛有解决方案

kevinch

Func _INetGetSource($s_URL, $s_Header = '')
        
        If StringLeft($s_URL, 7) <> 'http://' And StringLeft($s_URL, 8) <> 'https://' Then $s_URL = 'http://' & $s_URL
        
        Local $h_DLL = DllOpen("wininet.dll")
        
        Local $ai_IRF, $s_Buf = ''
        
        Local $ai_IO = DllCall($h_DLL, 'int', 'InternetOpen', 'str', "AutoIt v3", 'int', 0, 'int', 0, 'int', 0, 'int', 0)
        If @error Or $ai_IO[0] = 0 Then
                DllClose($h_DLL)
                SetError(1)
                Return ""
        EndIf
        
        Local $ai_IOU = DllCall($h_DLL, 'int', 'InternetOpenUrl', 'int', $ai_IO[0], 'str', $s_URL, 'str', $s_Header, 'int', StringLen($s_Header), 'int', 0x80000000, 'int', 0)
        If @error Or $ai_IOU[0] = 0 Then
                DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IO[0])
                DllClose($h_DLL)
                SetError(1)
                Return ""
        EndIf
        
        Local $v_Struct = DllStructCreate('udword')
        DllStructSetData($v_Struct, 1, 1)
        
        While DllStructGetData($v_Struct, 1) <> 0
                $ai_IRF = DllCall($h_DLL, 'int', 'InternetReadFile', 'int', $ai_IOU[0], 'str', '', 'int', 256, 'ptr', DllStructGetPtr($v_Struct))        
                $s_Buf &= StringLeft($ai_IRF[2], DllStructGetData($v_Struct, 1))
        WEnd
        
        DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IOU[0])
        DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IO[0])
        DllClose($h_DLL)
        Return $s_Buf
EndFunc   ;==>_INetGetSource

这是我的Inet.au3里的_inetgetsource的代码，奇怪，为何差别这么大呢？

kevinch

大家再帮忙看看，搜索论坛上的帖子，好像结果还是未彻底解决的，难道真的只有打开网页读取源代码一途啦?

骗子

只用过一次_inetgetsource
但是得到的源代码和打开网页后读取HTML的内容有很大的差别，不知道是怎么回事