vbs的xmlHttp.responseText无效的调用过程

最新推荐文章于 2023-01-07 17:06:53 发布

最新推荐文章于 2023-01-07 17:06:53 发布 · 434 阅读

项目管理专栏收录该内容

28 篇文章

订阅专栏

本文深入探讨了使用VBS脚本进行HTTP请求与响应处理的实践，包括设置请求头、发送请求及解析响应文本。讨论了编码错码导致的异常情况及其解决方案，特别强调了在不同编码环境下确保数据正确传输的重要性。

vbs真是门恶心人的语言，


set xmlhttp = CreateObject("MSXML2.XMLHTTP.3.0")
xmlhttp.open "GET",url, false
			xmlhttp.SetRequestHeader "Content-Type","text/xml;charset=utf-8"
			xmlhttp.setRequestHeader   "Cookie",HttpCookie
			log.log "http send "
			xmlhttp.send
			log.log "http.Status=" &xmlhttp.Status
			if xmlhttp.Status<>200 then
				log.log "获取数据失败。。。"
				exit sub
			end if
			log.log "http complete"
//log.log xmlhttp.ResponseText

这段代码有的时候成功，有的时候居然不成功。

800A0005无效的调用过程。
[img]http://dl2.iteye.com/upload/attachment/0106/2076/b4f54131-2c1a-3867-8db3-a1d1605cb667.jpg[/img]

但是注掉最后一行
log.log xmlhttp.ResponseText
就可以正常执行，
实际原因是由于编码错码导致，编码错误的提示，居然是错误的过程调用。。。
实在是误导开发者。

以下为编码转换代码：


dim bts
			bts = xmlhttp.ResponseBody
			xml = BytesToBstr(bts,"gbk")
			log.log bts


	'使用Adodb.Stream处理二进制数据
Function BytesToBstr(strBody,CodeBase)
        dim objStream
        set objStream = CreateObject("Adodb.Stream")
        objStream.Type = 1
        objStream.Mode =3
        objStream.Open
        objStream.Write strBody
        objStream.Position = 0
        objStream.Type = 2
        objStream.Charset = CodeBase
        BytesToBstr = objStream.ReadText 
        objStream.Close
        set objStream = nothing
End Function