夏威夷有哪些景点英文:VB功能模块:最全的VB操作网页功能模块
来源:百度文库 编辑:偶看新闻 时间:2024/04/26 15:54:25
一.使用xmlhtml获取网页源码
Public Function HtmlStr$(URL$) '提取网页源码函数
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", URL, False
XmlHttp.Send
If XmlHttp.ReadyState = 4 Then HtmlStr = StrConv(XmlHttp.Responsebody, vbUnicode)
End Function
2.函数调用:
Dim strweb1 As String
strweb1=HtmlStr("http://www.baidu.com")
二、获取WebBrowser控件中网页源代码
1.函数代码:
Public Function WebDaima(WebBrowser, BuFen) '获取WebBrowser控件中网页源代码
与之间的代码
Select Case BuFen
Case "Body" '只获取
WebDaima = WebBrowser.Document.body.innerhtml
Case "All" '获取整个网页源代码
WebDaima = WebBrowser.Document.documentelement.outerhtml
Case Else
WebDaima = WebBrowser.Document.documentelement.outerhtml
End Select
End Function
2.调用
Dim strweb As String
strweb=WebDaima(frmIndex.WebBrowser1,"All") '获取整个网页源代码
strweb=WebDaima(frmIndex.WebBrowser1,"Body") '只获取body中源代码
三、提取字符串或网页源代码中指定的资源(可利用这一函数做文章采集器)
1.函数代码:
Public Function FindStrMulti$(Strall$, FirstStr$, EndStr$, SplitStr$) '提取字符串或网页源代码中所有指定代码
'参数
'总文本,起始字符串,终止字符串,分隔符
Dim i&, j&
j = 1
Do
i = InStr(j, Strall, FirstStr)
If i = 0 Then
Exit Do
End If
i = i + Len(FirstStr)
j = InStr(i, Strall, EndStr)
If j > 0 Then
FindStrMulti = IIf(Len(FindStrMulti) > 0, FindStrMulti & SplitStr, "") & Mid(Strall, i, j - i)
Else
Exit Do
End If
Loop
End Function
2.函数调用
截取字符串中的内容
Dim str1 As String
Dim str2 As String
str1 = ""
要截取的内容
str2 = FindStrMulti(str1, "", " ", "")
MsgBox str2
'此时str2的值就为 要截取的内容
文章列表标题链接采集实例
网页代码
比目鱼博客文章列表
- [文坛张望] 谁会拿下2010年的诺贝尔文学奖? (2010-10-01 22:38)
- [视觉训练] 书法练习二幅 (2010-09-29 01:51)
- [文坛张望] 骆以军对话董启章 (2010-09-21 17:15)
- [视觉训练] 夜临古画(六) (2010-09-17 01:46)
- [我也读书] Jennifer Egan 的《A Visit From the Goon Squad》 (2010-09-07 02:30)
- [我也读书] 当我们谈论电子书的时候我们在谈论电子书阅读器 (2010-08-27 16:51)
- [IT互联网] “读写人”和“比目鱼”网站的手机版 (2010-08-24 02:04)
什么是会计核算软件的功能模块 好助手软件的功能模块 程序的功能模块```指的是什么啊? 网上个人银行的功能模块包括什么? PLC功能模块无脉冲信号的原因 全面预算化管理系统的功能模块与ERP系统功能模块的区别? 移动通信功能模块 功能模块报价查询 主板的基本构造是什么?各功能模块的功能是什么? 谁知道旅游在线报名系统的各个功能模块. 彩色电视机各个功能模块的主要故障现象及检修方法 北京哪有卖电路功能模块的?比如时间控制等等 做网站时,各个功能模块是怎么实现的 vb的文件操作 网站功能模块都有什么? CPU分为两大功能模块??? vb 中的 数据库的操作? 金蝶软件与用友软件里的功能模块有什么不同?他们的区别是什么? 校园网为监控网络的运行,还应该配置什么功能模块 有谁能给找一些oa系统的需求分析,和功能模块图. 高校运动会信息系统需要那些功能模块 vb与网页的结合 vb与网页的结合 vb的最简单代码