vb中如何使用Microsoft.XMLHTTP?

[lang11zi]

Public Function GetPage(url)
Dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function

Public Function BytesToBstr(body)
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function

这样用对不对啊?

我要读一个网页进去.然后获得页面GetPage

[lang11zi]

我做在组件中 怎么不执行

在窗体中能执行

[笨笨兔兔兔兔兔]

http://rabbit.inu.com.cn/faqdownload.rar

看里面的vb代码,csdn 的faq下载工具,我做的

[笨笨兔兔兔兔兔]

用的主要方法就是xmlhttp+stream

[lang11zi]

已经ok