VB用CreateObject的方法获取指定网页源码

 1 Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312")
 2 Dim ObjXML
 3 On Error Resume Next
 4 Set ObjXML = CreateObject("Microsoft.XMLHTTP")
 5 With ObjXML
 6 .Open "Get", URL, False, "", ""
 7 .setRequestHeader "If-Modified-Since", "0"
 8 .Send
 9 GetBody = .responseBody
10 End With
11 GetBody = BytesToBstr(GetBody, Coding)
12 Set ObjXML = Nothing
13 End Function
14 
15 Public Function BytesToBstr(strBody, CodeBase)
16 Dim ObjStream
17 Set ObjStream = CreateObject("Adodb.Stream")
18 With ObjStream
19 .Type = 1
20 .Mode = 3
21 .Open
22 .Write strBody
23 .Position = 0
24 .Type = 2
25 .Charset = CodeBase
26 BytesToBstr = .ReadText
27 .Close
28 End With
29 Set ObjStream = Nothing
30 End Function
31 '注意第一行代码中Coding$ = "GB2312" 表示获取的网页内容为GB2312编码格式,如果出现乱码,那么就换成Coding$ = "utf-8"
32 '返回值为:
33 a = GetBody("http://www.baidu.com")

本文转自:百度知道

转载于:https://www.cnblogs.com/mengkun/p/5164481.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值