网络编程的小问题

Question

1.如何用picture或者image控件显示以“http://”开头的图片
2.我用如下代码遍历网页代码，为什么很多对象无法发现
Private Sub Form_Load()
Dim i As Integer
w.Navigate ("www.topcatclicks.com")
End SubPrivate Sub w_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim x As Long
List1.Clear
For x = 0 To w.Document.All.length - 1
    Set obt = w.Document.All.Item(x)
        List1.AddItem obt.tagname
Next x
End Sub有的网页可以全部，有的就不可以只能提取前面的几个，请指点一下！

Answer 1

哇刚才又试了一下，发现，只有有<script>....</script>下面的就无法继续了，请问如何解决？

Answer 2

<script>....</script>  里边是动态脚本  被解析成静态的了吧

Answer 3

1.分析img对象的src（地址），如果是你要的，就用inet控件下载到本地，再用图片控件加载不就完了
2.事件的问题，可能是网页载入未完成，你可以把“Private Sub w_NavigateComplete2(ByVal pDisp As Object, URL As Variant)”改成“Private Sub w_DocumentComplete(ByVal pDisp As Object, URL As Variant)”试试。DocumentComplete是网页载入完成时触发的事件

Answer 4

后来我自己作试验，发现这个Private Sub w_DocumentComplete确实可以遍历script的，不过还是要谢谢大家！那个用inet下载图片的怎么弄的，能不能给个源码？

Answer 5

这里有一个
http://klever.66et.net/getfile.rar