jiangllllp 发表于 2014-9-1 09:50:02

Microsoft.XMLHTTP open函数get一个网址中有中文字出现问题，急切求助

Microsoft.XMLHTTP open函数get一个网址中有中文字出现问题，急切求助
代码如下：
$tempURL=“http://s.toocle.com/search/index.php?_d=company&_a=company_s_search&f=search&terms=江苏&p=1”
Local $xmlHTTP1 = ObjCreate("Microsoft.XMLHTTP")
;$xmlHTTP1.Open ("GET", $tempURL, False)
$xmlHTTP1.Open ("GET", BinaryToString($tempURL), False)
$xmlHTTP1.send("")
If $xmlHTTP1.readyState =4 Then
        $sHTML=$xmlHTTP1.responseText;得到网页源代码，存入变量$sHTML中
Else
        $sHTML=""
EndIf
$xmlHTTP1 = 0 ;清除对象

为什么这个简单的程序执行下来不是我要打开的那个网页呢 是不是中文不能这样直接处理的，望高手帮忙解决下，急呀！

jiangllllp 发表于 2014-9-1 09:56:38

忘高手帮忙解决下呀，真是急死人了

kevinch 发表于 2014-9-1 10:11:43

url赋值那段，全角引号+不正确的地址

haijie1223 发表于 2014-9-1 14:09:50

Dim $sHTML = "", $sUrl = "http://s.toocle.com/search/index.php?_d=company&_a=company_s_search&f=search&terms=江苏&p=1"
Dim $oxmlhttp = ObjCreate("Microsoft.XMLHTTP")
$oxmlhttp.Open("GET", $sUrl, False)
$oxmlhttp.send()
If $oxmlhttp.readyState = 4 Then $sHTML = $oxmlhttp.responseText
$oxmlhttp = 0
ConsoleWrite($sHTML)

jiangllllp 发表于 2014-9-18 10:35:15

回复 4# haijie1223


    谢谢各位，已经解决了

jiangllllp 发表于 2014-9-18 12:30:56

回复 4# haijie1223


要把江苏这两个中文字转换成UTF-8码才能正常访问，有些网页需要转换成GB2312

haijie1223 发表于 2014-9-18 18:14:31

回复 6# jiangllllp


    根据网页的编码不同，自己转化就好了~
页: [1]
查看完整版本: Microsoft.XMLHTTP open函数get一个网址中有中文字出现问题，急切求助