
CODE: [Copy to clipboard]顺便说以下,获源代码为什么不用 responseText 属性呢 ?a = "msgbox BytesToBstr(Http.responseBody,""UTF-8"")"
execute a
CODE: [Copy to clipboard]Set http = CreateObject("Msxml2.XMLHTTP")
http.open "POST", "http://m.renren.com/", false
http.send
msgbox http.responseText
CODE: [Copy to clipboard]msgbox string
a=string
msgbox a
function string()
string="test..."
end function
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |