Webad.Document.getElementsByTagName("IMG")(0).src怎么用

Question

大家好，提一个很菜的问题。Private Sub webad_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
imgurl = Webad.Document.getElementsByTagName("IMG")(0).src
geturl = Webad.Document.getElementsByTagName("IMG")(0).parentNode.href这个是http://milffan.blogbus.com/这个页面的源码里取第一个img标签前后的src和href对应的那两个字符串这个页面的后面还有一个img标签，我想取得那个img前后的src和href对应的那两个字符串，根据这段代码，应该怎么改啊？
这段代码是朋友给我写的，我不会用这个函数，请大家教教我。先谢谢了。在线等。

Answer 1

imgurl = Webad.Document.getElementsByTagName("IMG")(0).src注意到括号里的索引值0没有?改成1试下看看......

Answer 2

Webad.Document.Body.InnerHTML
所有东西都在这个里面了，找找看。

Answer 3

把On Error Resume Next 去掉,看看是什么提示
On Error Resume Next 一般在程序调试完成后使用,尽量不要使用

Answer 4

Private Sub webad_DocumentComplete(ByVal pDisp As Object, URL As Variant) 
If (pDisp Is WebBrowser1.Object) Then'加上这句试试
  imgurl = Webad.Document.getElementsByTagName("IMG")(0).src 
  geturl = Webad.Document.getElementsByTagName("IMG")(0).parentNode.href 
end if
end sub0改为1应该有用的，你试试这句代码：
msgbox Webad.Document.getElementsByTagName("IMG").length'看看共有多少个图片
通过这样的代码访问所有img标签
dim i%
for i=0 to Webad.Document.images.length-1
  debug.print Webad.Document.images(i).src
next

Answer 5

Private Sub Webad_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    '取http://count.chanet.com.cn/click.cgi?a=264464&d=58451&u=&e=
    Debug.Print Webad.Document.getElementsByTagName("IMG")(0).parentnode.href
    
    '取http://www.pceggs.cn/10749703/
    Debug.Print Webad.Document.getElementsByTagName("IMG")(1).parentnode.href
End Sub