原帖由 walker1020 于 2009-9-1 15:04 发表
非常感谢nbkhic的提示。此问题已经超越了VBScript的内容。如果谁有时间和兴趣,可以继续研究下去,看看如何快速 准确地得到与通过 View Source得到完全一样的代码。
原帖由 lvguobin 于 2009-9-1 18:23 发表
Set XmlHttp1=CreateObject("MSxml2.XMLHTTP")
XmlHttp1.Open "GET","http://www.baidu.com",false
XmlHttp1.Send
b=XmlHttp1.ResponseText
msgbox b''''''b是网页的源码
简单吧?
原帖由 walker1020 于 2009-9-2 10:48 发表
非常感谢lvguobin的回复。下面是对上面的代码的验证结果:
1,对于 http://www.google.com/codesearc,通过上面的代码得到的结果与通过ViewSource得到的结果完全一致;对于 http://www.google.cn, 通过上面的代 ...
原帖由 lvguobin 于 2009-9-1 18:23 发表
Set XmlHttp1=CreateObject("MSxml2.XMLHTTP")
XmlHttp1.Open "GET","http://www.baidu.com",false
XmlHttp1.Send
b=XmlHttp1.ResponseText
msgbox b''''''b是网页的源码
简单吧?
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) | Powered by Discuz! X3.2 |