VB6
Win7
I have the code to download a web page, but if you were to use a URL such as "https://www.facebook.com/groups/RealFunnyStuff/", it is not the entire page. The file size ends up being around 2KB, enclosed with a redirect to the actual page.
The code I am using is this:
Calling like this:Code:Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Public Function DownloadFile(URL As String, _ LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function
(and no, it doesn't matter whether I have http, https, or www for the url beginning)Code:DownloadFile "https://www.facebook.com/groups/RealFunnyStuff/", "C:\Lab\test.htm")
I would like to download the entire page. How can I do this?




Reply With Quote
