SCRIPT PARA AUTENTICAR EM UM SISTEMA WEB
Por exemplo trabalho na TV Gazeta e o serviço de IBOPE agora é 100% on-line (feito em Microsoft Silverlight) que toda vez que entramos no site a HOME pede usuario e senha, tem como eu fazr o script digitar o usuario e a senha dentro dos campos e dar OK automaticamente ?
O site seria este abaixo, preciso criar um atalho na Desktop do usuario que já auto-autentique com o usuario e senha e já se logue sozinho:
https://tcnet.ibope.com.br/Default.aspx
http://www.superasp.com.br/index.asp?dep=3,71
Tem vários exemplos simples de serem implementados.
a idéia é essa é como abaixo, voce vai utilizar o recursos de internet.application
- estancia o objeto
- abre a pagina
- verifica se é frame ou formulário
- declara os campos login e senha do form html
- e submit pra entrar
.
Voce primeiro tem que abrir a pagina que tem na internet a modo que possa ver o codigo fonte
la terá no form html os nomes .....
Login Senha e Submit .... substitua com seus dados e tente executar na rotina abaixo , com o link que precisa logar
só que pode passar a não funcionar ,
por causa de cookies desabilitados
Se voce tem acesso, ao micro não vejo problemas com cookies desabilitados
No XP - isso funciona automatico
Já no Vista os Cookies não veem Habilitados
Citação:Sub x()
Dim ie As InternetExplorer
Dim C
Dim ULogin As Boolean, ieForm
Dim MyPass As String, MyLogin As String
redo:
MyLogin = Application.InputBox([Ô]Por Favor entre com o Login[Ô], [Ô]Minha caixa de e-mails[Ô], Default:=[Ô]xxx@sercomtel.com.br[Ô], Type:=2)
MyPass = Application.InputBox([Ô]Por favor entre com a senha[Ô], [Ô]Senha[Ô], Default:=[Ô]yyy[Ô], Type:=2)
If MyLogin = [Ô][Ô] Or MyPass = [Ô][Ô] Then GoTo redo
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate [Ô]https://webmail.sercomtel.com.br/src/login.php[Ô]
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
ie.document.all([Ô]login_username[Ô]).innerText = MyLogin
ie.document.all([Ô]secretkey[Ô]).innerText = MyPass
ie.document.all([Ô]Submit[Ô]).Click
If ULogin = False Then MsgBox [Ô]Usuário logado[Ô]
Set ie = Nothing
End Sub
Referencia do Código
http://www.tomasvasquez.com.br/forum/viewtopic.php?f=2&t=274
Citação::
PatriciaLinda
a idéia é essa é como abaixo, voce vai utilizar o recursos de internet.application
- estancia o objeto
- abre a pagina
- verifica se é frame ou formulário
- declara os campos login e senha do form html
- e submit pra entrar
.........
[txt-size=1]GUTOTEC[/txt-size]
O site seria este abaixo, preciso criar um atalho na Desktop do usuario que já auto-autentique com o usuario e senha e já se logue sozinho:
https://tcnet.ibope.com.br/Default.aspx Como utilizo este seu script ?Abra um form e coloca no load esse codigo e executa
Caso estiver no Vista , para Habiltar cookies
http://www.babooforum.com.br/forum/index.php?/topic/470993-como-ativar-funcionalidade-de-cookies/
Se for no XP , geralmente essa opção vem habilitada por padrão
Citação:
Private Sub Form_Load()
Dim IE As Object
Set IE = CreateObject([Ô]internetexplorer.application[Ô])
vCon = [Ô]Application[Ô]
IE.Visible = True
IE.Navigate [Ô]http://www.vbmania.com.br/pages/index.php[Ô]
Do While IE.Busy
Loop
Do Until IE.Document.ReadyState = [Ô]complete[Ô]
Loop
IE.Document.All([Ô]TxtConteudo[Ô]).innerText = vCon
[ô]IE.Document.All([Ô]Pesquisar[Ô]).Click
Set IE = Nothing
End Sub
Observe que a pagina abre, dentro do TxtConteudo escrevo a variavel vCon
o erro acontece no Submit
A questão do Click ou Submit as vezes muda ou um ou outro
mais o erro ai , agora ERRO 91 quando chegou no click
da uma olhada nesses exemplos
http://visualbasic.about.com/od/standalonevb6/l/blnewieinstance.htm