Question

我在vb 6.0中有一个命令按钮，现在单击该命令按钮我想要读取URL的内容（表示该URL正在那里写的内容）。

代码：

Private Sub Command2_Click()
Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")

obj.Navigate2 "http://10.0.0.13/tuvrandom"
obj.Visible = True
End Sub

它将显示该页面的内容例如：“google”但我想阅读该页面所写的内容。

Answer 1

Private Sub Command2_Click()
    Dim obj As Object

    Set obj = CreateObject("InternetExplorer.Application")

    obj.Navigate2 "http://10.0.0.13/tuvrandom"
    obj.Visible = True
    While obj.Busy Or obj.ReadyState <> 4
        DoEvents
    Wend

    ' read the document property for what you want
    ' text = obj.Document.Body.InnerHtml
End Sub

您可以在此处浏览Internet Explorer对象模型http://msdn.microsoft.com/en-us/library/ms970456.aspx

如何在vb 6.0中阅读URL的内容

1 个答案: