Função para conectar a web por form

[silvagno]

Boa noite,
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.

 

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.

 

[Adelmo Junior]

Apenas diga que sua variavel mylogin e mypass irá receber o valor de suas textbox ...