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错误。请问一下，各位高手如何处理啊？谢谢

直接浏览地址现在是可以的。