关于XMLHTTP读取网页的问题

Question

http://arsenal.ek7.cn/cpc.php?task=lynet&id=173
这个页面用XMLHTTP如何能读取到

Answer 1

Private Sub Command1_Click()
    On Error GoTo err
    Dim http As Object    '建立xmlhttp对象
    Set http = CreateObject("MSXML2.XMLHTTP")    'http://arsenal.ek7.cn/cpc.php?task=lynet&id=173
    http.Open "GET", "http://www.baidu.com", False
    http.Send
    
    '判断http状态
    If http.readyState = 4 Then        
        Text1.Text = http.Responsetext         '成功获取网页源码！
        Exit Sub
    End If
err:
    MsgBox err.Number + "   " + err.DescriptionEnd Sub

Answer 2

嗯,截包看了下还好不是很bt步骤:
Get: http://arsenal.ek7.cn/cpa.php?task=lynet&id=173返回:<meta http-equiv="refresh" content="0;URL=cpc.php?task=lynet&id=173&t=1303622695">然后带上Http头refresh: http://arsenal.ek7.cn/cpc.php?task=lynet&id=173&t=1303622733Get:http://arsenal.ek7.cn/cpc.php?task=lynet&id=173&t=1303622530不知道LZ明白了没有待会给你上图吧:

Answer 3

服务器有时间限制所以只好做录像了看仔细哈http://www.sunshinebean.com/video/get.htm

Answer 4

感谢sunshinebean的热心回复
我也通过抓包了
不过感觉这样程序就复杂了
而且我也不太了解VB如何实现这一抓包的功能

Answer 5

抓包用httpwwatch,http://download.csdn.net/source/2688506这里可以下你不是用的xmlhttp嘛,那就按我写的那思路去做嘛他有跳转所以xmlhttp只能抓到跳的网页,但却执行不了跳,因为不是302要是觉得写代码麻烦那就去我博客下这个:http://www.sunshinebean.com/upload/v.asp?id=73自动生成代码,粘贴进去自己改改...那个是serverxmlhttp,不像xmlhttp继承ie的缓存和cookie的