在VB中用XMLHTTP获取网页Html文本

Submitted by eason on 周四, 2013-09-05 06:51

本文转自：慧都控件网 http://evget.com/zh-CN/Info/catalog/7917.html

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

Comments

Anonymous (没有被验证)

周六, 2013-10-26 01:26

You've really captured all the esaentisls in this subject area, haven't you? http://cboxddawct.com [url=http://anmnizq.com]anmnizq[/url] [link=http://sqwnjwoq.com]sqwnjwoq[/link]

Anonymous (没有被验证)

周二, 2013-11-05 04:15

That's a weluotholght--ut answer to a challenging question

Anonymous (没有被验证)

周六, 2013-11-23 09:45

state minimum car insurance quotes on car insurance levitracialis viagra compare levitra auto insurance overseas low cost life insurance

Anonymous (没有被验证)

周一, 2013-12-02 00:51

brooks auto insurance online icar insurance quotes insurance quotes cheap auto i surance impotence smoking generic cialis discount

Anonymous (没有被验证)

周四, 2013-12-05 17:17

michigan auto insurance cheap levitra cheap new jersey auto insurance bits distance learning ciali generic

Anonymous (没有被验证)

周二, 2014-03-04 11:14

I watend to spend a minute to thank you for this.

Anonymous (没有被验证)

周三, 2014-03-05 08:35

Awesome you should think of sonmhtieg like that http://ibetqrjllq.com [url=http://fjhjhfye.com]fjhjhfye[/url] [link=http://yikgwbnwtv.com]yikgwbnwtv[/link]

Anonymous (没有被验证)

周三, 2014-03-05 20:53

Articles like these put the consumer in the driver seat-very imtropant.

Anonymous (没有被验证)

周五, 2014-05-09 15:19

purchase viagra online purchase of cialis cheap london flights impotence southern california insurance auto

Anonymous (没有被验证)

周五, 2014-05-30 08:34

online health insurance quotes australia health insurance in english esays buy levitra online no prescription writing tutorials

Anonymous (没有被验证)

周二, 2014-11-18 21:07

discount car insurance quotes viagra car insurance prednisone online without a prescription

Anonymous (没有被验证)

周一, 2013-12-09 21:32

car insurance quotes pa free auto insurance quotes auto insurance quotes car insurance making a claim buying priligy online

Anonymous (没有被验证)

周五, 2013-12-13 19:18

generisk cialis hughes car insurance northern ireland car insurance rate priligy viagra propecia buy online

Anonymous (没有被验证)

周二, 2013-12-17 02:32

car insurance free quotes order viagra online auto insurance quotes quote on cheapest car insurance small business insurance cheap

Anonymous (没有被验证)

周五, 2013-12-20 16:18

car insurance quotes nc auto insurance companies viagra the cheapest car insurences cheap auto insurance car insurance knoxville

Anonymous (没有被验证)

周五, 2014-01-03 13:11

www.pharmasonline.net insureyourcaronline.com fitness instructor liability insurance auto insurance quotes online causes of asthma attacks

Anonymous (没有被验证)

周五, 2014-05-16 02:07

hnwenxv loans for people with bad credit hisbP online payday loans %-[[[ payday loans ehfGZF quick cash loans 5197

Anonymous (没有被验证)

周六, 2014-06-07 17:49

cojudzin apply for fast cash okHBBO loans without credit check =-] online loans with no credit check 2521 payday loans =-]

Anonymous (没有被验证)

周二, 2014-09-16 07:34

lzuanw payday loans yyeeG mobile loans iNRQrv apply for guaranteed loans 2699 money mutual 7590

Anonymous (没有被验证)

周三, 2015-05-27 13:15

xvyaowm payday loans 1456 payday loans 8]]] payday loans 9861

Anonymous (没有被验证)

周四, 2015-07-09 11:36

nyelsvi generic cialis >:]] buy cialis online =-] generic viagra yRxPc viagra online vJHkcg