vb 用 xmlhttp 获取网站信息
来源:互联网 发布:windows system32 com 编辑:程序博客网 时间:2024/05/17 03:27
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
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()
Dim aa As String
aa = GetCode("GB2312", "http://www.2288822.net")
RichTextBox1.Text = aa
End Sub
- vb 用 xmlhttp 获取网站信息
- VB+XMLHTTP即时获取网页源码
- VB使用xmlhttp获取远程网页内容
- vb 获取系统信息
- XmlHttp异步获取网站数据的例子
- XmlHttp异步获取网站数据的例子
- XmlHttp异步获取网站数据的例子
- XmlHttp异步获取网站数据的例子
- XmlHttp异步获取网站数据的例子
- XmlHttp异步获取网站数据的例子
- XmlHttp异步获取网站数据的例子
- JavaScript利用XmlHttp异步获取网站数据
- XmlHttp异步获取网站数据的例子
- 在VB中用XMLHTTP获取网页Html文本
- VB.NET 获取磁盘信息
- vb.net获取系统信息
- VB 获取系统内存信息
- fsockopen获取网站信息
- MySQL 创建索引
- 清除SQLServer数据库日志(SqlServer2005)
- 抗去除花指令(三)——去除检测
- Bug:error LNK2019: unresolved external symbol的一种解决方法
- 服务器端Git仓库的创建(Ubuntu)
- vb 用 xmlhttp 获取网站信息
- 正则分割字符串
- UML类图关系全面剖析
- Mercurial - 分布式版本控制系统
- 【网上收集】ASP.NET 常用30个代码
- 外企英语面试,适当开始熟悉和记忆的部分
- 华为面试题算什么,这个背会了外企随便进
- 类与类关系的UML图与代码表现
- 每天读一遍,坚持27天,你的英语水平就可以达到跟美国人交流的水平啦