Avatar billede ole40 Nybegynder
18. september 2006 - 16:29 Der er 4 kommentarer og
1 løsning

Hente kildekoden til en html side virker ikke

X Jeh har laves følge lille vbs script og kan ikke riftig få det til at virke.
Jeg åbner siden http://search.msn.dk/results.aspx?q=script og skulle gerne hente kildekode v.h.a. responseText, men jeg får bare nogle få underlige tegn return.

Kan nogle hjælpe?

/Ole


Option Explicit
Dim objHttp, iStatus, sDummy
set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objHttp.open "GET", "http://search.msn.dk/results.aspx?q=script", False
objHttp.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; .NET CLR 2.0.50727)"
objHttp.setRequestHeader "Accept-Encoding","gzip, deflate"
objHttp.SetRequestHeader "content-type","text/html;charset=ISO-8859-1"
objHttp.setRequestHeader "ACCEPT-LANGUAGE", "da"
objHttp.setRequestHeader "Content-Script-Type","text/javascript"
objHttp.setRequestHeader "Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*"

objHttp.Send ""

iStatus = objHttp.status
sDummy = objHttp.responseText

WScript.Echo "GET " & iStatus & " " & Len(sDummy) & vbCRLF & "---------------" & vbCRLF & sDummy & vbCRLF & "---------------"

set objHttp = Nothing
   
WScript.Echo "Ready"
Avatar billede nielle Nybegynder
18. september 2006 - 19:12 #1
Hvis du fjerner denne linje, fungere det:

objHttp.SetRequestHeader "Accept-Encoding", "gzip, deflate"
Avatar billede ole40 Nybegynder
18. september 2006 - 19:25 #2
Jeps tak
Giver du en svar til point?
Ole
Avatar billede nielle Nybegynder
18. september 2006 - 19:43 #3
Svar :^)
Avatar billede nielle Nybegynder
18. september 2006 - 19:45 #4
De andre SetRequestHeader-kald har muligvis en funktion, men du får nu alligevel HTML-koden hvis de udelades.
Avatar billede ole40 Nybegynder
18. september 2006 - 19:50 #5
ok, tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat