Office中国论坛/Access中国论坛

标题: 一个使用WebBrowser控件获取Web数据的例子 [打印本页]

作者: zhuyiwen 时间: 2004-1-21 08:44
标题: 一个使用WebBrowser控件获取Web数据的例子

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 时间: 2004-1-23 05:07
没签名的源文件(代码可看)

作者: cg1 时间: 2004-1-23 08:25
不错不错，我也回一个，当初我学 ASP 的时候做的：

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

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

作者: zhuyiwen 时间: 2004-1-24 04:16

以下是引用cg1在2004-1-23 0:25:29的发言：
不错不错，我也回一个，当初我学 ASP 的时候做的：

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

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

不错不错!

作者: darwenli 时间: 2008-10-4 18:51
learn it first

作者: TXGJ21 时间: 2008-10-5 01:08
谢谢,支持

作者: lordcatus 时间: 2008-12-7 21:45
正在找寻这方便资料。。

作者: cnwang 时间: 2008-12-8 21:47
master

作者: zczc123 时间: 2009-5-9 16:47
正在找寻这方便资料

作者: chaojianan 时间: 2009-5-10 18:12
学习下。

作者: 鱼求雨 时间: 2009-5-24 15:56
感谢十分十分感谢

作者: 神魔天龙 时间: 2009-5-29 14:00
学习下

作者: msaudit001 时间: 2009-5-30 14:52
ttttttttttttttttttttttttt

作者: zzcjp 时间: 2009-8-15 11:53
学习中

作者: yanwei82123300 时间: 2010-4-24 08:21
不错不错，我也回一个，当初我学 ASP 的时候做的：

作者: duomu 时间: 2010-8-9 11:31
学习下。

作者: lirong 时间: 2010-8-9 22:12
学习下

作者: sxb2007 时间: 2010-10-10 21:38
学习下

作者: li08hua 时间: 2010-10-19 01:40
不错，谢谢了！

作者: newplayer 时间: 2011-4-7 22:48
我也要看看的。

作者: yodong 时间: 2011-7-5 18:59
看看

作者: wgh3g 时间: 2011-7-5 20:14
谢谢分享

作者: c101 时间: 2011-7-5 21:12
谢谢分享

作者: 路遥 时间: 2011-9-18 01:04
学习一下！～～～～

作者: huangli0356 时间: 2013-6-14 20:01
谢谢分享.

作者: wuchju 时间: 2013-7-19 11:01
看看

作者: leonshi 时间: 2013-12-20 13:01
学习

作者: djfkdfkjdkf 时间: 2015-2-13 11:27
kankan

作者: 好运牛 时间: 2015-2-25 22:39
学学

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)