Visual Basic - Winhttp + vb6

Estimados Latinos:

Tengo una aplicacción en VB6. Necessito via vb, conectar un sitio para sacar unas informaciones de comportamiento de nuestros clientes (un report)

Tengo que hacer una conexión con un sitio del tipo

https://elsitio.com.br/xxx/consultahttps?p=LLLLLLLLSSSSSSSSNNNNNNNN + STRING DE DATOS

Estoy c/ duda de como hacer esto. Creo que tengo hacer por medio de WINHTTP (metodo POST ?)
Me gustaria recibir alguna sugerencia o algun sitio c/ informaciones (ejemplos).

Gracias

Alexandre - BRAZIL

Lo puedes hacer con la referencia a XML 4.0:

Dim xmlhttp As MSXML2.ServerXMLHTTP40

Set xmlhttp = New MSXML2.ServerXMLHTTP40

xmlhttp.open "POST", "http://www.miservidor.com/mipagina.html", False

xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xmlhttp.send "parametro1=valor1¶metro2=valor2"

Debug.Print xmlhttp.responseText

Lo que tienes que analizar es la claúsula <FORM> de la página a la que quieres enviar los datos.

En tu caso revisa si es realmente POST el método o es GET.

'' Crea una instancia de WinHTTPRequest ActiveX object.
Set WinHttpReq = New WinHttpRequest

''web service url
strhttpAPI = "https://qwww206.americanexpress.com/IPPayments/inter/ws/ISOMessageAuth.do?origin=software"

''SetTimeouts(ResolveTimeout,ConnectTimeout,SendTimeout,ReceiveTimeout)
WinHttpReq.SetTimeouts 30000, 30000, 30000, 30000

''Hace un HTTP Request. Open(BSTR bstrMethod,bstrUrl,varAsync = false)
WinHttpReq.Open "POST", strhttpAPI, False

''SetRequestHeader(bstrHeader,BSTR bstrValue)
WinHttpReq.SetRequestHeader "Post", "POST /IPPayments/inter/ws/ISOMessageAuth.do HTTP/1.1"
WinHttpReq.SetRequestHeader "Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg," _
& "application/vnd.ms-excel, application/vnd.ms-powerpoint," _
& "application/msword, application/x-shockwave-flash, */*"
WinHttpReq.SetRequestHeader "Refer", "https://qwww206.americanexpress.com/IPPayments/inter/ws/" _
& "ISOMessageAuth.do?origin=software"
WinHttpReq.SetRequestHeader "Accept-Language", "en-us"
WinHttpReq.SetRequestHeader "Content-Type", "plain/text"
WinHttpReq.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1;" _
& ".NET CLR 1.1.4322 ; .NET CLR 2.0.50727)"
WinHttpReq.SetRequestHeader "Host", "http://www206.americanexpress.com"
WinHttpReq.SetRequestHeader "Content-Lenght", CStr(Len(strPW))
WinHttpReq.SetRequestHeader "Cache-Control", "no-cache"
WinHttpReq.SetRequestHeader "Connection", "keep-Alive"
WinHttpReq.SetRequestHeader "Origin", "Software"
WinHttpReq.SetRequestHeader "Country", "484"
WinHttpReq.SetRequestHeader "Region", "LAC"
WinHttpReq.SetRequestHeader "Message-Type", "ISO CAG"
WinHttpReq.SetRequestHeader "MerchNbr", strCardAcceptorIdCode
WinHttpReq.SetRequestHeader "Rtlnd", "001"

''send message
'WinHttpReq.Send ("AuthorizationRequestParam=" & strPW)
WinHttpReq.Send ("1100=" & strPW)

''catch response from web service
Form1.Label1.Caption = WinHttpReq.Status & vbLf & WinHttpReq.StatusText & vbLf & _
WinHttpReq.GetAllResponseHeaders