Fiz um botão para chamar um form onde esse deve ser preenchido com usuário e senha e ao clicar em entrar deve fazer login em uma determinada web.
Gostaria da ajuda de vocês.
Quais a função que devo colocar no botão entrar para que esse abra uma web e faça login automático?
Fiz um teste com o código de Tomás que encontrei e funciona muito bem, o único inconveniente que encontrei é que abre duas input,uma para colocar o usuário e a outra para a senha.
Código: Selecionar todos
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", "Forum Tomás Vásquez", Default:="login", Type:=2)
MyPass = Application.InputBox("Por favor entre com a senha", "Forum Tomás Vásquez", Default:="Password", Type:=2)
If MyLogin = "" Or MyPass = "" Then GoTo redo
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www.tomasvasquez.com.br/forum/ucp.php?mode=login"
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
ie.Document.all("username").innerText = MyLogin
ie.Document.all("password").innerText = MyPass
'obtém o forma a qual o controle de login pertence para submetê-lo
ie.Document.all("username").form.all("login").Click
If ULogin = False Then MsgBox "Usuário logado"
Set ie = Nothing
End Sub
Sub Referencia()
Dim ObRef
On Error Resume Next
' Adiciona Controles da Net
ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1
End Sub
essa é a imagem do meu projeto.
Desde já agradeço.
