Get real source code of webpage

[mtcas]

Hi all.

I'm using simple code to get source code of webpage. In the most cases it works fine, but with some kind of urls the source code is different than in the browser(right click->view page source). It looks like source code of some scripts instead of text data visible on the webpage.

example url: https://www.google.com/search?q=site...ps://tophd.pl/

Dim URL, odp As String
Dim x As Integer

URL = Range("A1").Value
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", URL, False
    .send
 Range("B1").Value = .ResponseText
End With

[vba_php]

what are you saying? are you saying that the source code found here:

https://tophd.pl/

is different than the source code found here?

https://www.google.com/search?q=site...ps://tophd.pl/

if so, well of course it is!

when you say:

but with some kind of urls the source code is different than in the browser

not really understanding that. the source code is different WHERE? when you're comparing the browser to WHAT? other software programs you are using to view page sources of URLs? you should know that source code generated on the return page of a google search is more than likely generated by a server that throws out garbled junk that is unintelligble. furthermore, have you seen the KB from MS regarding the async call you are using?

https://docs.microsoft.com/en-us/pre...62275(v=vs.85)

[mtcas]

Hi,

When Im using VBA code like in the file Im retrieving different source code than I open the same website manually and right clic on this site and choose "view source page".

When you click on the link in A1 cell, the website will open and click right mouse button and select "view source page" I want in cell B1 this source code.

[vba_php]

When Im using VBA code like in the file Im retrieving different source code than I open the same website manually and right clic on this site and choose "view source page".

that could be for any number of reasons. I don't really believe what you're saying, and I apologize for that. but then again, you might be getting XML data back, and that's what you're calling ""different"". post the code you are using.

[mtcas]

Ok, sorry. I found the problem. Max chars in cell can be 32767 and I thought that something is wrong because source code was not copied all.
To delete

[vba_php]

LOL. well you didn't say that it was truncated, silly! you said it was different! geez. well good luck anyway

[mtcas]

It was different for me because one source was truncated from VBA and second source was completed from website:P

[vba_php]

well of course it was! LOL. the 32656 size of a cell you mentioned (or whatever number it was), obviously is a power of 2 like everything is. and thus, it's different. the size is in bytes, I think. 1 byte = 1 ASCII character