在VB中用XMLHTTP获取网页Html文本
摘要:
本文转自: 慧都控件网http://evget.com/zh-CN/Info/catalog/7917.htmlPublic Function GetCode(CodeBase, Url) '第一个参数是设置编码方式(GB2312或UTF-8)第二个参数是地址.Dim xmlHTTP1Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")xmlHTTP1.Open "get", Url, TruexmlHTTP1.sendWhile xmlHTTP1.ReadyState 4DoEventsWendGet 阅读全文
posted @ 2013-09-05 14:56 Ceason 阅读(1158) 评论(0) 推荐(0) 编辑