Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

programadorvb6

Como pressionar automáticamente no botão de uma página.

Mensagens Recomendadas

programadorvb6

Olá boa noite.

Estou a tentar com que a função em baixo, efectue um "Click" no botão de uma página de internet, mas não estou a conseguir.

Alguém me pode ajudar?

Código HTML = <input tabIndex="3" class="input_submit" type="submit" value="Entrar"/>

Função:

Public Sub Motor_Login()		  
		Dim objIE As SHDocVw.InternetExplorer
		Dim htmlDoc As mshtml.HTMLDocument
		Dim DocElements As mshtml.IHTMLElementCollection = Nothing
		Dim urlx As String
		urlx = "http://www.portugal-a-programar.pt/index.php?app=core&module=global&section=login"
		objIE = New SHDocVw.InternetExplorer
		With objIE
			htmlDoc = .Document
			DocElements = htmlDoc.getElementsByTagName("className")
			While .Busy = True
				Threading.Thread.Sleep(2000)
			End While
			For Each i As mshtml.IHTMLElement In DocElements
				If i.value = "input_submit" Then
					i.InvokeMember("click")
				End If
			Next i
		End With
end sub

Grato desde já pela vossa atenção.

Atentamente.

Programadorvb6

Editado por programadorvb6

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.