网页登录后取源文件错误500!
现在有一个网页地址是类似于这样的:http://xxx.xxxx.xxx/2这是个登录页面,用网上的这个函数HtmlStr("http://xxx.xxxx.xxx/2"):
Public Function HtmlStr$(URL$) '提取网页源码函数
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", URL, False
XmlHttp.Send
If XmlHttp.ReadyState = 4 Then HtmlStr = StrConv(XmlHttp.Responsebody, vbUnicode)
End Function
可以获得网页源文件
然而登录进去之后,地址变成这样的了:http://xxx.xxxx.xxx/2/sysadmin/LoginAction_authentication.action
再用函数HtmlStr("http://xxx.xxxx.xxx/2/sysadmin/LoginAction_authentication.action")取网页源文件则显示:error:500
而用浏览器里的查看-查看源文件则可以看到源文件,请问该如何用函数取得源文件呢?
(应该是同个网页有多个源文件,如果是,该如何逐个得到源文件呢?)