xml访问网页时提示403错误，返回字符串“hi",如何处理？

Private Sub Command10_Click()
    Dim xml As Object
    Set xml = CreateObject("MSXML2.serverXMLHTTP")
    xml.Open "GET", "http://video.shishicai.cn/haoma/cqssc/list/120.aspx", True
    xml.send
    Do Until xml.ReadyState = 4
        DoEvents
    Loop
  Text2.Text = xml.ResponseText
End Sub


以前用上面这段代码可以抓取该网页数据，一直很正常。现在则不可以了。返回”hi".我用浏览器打开时显示403错误。请问一下，各位高手如何处理啊？谢谢
扒拉人家的东西，大概让管理员发现了 浏览器能打开的情况下再用代码打开网址试下吧

补充：VB ,  网络编程