获取HTML源代码
来源:互联网 发布:java正则校验时间格式 编辑:程序博客网 时间:2024/05/16 13:00
Public Function GetCode(CodeBase, Url) '第一个参数是设置编码方式(GB2312或UTF-8)第二个参数是地址.
Dim xmlHTTP1
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get", Url, True
xmlHTTP1.send
While xmlHTTP1.ReadyState <> 4
DoEvents
Wend
GetCode = xmlHTTP1.ResponseBody
If CStr(GetCode) <> "" Then GetCode = BytesToBstr(GetCode, CodeBase)
Set ObjXML = Nothing
MsgBox "finish"
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
- 获取HTML源代码
- Html获取页面源代码
- 获取HTML页面源代码
- c# 获取页面 HTML源代码
- Android-html源代码的获取
- 通过URL访问和获取html源代码
- 通过URL访问和获取html源代码
- Java 通过URL获取网站Html源代码
- Java 通过URL获取网站Html源代码
- 将获取的html源代码格式化输出
- HttpWebRequest获取网页html源代码(并自动获取encoding)
- C#获取网页源代码,去除html标签,提取文字源码
- C# .Net如何获取网站源代码,去除HTML标记和空格!
- 指定url,获取其源代码(html)放入本页,不分本域外域
- 源代码---java根据Url地址获取其页面的HTML文本。
- iOS项目开发实战——iOS网络编程获取网页Html源代码
- iOS项目开发实战——使用异步请求获取网页HTML源代码
- HTML Parser 源代码
- Exim4邮件服务器
- extjs 或 ajax中文乱码解决
- 关于IDE 开发工具代码智能补全功能
- [代码]如何使用为顺序结果形状映射的存储过程(LINQ to SQL)
- 欧美软件外包服务的本质:以低廉的价格提供人的服务!
- 获取HTML源代码
- CDO发送邮件
- [代码]如何使用用户定义的标量值函数(LINQ to SQL)
- 设计模式 Design Parttern ——命令模式Command
- 系统无法打开指定的设备或文件&Internal Error 2755,110 安装错误
- [代码]如何使用用户定义的表值函数(LINQ to SQL)
- 3.6LVM逻辑卷治理
- 、、、、
- 怎么判断用户计算机是否安装了sql server