安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

VB及VBA获取网页内容、下载进度条及乱码问题解决

2017-09-18 21:45:00
网络未知
转贴
864
VB及VBA获取网页内容、下载进度条及乱码问题解决

在用vb做“天气预报自动更新系统”的时候,需要从中 国气象网、百度天气搜索等网站提取天气信息,因而对用vb提取网页内容进行了一番研究,重点在于解决乱码问题和?#22336;?#20018;提取。
1.下面是一个利用INET控件获取网页内容以及显示进度条的例子。
Private Sub Command1_Click()
Dim strURL As String, m_lDocSize As Long, strBuffer As String
Dim lngArrivedDataSize As Long, strArrivedData As String
strURL = “http://zhidao.baidu.com/question/68055519.html”
Inet1.Execute strURL, “GET” ‘发出请求
Do While Inet1.StillExecuting ‘等待请求结束
DoEvents
Loop
If Len(Inet1.GetHeader(“Content-Length”)) > 0 Then ‘获取文件头信息
m_lDocSize = CLng(Inet1.GetHeader(“Content-Length”))
End If
With ProgressBar1 ‘初始化进度条
.Max = m_lDocSize – Len(Inet1.GetHeader)
.Min = 0
Do  ‘开始获取数据
DoEvents
strBuffer = Inet1.GetChunk(512)
strArrivedData = strArrivedData & strBuffer
lngArrivedDataSize = Len(strArrivedData)
.Value = lngArrivedDataSize ‘进度显示
Loop Until Len(strBuffer) = 0
.Value = .Max
End With
MsgBox “下载完毕!”
End Sub
2.下面是一个用xmlhttp获取网页,能够解决一些乱码问题
Private Sub Command1_Click()
Dim a As String
a = RichTextBox1.Text
RichTextBox1.Text = GetBody(a)
End Sub
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
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:3
内存占用:4.50MB
PHP 执行时间:0.08
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假