XMLHttp, Post y Username/Password

[mrocf]

Hola a todos:
En mi opinión la siguiente función debería cumplir su cometido:

Código vb:

Function Ingresar_a_Yahoo(user$, pass$)
Dim xml As Object, iHTMLFile As Object
 
Set xml = CreateObject("Microsoft.XMLHttp")
xml.Open "Post", "https://login.yahoo.com/config/login", False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send "username=" & user & "&passwd=" & pass
 
Set iHTMLFile = CreateObject("HTMLFile")
iHTMLFile.Write xml.responseText
 
Set iHTMLFile = Nothing
Set xml = Nothing
End Function
 

Sin embargo, no consigo que tras introducir nombre de usuario y password me quede referida en xml o en iHTMLFile la página siguiente al ingreso correcto de esos datos.

El problema es, entonces: ¿Por qué no me toma lo que "posteo"?

Agradeceré cualquier orientación.
Saludos, Cacho R.

[maycolalvarez]

disculpe, pero su código NO es javascript, es VScript

de igual forma, está implementando mal el XHR, recuerde que el mismo es asíncrono,así que requiere que defina una función para el onreadystatechange, para obtener el XHR.responseText

si no, debe de configurarlo para que funcione de forma síncrona.

consulte un manual de AJAX, de preferencia use javascript.

[mrocf]

Gracias por tu comentario, maycol.

Imagino que te refieres a -por ejemplo- reemplazar:
xml.Open "Post", "https://login.yahoo.com/config/login", False

por:
xml.Open "Post", "https://login.yahoo.com/config/login", True

Así, y todo, no he tenido buenos resultados aún.

Teniendo en cuenta que el ejemplo propuesto es sencillo y de acceso para todos (o sea: ingresar como usuario a Yahoo): ¿Podrías indicarme como hacerlo o señalarme un ejemplo, pues todo lo que he leído no me ha resultado todavía?

Gracias, mrocf.