Log ind ved hjælp af MSXML2.ServerXMLHTTP
Jeg har et lille problem, ang. en application jeg er ved at lave. Det er ikke direkte en asp side, men jeg har brugt VBScript som sprog, så de fleste asp-hajer burde have en chance :)Sagen er den at jeg skal have fat i html-koden fra en side på www.lunarstorm.dk. Den side jeg vil have fat i kræver at man er logget ind, og det vil jeg mene at jeg har fået klaret. Problemet er bare, at selv om jeg er logget ind, så kan jeg ikke få fat i den side jeg requester, da den påstår jeg ikke er logget ind :(
Dette er den kode som logger mig ind, og requester siden:
DataToSend = "username=" & Lunar_Login & "&password=" & Lunar_Password & "&target=""lunarstorm""&name=""login"
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST", "http://auth.lunarstorm.dk/login/", false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send DataToSend
xmlhttp.Open "GET", "http://www.lunarstorm.dk/top/top_icons.asp?status=reload", false
xmlhttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
xmlhttp.send
t = BinToText(xmlhttp.responsebody, 32000)
xmlhttp.Open "GET","http://www.lunarstorm.dk/sys_exit.asp", false
xmlhttp.send
xmlhttp.Close
Set xmlhttp = nothing
Nogen der har nogen bud på hvad der er galt, og hvad der kan gøres for at rette på problemet?
