咨询一个网抓的问题

615769472

咨询一个网抓的问题。原帖地址 ： http://club.excelhome.net/thread-1217940-1-1.html


我不是非常理解这段代码，请帮我指点一下我的理解是否正确，谢谢。
将 类XhrConn 中的 Ready方法设置为默认方法，并赋予 XMLHTTP.onreadystatechange，
每当XMLHTTP自身的属性数值有变化时候，它就会自动激发自己的 onreadystatechange 方法，
也就随之运行了 类XhrConn 中的 ready方法。我的理解对吗？

**********************************************************************************

模块
Dim oXhr As XhrConn

Sub x()
    Set oXhr = New XhrConn
    With oXhr
        .Url = "http://www.baidu.com"
       .xhr.onreadystatechange = oXhr
        .go
    End With
End Sub

XhrConn 类
Public xhr As XMLHTTP, Url$

Private Sub Class_Initialize()
    Set xhr = New XMLHTTP
End Sub

Sub Ready() ' 默认方法
    If xhr Is Nothing Then Exit Sub
    If xhr.readyState = 4 Then
        If xhr.Status = 200 Then
            Debug.Print "OK", Left(xhr.responseText, 50)
        Else
            Debug.Print xhr.readyState, xhr.Status
        End If
    End If
End Sub

Sub go()
    If xhr Is Nothing Then Exit Sub
    xhr.Open "get", Url, True
    xhr.send
End Sub

duquancai

确实没有看懂！！！

一碧清蓝

真的没看懂，呵呵