Inicio > Uncategorized > Classic ASP Curl

Classic ASP Curl

En algunas ocasiones es necesario autenticarse en otro sitio y mantener las Cookies, en PHP existe CURL que funciona muy bien.. encontre un post en stackoverflow y le hice una pequeña modificación y funciona bastante bien:

Option Explicit

Function Fetch(ByVal URL, ByVal sHdrName)
Dim http
Set http = CreateObject(“WinHttp.WinHttpRequest.5.1”)
http.open “GET”, URL, False
http.Send
Fetch = getHeaders(http, sHdrName)
Set http = Nothing
End Function

Function getHeaders(oReq, sHdrName)
Dim tHdrName : tHdrName = Trim(sHdrName) & “: ”
Dim tArr : tArr = Split(oReq.getAllResponseHeaders(), vbCrLf)
tArr = Filter(tArr, tHdrName, True, vbTextCompare)
Dim i
For i = 0 To UBound(tArr)
tArr(i) = Mid(tArr(i), Len(tHdrName) + 1, Len(tArr(i)))
Next
getHeaders = tArr ‘Returns Array
End Function

Dim iHdrVal
For Each iHdrVal In Fetch(“http://www.sitio.com/login.asp?username=124&password=124”, “Set-Cookie”)
Response.AddHeader “Set-Cookie”, iHdrVal
Next

Si ejecutamos este script bajo el mismo dominio nos permitirá recuperar las cookies y enviarlas al browser, idealmente para hacer integraciones en un mismo dominio.

http://stackoverflow.com/questions/7405516/retrieving-multiple-cookies-in-vbscript

Anuncios
Categorías:Uncategorized Etiquetas:
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: