VB中使用XMLHTTP对象采集数据和网络不通时提示错误...

趋明 2012-02-21

展开全文

Private Sub Command1_Click()
    On Error GoTo err:
    Dim SendStr As String, XMLObject, WebURL As String, ReadFileText As String
    WebURL = "http://www.baidu.com/"
    Set XMLObject = CreateObject("Microsoft.XMLHTTP")
    XMLObject.open "GET ", WebURL, False
    XMLObject.setRequestHeader "CONTENT-TYPE ", "application/x-www-form-urlencoded "
    XMLObject.setRequestHeader "content-length ", Len(SendStr)
    XMLObject.Send SendStr
    Do Until XMLObject.ReadyState = 4
        DoEvents
    Loop
    Text1.Text = StrConv(XMLObject.ResponseBody, vbUnicode)
    Exit Sub
err:
    If err.Number = -2146697211 Then    '未联网提示
        MsgBox "未联网！请检查网络…… ", vbInformation, ""
        Exit Sub
    End If
End Sub