命令窗口代码如下：
Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://weidian.eallcn.com/232621561/mmfy/mmfydetail/id=3603988")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
For Each dl As object In web.Document.GetElementsByTagName("DIV")
If dl.GetAttribute("classname") = "fyxxybox2" OrElse dl.GetAttribute("classname") = "fyxxybox2_n" Then
output.show(dl.Innertext)
End If
Next
请问如何得到红色部分，困难在于dl.Innertext是几次得到这个数据的（用msgbox会有几个弹窗）
output.show("售价：“ & 75万）
output.show("面积：“ & 120.68㎡）
output.show("户型：“ & 3室2厅）
output.show("单价：“ & 6214.78元/㎡）
output.show("编号：“ & D-16-33472）
output.show("楼层：“ & 7层/18层）
output.show("装修：“ & 精装）
output.show("类型：“ & 商品房）
output.show("年代：“ & 2008）
output.show("小区：“ & 新城丽景）
[此贴子已经被作者于2016/9/22 15:16:56编辑过]
加好友 
发短信
Post By：2016/9/22 12:30:00 [显示全部帖子]
