Vb自动读取本地HTML,VB获取网页源代码的五种方法
方法1:inet控件调用方法 Inet1.OpenURL
添加microsoft ineternet transfor conctrol6.0 控件
方法2:XMLHTTP
'如果出现乱码,UTF-8可改为GB2312
Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312")
Dim ObjXML
On Error Resume Next
Set ObjXML = CreateObject("Microsoft.XMLHTTP")
With ObjXML
.Open "Get", URL, False, "", ""
.setRequestHeader "If-Modified-Since", "0"
.Send
GetBody = .ResponseBody
End With
GetBody = BytesToBstr(GetBody, Coding)
Set ObjXML = Nothing
End Function
Public Function BytesToBstr(strBody, CodeBase)
Dim ObjStream
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open
.Write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
End Function
Private Sub Command1_Click()
u = "http://wenku.baidu.com/search?word=vb&lm=0&od=0&fr=top_search"
Text1.Text = GetBody(u) '最好用richbox富文本框
End Sub
方法3:WinHttp
Private Sub Command4_Click()
Set IEread = CreateObject("WinHttp.WinHttpRequest.5.1")
CallByName IEread, "Open", VbMethod, "GET", URLaddr, True
CallByName IEread, "Send", VbMethod
CallByName IEread, "WaitForResponse", VbMethod
aa = CallByName(IEread, "ResponseText", VbMethod)
RichTextBox1.Text = aa
End Sub
方法4:'利用WebBrowser控件
Private Sub Command1_Click()
Dim strContent As String, i As Integer
Text1 = ""
For i = 0 To WebBrowser1.Document.All.length - 1
If WebBrowser1.Document.All(i).tagName = "HTML" Then
strContent = strContent & WebBrowser1.Document.All(i).innerHTML
Exit For
End If
Next i
Text1 = strContent
End Sub
方法5:利用Inet控件的Execute方法
Private Sub Command5_Click()
Text1 = ""
Inet1.Execute Text2.Text, "GET"
While Inet1.StillExecuting
DoEvents
Wend
Text1.Text = Inet1.GetChunk(Len(Text1.Text))
End Sub
Vb自动读取本地HTML,VB获取网页源代码的五种方法相关推荐
- c#获取网页源代码的5种方式
全栈工程师开发手册 (作者:栾鹏) c#教程全解 c#获取网页源代码的5种方式,发送请求获取响应数据流,按照不同的编码转换为响应字符串 测试代码 static void Main() {string ...
- JavaScript 实现网页截屏五种方法
JavaScript 实现网页截屏五种方法 最近研究了下如何利用JavaScript实现网页截屏,包括在浏览器运行的JS,以及在后台运行的nodeJs的方法.主要看了以下几个: PhantomJS P ...
- JS 实现网页截屏五种方法
最近研究了下如何利用JavaScript实现网页截屏,包括在浏览器运行的JS,以及在后台运行的nodeJs的方法.主要看了以下几个: PhantomJS Puppeteer(chrome headle ...
- 获取文件后缀的五种方法
/*** 写出五种方式来获取文件后缀名称,一个非常容易考试的题目*/ $filename = 'www.baidu.com/images/logo.png'; //第一种使用strrchr函数进行字符 ...
- Python获取pi值的五种方法
五种获取PI值的方法 1.自己把PI背下来 2.math库直接获取PI 3.math库计算获取PI 4.numpy库直接获取PI值 5.scipy库直接获取PI值 1.自己把PI背下来 PI = 3. ...
- Chrome浏览器查看网页源代码的几种方法
第一种方法 在网页空白处鼠标右键,然后点view page source.即可查看源代码. 第二种方法 有的网站不支持右键,那么我们可以在网址前面加view-source.即可查看源代码.
- c#url拼接方法名_c# 获取url参数的五种方法
假设当前页完整地址为:http://www.jbxue.com/aaa/bbb.aspx?id=5&name=kelli 则: "http://"是协议名 "ww ...
- PHP获取IP地址的五种方法
<?php ...
- vb怎么抓取html的class,VB6.0获取网页源代码
'说明:获取网页源代码 '参数: ' url: 链接地址 ' encoding: 页面编码,gb2312.utf-8等 Public Function GetResponse(ByVal ur ...
最新文章
- Facebook最新语音算法曝光!自监督语音识别,错误率低至2.43%
- 检索数据表中重复的记录
- python软件代码示例-Python学习示例源码
- Linux CentOS各大网站镜像资源地址展示,各种rpm资源包下载地址,rpm安装包大全
- mysql 经典优化案例_MySQL-SQL优化10大最经典案例详解
- 邓西百度网盘批量转存检测工具 v1.0.0818
- Docker初识与安装
- RabbitMQ实现多系统间的分布式事务,保证数据一致性
- proxytable代理不生效_深圳劳动纠纷律师为你解答劳动合同没有盖章是否生效
- java基础知识点整理一
- 我与计算机作文450字,第一次上网作文450字(通用5篇)
- HarmoneyOS鸿蒙系统零代码编程入门
- 谁说Excel中不能输入“0”开头的数字?
- gcc中的 -I -L(大写l) -l(小写l) -Wl,-rpath 选项
- 典型问题分析——三方应用网络异常分析方法
- 一篇文章教会你使用Python抓取微博评论
- 【阅读】数据之美,一本书学会可视化设计
- 【结构化思考】边缘计算架构 3D模型参考
- Django分页组件
- 【我上岸了】干了两年外包的我拿到阿里offer了,在此总结一下我从外包到阿里的经验吧