一个使用WebBrowser控件获取Web数据的例子

zhuyiwen · 发表于 2004-1-21 08:44:00

Option Compare Database
Option Explicit

Private Sub cmdQry_Click()
If IsNull(txtvessel) Or txtbl_no = "" Then
      W1.Document.Form1.vessel.value = ""
Else
      W1.Document.Form1.vessel.value = Me.txtvessel
End If

If IsNull(txtvoyage) Or txtbl_no = "" Then
      W1.Document.Form1.voyage.value = ""
Else
      W1.Document.Form1.voyage.value = Me.txtvoyage
End If

If IsNull(txtbl_no) Or txtbl_no = "" Then
      MsgBox "必须输入提单号！", vbCritical, Me.Caption
      txtbl_no.SetFocus
Else
      W1.Document.Form1.bl_no.value = Me.txtbl_no
      W1.Document.Form1.search.Click
End If

End Sub

Private Sub Form_Load()
W1.Navigate "http://www.portinfo.net.cn/spinfo/premanifest.php";
End Sub

Private Sub W1_DownloadComplete()

cmdQry.Enabled = True

On Error GoTo exitsub
Dim txtData As String

txtData = Me.W1.Object.Document.body.innertext

If InStr(txtData, "查询结果") > 0 Then
      Dim n1 As Integer
      Dim n2 As Integer

      n1 = InStr(txtData, "查询结果")
      n2 = InStr(txtData, "查询时间")

      txtData = Mid(txtData, n1, n2 - n1 + 13)
      Dim wa

      wa = Split(txtData, vbCrLf)

      Text7 = Mid(wa(1), InStr(wa(1), "：") + 1)
      Text9 = Mid(wa(2), InStr(wa(2), "：") + 1)
      Text11 = Mid(wa(3), InStr(wa(3), "：") + 1)
      Text13 = Mid(wa(4), InStr(wa(4), "：") + 1)
      Text15 = Mid(wa(5), InStr(wa(5), "：") + 1)
      Text17 = Mid(wa(6), InStr(wa(6), "：") + 1)
End If

exitsub:
End Sub

程序下载