自动登录后地址变化无法获得网页源文件

Question

你说的自动登录是什么意思，好像都会转到这个网址啊：http://www.xxxx.com/index.html

Answer 1

不好意思啊，我想问的是：  现在有一个网页地址是类似于这样的：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
而用浏览器里的查看-查看源文件则可以看到源文件，请问该如何用函数取得源文件呢？
（应该是同个网页有多个源文件，如果是，该如何逐个得到源文件呢？）