【急】读取网页源码只能读取一半【BUG】 !

showit · 发表于 2013-6-19 23:33:28

页面有百度百科就不可以完整读取源码 只能读取到一半 比如:
http://www.soso.com/q?pid=s.idx&cid=s.idx.se&w=%B0%D9%B6%C8

页面没有百度百科的就可以读取比如：
http://www.soso.com/q?pid=s.idx&cid=s.idx.se&w=%B4%F3%B9%BA%B7%BF%CA%B1%B4%F3

上源码：

凡是页面上有百科的关键词页面都不能读取完整，只能读取到一半，不知道是不是BUG!

不信你们就试试看，求解决方法。

***********************************源码代码
***********************************源码代码

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 objShell, 对象
.局部变量 objWbemLocator, 对象
.局部变量 objWMIService, 对象
.局部变量 wbemObjectSet, 对象
.局部变量 Url, 文本型
.局部变量 P, 变体型

objShell.创建 (“Microsoft.XMLHTTP”, )
Url ＝ “soso.com/q?pid=s.idx&cid=s.idx.se&w=%B4%F3%B9%BA%B7%BF%CA%B1%B4%F3” ' 网址
objShell.方法 (“open”, “GET”, Url, 假)
objShell.方法 (“send”, )
P ＝ objShell.读属性 (“responseBody”, )
编辑框1.内容＝到文本 (P.取字节集 ())

补充内容 (2013-6-20 00:22):
不是输出调试文本已经输出到编辑框了。