[Resolvido]Pegar link de imagem em web browser

Como eu pego o link de uma imagem pelo web brouser?

olha aí o código que estou usando....

Dim elem
Dim tbl
Dim tr
Dim i
i = 1


For Each elem In Me!WebBrowser1.Document.all
If elem.Tagname = "TABLE" Then
Set tbl = elem
If tbl.rows.length >= 1 Then
Set tr = tbl.rows(0)
If tr.cells.length > 1 Then
If Not InStr(tbl.rows(0).innertext, "No.") > 0 Then
If Not InStr(tbl.rows(0).innertext, "Shortcut") > 0 Then
If InStr(tr.cells(1).innertext, "Part No") > 0 Then
For i = 1 To tbl.rows.length
i = i + 1
If i <= tbl.rows.length Then
MsgBox tbl.rows(i).cells(1).innertext & vbCr & _
tbl.rows(i).cells(2).innertext & vbCr & _
tbl.rows(i).cells(4).innertext & vbCr & _
tbl.rows(i).cells(3).innertext
End If
Next
End If
End If
End If
End If
End If
End If
Next

>>> O problema está aqui: tbl.rows(i).cells(3) no site tem uma imagem e eu preciso do link que a imagem direciona...

como quase não uso web browser em minhas aplicações recorro aos amigos e mestres...

Abraços e obrigado pela atenção.

Quando você digita o ponto antes de innertext aparece uma lista de dependências? Se aparecer, pode ver se encontra a propriedade necessária nessa lista, ou tentar colocar url no lugar de innertext. Nunca usei wb para isso, portanto, é só uma ideia.

aqui não mostra lista após o ponto mestre!

Fiz um arranjo Técnico:



Dim txtA As String
Dim txtB As String
Dim txtC As String
'===========================================
txtA = tbl.rows(i).cells(3).OuterHTML
txtB = Replace(txtA, Left(txtA, 52), "")
txtC = Replace(txtB, Right(txtB, 129), "")



Lembrando que estudei bastante o HTML conseguido com (.OuterHTML)antes de limpar.
em testes com vários itens diferentes o resultadoé satisfatório...


sem erros....

agradecimentos ao mestre criquio...

Resolvido...

Ótimo. Às vezes, a melhor solução está nos experimentos internos

dei uma melhorada aqui ...




Private Sub BtBuscar_Click()

Dim elem
Dim tbl
Dim tr
Dim i
i = 1
Dim a

Dim txtA As String
Dim txtB As String
Dim txtC As String

WebBrowser1.Navigate "http://www.alldatasheet.com/view.jsp?Searchword=" & Me.txtBusca.Value

Me.Lista8.RowSource = ""
Me.Lista8.RowSourceType = "Value List"
Me.Lista8.ColumnCount = 4
Me.Lista8.ColumnWidths = "2cm;4cm;3cm;10cm"

For Each elem In Me!WebBrowser1.Document.All
If elem.Tagname = "TABLE" Then
Set tbl = elem
If tbl.rows.length >= 1 Then 'validação
Set tr = tbl.rows(0) 'seleciona a coluna cabeçalho da tabela
If tr.cells.length > 1 Then 'verifica as colunas da tabela
If Not InStr(tbl.rows(0).innertext, "No.") > 0 Then 'dispensa tabela
If Not InStr(tbl.rows(0).innertext, "Shortcut") > 0 Then 'dispensa tabela
If InStr(tr.cells(1).innertext, "Part No") > 0 Then 'pega a coluna da tabela
For i = 1 To tbl.rows.length 'loop nos campos da tabela
i = i + 1 'contador
If i <= tbl.rows.length Then 'validação para popular o listbox
'pega o conteúdo da tabela no site e popula listbox
txtA = tbl.rows(i).cells(3).innerHTML 'pega o conteúdo Html da tabela no site
txtB = Replace(txtA, Left(txtA, InStr(1, txtA, "http", vbTextCompare) - 1), "") 'limpa as tags html antes do link
a = Len(Left(txtB, InStr(1, txtB, "html", vbTextCompare))) + 3 'limpa as tags html depois do link
txtC = Replace(txtB, Right(txtB, Len(txtB) - a), "") 'mostra somente o link sem sujeiras
'Popula a list box no form
Me.Lista8.AddItem tbl.rows(i).cells(1).innertext & ";" & _
tbl.rows(i).cells(2).innertext & ";" & _
tbl.rows(i).cells(4).innertext & ";" & _
txtC
End If
Next
End If
End If
End If
End If
End If
End If
Next

End Sub

Private Sub Comando21_Click()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate Texto16.Value
End Sub



Resultado:



Obs.: O tratamento de erros ficapor conta de quem se interressar....

Dúvidas referentes ao objeto web control são bastante comuns e exemplos escassos, devido ao fato de ser muito pouco usado. Pode ser uma boa contribuição deixar um exemplo no Repositório.

Ok mestre vou só colocar umas idéias que tenho aqui em prática e posto um exemplo.