el codigo esta bien, pero no funciona lo que te dije, de navegar a ese link, fijate que despues de navegar a ese link no aparece el mensaje de que te logueaste o en mi caso como no tengo cuenta en esa pagina, me tendria que mostrar un mensaje de que no estan bein los datos, pero no pasa nada.
aca te pongo una forma que se me ocurrio y funciona, como los botones submit no tienen nombre pues hay que buscar otra forma, a mi me aparece "Has ingresado un nombre de usuario o contraseña no válido" obviamente porque le puse un nombre de usuario y contraseña cualquieras, pero si muestra eso quiere decir que funciona.
Private Sub Command1_Click()
WebBrowser1.Document.All("vb_login_username").Value = "usuario"
WebBrowser1.Document.All("vb_login_password").Value = "contraseña"
Call Logearse
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.SPAM(149)"
End Sub
Private Sub Logearse()
Dim oDoc As HTMLDocument
Dim iElements As Integer, i As Integer
Dim oInputs As HTMLInputElement
Set oDoc = WebBrowser1.Document
With WebBrowser1.Document
iElements = (oDoc.getElementsByTagName("INPUT").length - 1)
For i = 0 To iElements
Set oInputs = oDoc.getElementsByTagName("INPUT")(i)
If oInputs.Type = "submit" And oInputs.Value = "Entrar" Then
oInputs.Click
Exit For
End If
'List1.AddItem oInputs.Name & " | " & oInputs.Type & " | " & oInputs.Value
Next i
End With
End Sub
ahora te preguntaras que carajo hace esto, pues lo que hace es recorrer todos los elementos de la pagina web, y si encuentra un boton de tipo "submit" y con el caption del boton en "Entrar" le hace click.
fijate que hay una linea de codigo comentada, esa linea la podes descomentar y poner un listbox y te va a cargar una lista con todos los controles web y nombres de la pagina.
PD: debes agregar la referencia a
Microsoft HTML Object Library.saludos.