Vb6 下载网页
来源:互联网 发布:武汉达内大数据怎么样 编辑:程序博客网 时间:2024/05/19 18:17
Dim xmlHtppDownPage As XMLHTTP
Public Function DownPage(ByVal strUrl As String) As String
DownPage = ""
On Error GoTo error1:
If xmlHtppDownPage Is Nothing Then
Set xmlHtppDownPage = New XMLHTTP
End If
xmlHtppDownPage.open "GET", strUrl, False
xmlHtppDownPage.send
If xmlHtppDownPage.Status <> 200 Then
Exit Function
End If
DownPage = BytesToBstr(xmlHtppDownPage.responseBody, "GB2312")
Exit Function
error1:
End Function
error1:
End Function
Function BytesToBstr(ByVal body As String, ByVal strEncode As String) As String
BytesToBstr = ""
On Error GoTo error1:
Dim objstream As ADODB.Stream
Set objstream = New ADODB.Stream
objstream.Type = adTypeText
objstream.Mode = adModeReadWrite
objstream.open
objstream.WriteText body
objstream.Position = 0
objstream.Type = adTypeText
objstream.Charset = strEncode '转换原来默认的UTF-8编码转换成GB2312编码,否则直接用XMLHTTP组件调用有中文字符的网页得到的将是乱码
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
Exit Function
error1:
End Function
BytesToBstr = ""
On Error GoTo error1:
Dim objstream As ADODB.Stream
Set objstream = New ADODB.Stream
objstream.Type = adTypeText
objstream.Mode = adModeReadWrite
objstream.open
objstream.WriteText body
objstream.Position = 0
objstream.Type = adTypeText
objstream.Charset = strEncode '转换原来默认的UTF-8编码转换成GB2312编码,否则直接用XMLHTTP组件调用有中文字符的网页得到的将是乱码
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
Exit Function
error1:
End Function
- Vb6 下载网页
- 浏览VB6网页类
- VB6实现QQ登陆网页
- VB6.0+SQL2000免费下载
- VB6使用API下载文件
- 【转】在网页中运行VB6程序
- OrFlygin VB6版本下载和说明
- OrFlying For VB6 代码生成器 源代码下载
- 下载网页
- 下载网页
- vb6
- vb6
- VB6
- VB6通过ASP网页实现C/S模式
- VB6写的书籍下载软件 --老牛下书,还不错
- 用vb6的ActiveX控件实现异步下载
- 2006年vb6.0《见习小恶魔》源代码下载
- 网页制作字体下载
- 闲扯淡之软文写作方法技巧与策略分析
- js 自动运行 和定时运行
- 网络营销人员必备素质分析
- 教你几招实用的论坛推广方法
- 中国SEO行业将细分成七大块市场
- Vb6 下载网页
- 一个担任过9个论坛管理员的话
- Java集合类
- 互联网工作者最容易犯的十个错误
- download the flv file from youtube
- vb MD5
- 中国站长必须知道的50件事
- 各种线上推广手段的投入产出比数字公布
- 互联网创业五大核心问题:既可致胜也可致命