Visual Basic - Ayuda con el objeto MSXML2

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con el objeto MSXML2

Publicado por amarti93 (16 intervenciones) el 04/01/2006 11:11:06
Quiero logarme en una pagina web utilizando el objeto MSXML2.ServerHTTP40 desde una aplicación visual basic, para ello necesito enviar mediante el metodo send el usuario y la password .... he visto ejemplos del tipo :

oXML.send "param1=xxxx?param2=xxxx"

Pero no me funciona .... alguien tiene algún ejemplo que me pueda servir para este caso

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con el objeto MSXML2

Publicado por Low (102 intervenciones) el 04/01/2006 17:10:48
Pozzi, lo tengo ;P

Pera a ver que lo busco un segundo y lo pego....
.....
.....

Dim ServidorHTTP As XMLHTTP40
Set ServidorHTTP = CreateObject("Msxml2.ServerXMLHTTP")


ServidorHTTP.open "POST", Trim(URLGestor), False

Dim StrBody As String

'******************************************************
'Añadimos los campos al post TEN CUIDADIN CON EL NOMBRE DE TUS PARAMETROS
'******************************************************
StrBody = ""
StrBody = StrBody & setBody("name", Usuario)
StrBody = StrBody & setBody("password", Pass)
'....

Dim aPostdata() As Byte
aPostdata = StrConv(StrBody, vbFromUnicode)


ServidorHTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary=7d01ecf406a6" & vbCrLf

ServidorHTTP.send aPostdata

Y la funcion setBody que uso:

Function setBody(nombre, valor)
Dim body
body = "--" & "7d01ecf406a6" & vbCrLf
body = body & "Content-Disposition: form-data; name = """ & nombre & """" & vbCrLf & vbCrLf
body = body & valor & vbCrLf
setBody = body
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar