网页登录后取源文件错误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
而用浏览器里的查看-查看源文件则可以看到源文件，请问该如何用函数取得源文件呢？
（应该是同个网页有多个源文件，如果是，该如何逐个得到源文件呢？）