Procurar string em WebBrowser control

cpampas 20/6/2014, 12:29

cpampas: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 83
Registrado : 27/10/2013

Mensagem nº1

Procurar string em WebBrowser control

Mensagem cpampas 20/6/2014, 12:29

Bom dia,
Alguem me ajuda sobre como procurar uma string numa pagina WEB que tenho num controle webBrowser e que carreguei no evento onLoad do formulario,
Depois de aberto o formulario, coloquei um botao com este codigo:

Dim str As String
str = "Contrato"
If (WebBrowser3.DocumentText.Contains("str")) Then
MsgBox ("Encontrámos a palavra contrato")
End If

da erro 438 (Este objecto não soporta propiedade ou metodo)

criquio 6/7/2014, 13:46

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: Procurar string em WebBrowser control

Mensagem criquio 6/7/2014, 13:46

Tente usar a função InStr. Se ela retornar um número maior que 0, a sequência existe, caso contrário, não existe.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

**JPaulo** 6/7/2014, 20:54

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009

Mensagem nº3

Re: Procurar string em WebBrowser control

Mensagem JPaulo 6/7/2014, 20:54

Primeiramente você testou com a palavra direta ?

If WebBrowser3.DocumentText.Contains("Contrato") Then

Se funcionar direto, depois já pode utilizar variáveis.

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

Procurar string em WebBrowser control Folder_announce_new