我的VB程序里是这样写的:
Inet1.URL = "http://www.sina.com"
Dim b() As Byte
b() = Inet1.OpenURL(Inet1.URL, icByteArray)
Open App.Path & "\xml\sina.htm" For Binary Access Write As #1
Put #1, , b()
Close #1
上面的程序返回没问题,sina.htm有180多K
换成:
Inet1.URL = "http://server:8080/jiangdu/scms.jsp?id=aaa&serviceType=priceAllQuery&argslen=0"
Dim b() As Byte
b() = Inet1.OpenURL(Inet1.URL, icByteArray)
Open App.Path & "\xml\sina.htm" For Binary Access Write As #1
Put #1, , b()
Close #1程序返回的sina.htm只有1K,请问为什么,应该是5K多一点但我在IE地址栏里写:
http://server:8080/jiangdu/scms.jsp?id=aaa&serviceType=priceAllQuery&argslen=0
返回的是正确的,请问高手,问题出在哪?
Inet1.URL = "http://www.sina.com"
Dim b() As Byte
b() = Inet1.OpenURL(Inet1.URL, icByteArray)
Open App.Path & "\xml\sina.htm" For Binary Access Write As #1
Put #1, , b()
Close #1
上面的程序返回没问题,sina.htm有180多K
换成:
Inet1.URL = "http://server:8080/jiangdu/scms.jsp?id=aaa&serviceType=priceAllQuery&argslen=0"
Dim b() As Byte
b() = Inet1.OpenURL(Inet1.URL, icByteArray)
Open App.Path & "\xml\sina.htm" For Binary Access Write As #1
Put #1, , b()
Close #1程序返回的sina.htm只有1K,请问为什么,应该是5K多一点但我在IE地址栏里写:
http://server:8080/jiangdu/scms.jsp?id=aaa&serviceType=priceAllQuery&argslen=0
返回的是正确的,请问高手,问题出在哪?
解决方案 »
- 请问VB.Net中如何使两个文本框同步显示相同的内容?
- vb怎么样直接获取键盘输入??
- 报表9.0里面的特殊字段<总页数>,怎么用代码写呢?用VB6.0的.大侠们.帮帮忙啊,多少分都行.
- 怎么解决读取xml里的中文的乱码问题
- XDJM帮帮吗吧!如何取得局域网中的装有SqlServer的计算机名称!来者有分!!!
- 初学水晶报表问题:登陆失败了:(
- 怎样屏蔽掉窗体的关闭按钮,在窗体标题栏上显示出来,不过按下去之后不关闭窗体。
- 优秀的有智慧的您想有自已的公司吗?有头脑的您不想自已做老板吗?想开公司的请与我联系
- 高手帮帮忙,谢谢!
- *** 高分,关于程序中错误捕获的问题,一定给分! ***
- 多页水晶报表问题,很急,就差一步了
- 在VB里如何处理图片啊
你在IE里浏览后另存为然后再看文件大小。还有可能是你的网页代码嵌套了框架之类的。