other way for get source web-page with GET method
Sub getHTML()
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
'get method
URL = "http://www.lagardedenuit.com/wiki/api.php?action=query&prop=langlinks&format=xml&lllimit=500&generator=allpages&gapfilter=nonredirects&gaplimit=500&gapfrom=0"
objHTTP.Open "GET", URL, False
file = "c:\test.txt"
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ("")
Open file For Binary As #1
Put #1, , objHTTP.responseText 'output data
Close #1
Set objHTTP = Nothing
End Sub
Some day I've used IE object for get web page source but it was a bit slow - using above code I speed up getting result about x 10. If you need to get result many times in loop etc. then this should be faster way.
Bookmarks