vb 用 xmlhttp 获取网站信息
2011-02-19 09:28
155 查看
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
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中使用Iphlpapi.dll获取网络信息 第二章 第十六节 获取本机IP 路由表
- 用HttpClient模拟登录网站二(获取网页信息)
- VB中使用WMI获取系统硬件和软件有关信息
- CInternetSession从网站获取信息,并利用CString拆分查找特定信息
- VB中使用WMI获取系统硬件和软件有关信息
- Java获取Windows CMD窗口执行命令的返回信息【转自国外某网站】【转自Cratical】
- VB 获取系统内存信息
- 利用HttpRequest登录到某个网站,然后获取网站信息的程序示例
- 在vb中使用Iphlpapi.dll获取网络信息 第二章 第七节 获取本机网间控制报文协议(ICMP)信息
- 在vb中使用Iphlpapi.dll获取网络信息 第三章 第一节 IPHLPAPI 的其它函数
- 用Java获取一个网站的基本配置信息
- 在vb中使用Iphlpapi.dll获取网络信息 第一章 前言
- 在vb中使用Iphlpapi.dll获取网络信息 第二章 第十七节 设置TCP连接状态
- web网站获取客户端服务端信息
- [转] VB.NET下获取硬盘信息的几种方法
- HttpRequest获取网站信息的程序示例
- 通过httpclinet登录网站(https),并且获取网页上的信息。post+get
- HttpRequest获取网站信息的程序示例
- 在vb中使用Iphlpapi.dll获取网络信息 第二章 第八节 获取本机网络参数
- 在vb中使用Iphlpapi.dll获取网络信息 第三章 第二节 从C原型到Vb声明