大家如何在VB中用msxml做网页数据采集??? 可否提供点参考代码?

Question

本人用msxml做网页数据采集,在ASP中都没问题，但到了VB中却报错，好像没有.send()方法.
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()大家怎么做的，可否给点代码参考一下???

Answer 1

不知道这个是不是有用～http://www.21code.com/codebase/?pos=down&id=1583

Answer 2

本之前是在asp里采集，但asp太不稳定了...

Answer 3

实在不行就看这里吧……http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/xmmscXML.asp

Answer 4

如果所有的数据都以文本的形式去本析的话，那样会很累的，用ms html吧，可以对话话，要什么去里面找什么。

Answer 5

"用ms html吧，可以对话话".... 什么意思，明白? 
可否详细指点一下... 谢谢先!

Answer 6

http://blog.csdn.net/online/archive/2004/07/07/35994.aspx
Private Sub Command3_Click()  Dim httpRequest As MSXML.XMLHTTPRequest  Set httpRequest = New MSXML.XMLHTTPRequest  Dim StrXml As String  '构造出要上传的XML串，这里节点使用中文  StrXml = "<Request>" & _           "<项目编号>" & Txtbh.Text & "</项目编号>" & _           "<项目名称>" & Txtname.Text & "</项目名称>" & _           "<价格>" & Txtprice.Text & "</价格>" & _           "<种类>" & TxtCategory.Text & "</种类>" & _           "<发生日期>" & Txtpdate.Text & "</发生日期>" & _           "</Request>"                 httpRequest.Open "POST", "http://localhost/webxml/putsingleinfo.asp", False    httpRequest.send StrXml    '如果错误  If httpRequest.Status <> 200 Then    MsgBox httpRequest.statusText, , httpRequest.Status    Exit Sub  End If    '以下是判断数据是否正确提交  Dim strretval As String  Dim ResponseXml As DOMDocument  Set ResponseXml = New DOMDocument  Set ResponseXml = httpRequest.ResponseXml  strretval = ResponseXml.selectSingleNode("//retval").Text  MsgBox strretvalEnd Sub

Answer 7

//"用ms html吧，可以对话话".... 什么意思，明白? 
可否详细指点一下... 谢谢先!
可以对象化了，每一个在"<>"里面的都是一个对象要链接就取链接，要图片就图片了