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

zhuyiwen

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

程序下载

zhuyiwen

没签名的源文件(代码可看)

游客，如果您要查看本帖隐藏内容请回复

cg1

不错不错，我也回一个，当初我学 ASP 的时候做的：

关于此主题请参考：专题地址：http://access911.net/index.asp?board=4&recordid=71FABE1E17DC

[此贴子已经被作者于2004-1-23 0:26:45编辑过]

zhuyiwen

以下是引用cg1在2004-1-23 0:25:29的发言：
不错不错，我也回一个，当初我学 ASP 的时候做的：
  
关于此主题请参考：专题地址：http://access911.net/index.asp?board=4&recordid=71FABE1E17DC

[此贴子已经被作者于2004-1-23 0:26:45编辑过]

不错不错!

darwenli

learn it first

TXGJ21

谢谢,支持

lordcatus

正在找寻这方便资料。。

cnwang

master

zczc123

正在找寻这方便资料

chaojianan

学习下。