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"