html内容
<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#405978 border=0>
<TBODY>
<TR>
<TD width=3><IMG height=36 src="http://xxx/111.gif" width=3></TD>
<TD width=36 bgColor=#fff95b height=36><IMG height=36 src="http://xxx/222.gif" width=36></TD>
<TD width=21><IMG height=36 src="333.gif" width=21></TD>
<TD>这个是框架中的内容
那么我使用
Dim vDoc, vTag
Dim I As Integer
Set vDoc = Form1.Web1.Document.frames(2).Document
For I = 0 To (vDoc.All.Length - 1)
If UCase(vDoc.All(I).tagName) = "IMG" Then
Set vTag = vDoc.All(I)
If vTag.src = "http://xxx/111.gif" Then
vTag.Click
End If
End If
Next这样不可以点击。。调试过。到了If vTag.src = "http://xxx/111.gif" Then 这个判断就不会正确。郁闷
其他的A href DIV的都可以。框架中的其他内容都可以。或者是有ID或者其他的。
请高手看看。改怎么做。因为他也没INput 所以没发点。
<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#405978 border=0>
<TBODY>
<TR>
<TD width=3><IMG height=36 src="http://xxx/111.gif" width=3></TD>
<TD width=36 bgColor=#fff95b height=36><IMG height=36 src="http://xxx/222.gif" width=36></TD>
<TD width=21><IMG height=36 src="333.gif" width=21></TD>
<TD>这个是框架中的内容
那么我使用
Dim vDoc, vTag
Dim I As Integer
Set vDoc = Form1.Web1.Document.frames(2).Document
For I = 0 To (vDoc.All.Length - 1)
If UCase(vDoc.All(I).tagName) = "IMG" Then
Set vTag = vDoc.All(I)
If vTag.src = "http://xxx/111.gif" Then
vTag.Click
End If
End If
Next这样不可以点击。。调试过。到了If vTag.src = "http://xxx/111.gif" Then 这个判断就不会正确。郁闷
其他的A href DIV的都可以。框架中的其他内容都可以。或者是有ID或者其他的。
请高手看看。改怎么做。因为他也没INput 所以没发点。
是这个
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=right width=94><IMG
style="PADDING-RIGHT: 5px; CURSOR: hand" onclick=Go();
height=28 src="tupian/06.gif" width=64></TD>
<TD><IMG height=28 src="tupian/01.gif" width=64></TD>
<TD><IMG style="CURSOR: hand" onclick=goOut(); height=28
src="tupian/03.gif" width=64></TD>
<TD width=12> </TD></TR></TBODY></TABLE>
如果还是不行。使用instr来查找特征串。