"Sniffe" i andres HTML

det er egentlig meget nemt

Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
       
xmlhttp.Open "GET", "safsdf", false
xmlhttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
xmlhttp.send
   
t = BinToText(xmlhttp.responsebody, 32000)
   
Set xmlhttp = nothing

Response.Write t

Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")

skulle være

Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")

jeg kopierede det fra et vbs script jeg har lavet

og t = BinToText(xmlhttp.responsebody, 32000)

skal bare være

t = xmlhttp.responsebody

Lytter lige med ;o) //Claus

nordclc>> det er nok bare at trykke udfør, uden at skrive noget

Jeg har lige prøvet koden, og jeg får ikke nogen fejlmelding, men jeg får heller ikke noget fornuftig ud af det der dukker op:

????????????????(???????????=????????????????????(???????????????????????=????????????????????????????????•?????????•?????????????????????????????????†††††††????†††††††??????:???????††††††††???????????????†††††††???????????????†††††††???????????????†††††††????††††††????††††††††??????•?????????????†††††††?????????????•????????††††††††?°

Hvor meget af denne novelle jeg ser afhenger af hvilken url jeg skriver i "safsdf" (se kode over)

ja, du får teksten som binær... så er det op til dig at få det konverteret til text... der havde jeg en BinToText funktion, men du er frit stillet til at gøre hvad du vil.

Tak cyberfessor. Du har fået mig på det rette spor. Denne artikkel på 4guysFromRolla løste lige resten:

http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=128

Istedet for at bruge en funktion til at konvertere dine binære data til tekst kunne du jo bare bruge xmlhttp.responsetext ;)

ah :)