利用VB读出WEB页中Input的数据

Question

我有一个程序,需要读出一个指定网页中的数据,以前我借用Excel中的"获取外部数据"来读出WEB页面中的数据,后来发现,每次读取数据都掉了其中Input语句中的字段内容,请教各位高手可有其它方法实现读出数据的方法?
谢谢

Answer 1

注:以上Input语句是指WEB页面中的Input

Answer 2

给你段代码看看！
Option Explicit
Private RealFormUrl As String
Private Const HomePage = "http://www.bloven.com/1.htm"Private Sub Form_Load()
    WebBrowser1.Navigate HomePage
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Select Case URL
    Case HomePage
        RealFormUrl = WebBrowser1.Document.All("baiduframe").src
        WebBrowser1.Navigate RealFormUrl
        
    Case RealFormUrl
        WebBrowser1.Document.search_form.word.Value = "autopy.ocx"
        WebBrowser1.Document.All("_si").Click
    End Select
End Sub

Answer 3

如果用webbrowser控件的话set ttt=webbrowser1.document
set nnn=ttt.getElementsByTagName("input")
for i=0 to nnn.length-1
thevalue=nnn(i).value '你要的数据
next