Question

VB 获取指定网页文本框的内容

比如打开 http://www.hao123.com/haoserver/wotime.htm
我要将那个时间的文本框内容写到TEXT1里面，请问该如何操作呢。谢谢

Answer 1

添加一个WebBrowser（Microsoft Interntet Control）、一个Timer：

Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
Timer1.Enabled = False
Timer1.Interval = 500
WebBrowser1.Navigate "http://www.hao123.com/haoserver/wotime.htm"
End Sub

Private Sub Timer1_Timer()
Text1 = WebBrowser1.Document.getElementsByname("face")(0).Value
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If InStr(URL, "//") = 0 Then Exit Sub
Timer1.Enabled = True
Timer1_Timer
End Sub

如果不添加Timer，你可以参考上述代码进行修改。

如楼上所言，这个网站上显示的时间，其实就是你的本机时间：
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1 = Format(Now, "东8区时间：yyyy年m月d日 aaaa hh:mm:ss")
End Sub

追问

我是想要打开网页之后显示的时间。 能实现吗？

追答

上面的代码改一下就是：
Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
WebBrowser1.Navigate "http://www.hao123.com/haoserver/wotime.htm"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If InStr(URL, "//") = 0 Then Exit Sub
Text1 = WebBrowser1.Document.getElementsByname("face")(0).Value
End Sub

Answer 2

有三个消息要告诉你：
1.提问居然不给分？
2.这个网站上显示的时间，其实就是你的本机时间，所以你只要把 now 格式化一下，就能得到一样的东西，而且速度还更快。并且，你没发现网站上的年份是错误的吗？因为它没有计算年份，而是直接用 2010去代替。
3.如果一定要从这个网页里获取你要的东西。你可以用一个webbrowser 控件，加载完这个页面，然后 print webbrowser1.Document.getElementById("face").value.
看在你0分的份上，不告诉你怎么看出来的。如果你要明白这个是怎么来的，自己去看这个网页的源代码。

追问

晕死/。忘了加分数。如果您能祥细一点描述，我把身上有的分都给你。
分已经加了。

Answer 3

你得说说哪个网页，获取哪个数值，否则没人能给出你答案的

补充:

不知道你邮箱是多少，没法发你邮箱了

代码贴这里算了
添加个textbox，名为text1,设置multiline为true
scrollbars为3
再添加个webbrowser,这里名称为WB
引用microsoft html object library

代码：

Private Sub Form_Load()
Me.Caption = "加载数据..."
WB.Silent = True
WB.Navigate2 ""
End Sub

Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "" Then
Dim Str As String
Me.Caption = "OK"
Dim A As IHTMLElementCollection
Dim Tabel As HTMLTable
Set A = WB.Document.getElementsByTagName("table")
Set Table = A.Item(2)
Dim Row As HTMLTableRow, Cell As HTMLTableCell
For I = 0 To Table.rows.length - 1
Set Row = Table.rows(I)
Dim tmp As String
tmp = "时间:" & Row.cells(0).innerText & " 震级:" & Row.cells(1).innerText & " 纬度:" & Row.cells(2).innerText & " 经度:" & Row.cells(3).innerText & " 深度:" & Row.cells(4).innerText & " 地区:" & Row.cells(5).innerText & vbCrLf
Text1.Text = Text1.Text & tmp
Next
End If
End Sub

追问

有错误的。 你自己试试