Quelltext aus dem IE in eine Variable lesen

[CoRoNa2k]

Hallo!

Ich würde gerne den Quelltext aus dem Internet Explorer in eine Variable lesen und damit weiter arbeiten. Nach einigem suchen bin ich im Internet auf folgendem Code gestossen:

Private Sub Command1_Click()
	Dim source As String
	Inet1.protocol = icHTTP
	Inet1.URL = brwWebBrowser.LocationURL
 
	source = Inet1.OpenURL(Inet1.URL, icString)
 
End Sub

Dabei habe ich allerdings folgendes Problem: Es werden komischerweise nur ca. die ersten 40.000 Zeichen gelesen. Der Rest wird nicht weiter gegeben

Hat jemand eine Idee, wie ich den kompletten Quelltext gelesne bekomme?

Danke schonmal vorab

 

[AtomSoldier]

Also:

Also, du must schon richtig dein Problem erklären.
Fügst du den Inhalt der Variable "source" in eine TextBox ?
Wenn ja dann pack den in Inhalt in eine RichTextBox.

Ich glaube net das ein String nicht mehr als 40.000 Zeichen aufnehmen kann,
vllt. wird der Speicherüberlastet. Hmm keine Ahnung,

Wie gesagt, versuchs mal mit einer RichtTextBox.

 

[NRFi]

du kannst irgendwo angeben, wieviele zeichen angenommen werden müssen.

 

[CoRoNa2k]

Hi!

Also wenn die Variable abrufe mit

 MsgBox Right(source, 1000)

sehe ich, daß er mitten im code aufgehört hat ihn weiter zu geben...

Also ist es kein Textbox Problem
Es scheint halt, als würde er einfach irgendwo aufhören den Text in die Variable zu packen...

EDIT:
So ich habs mal spaßeshalber bei ner Seite probiert und in eine Textbox ausgegeben (ja, von der Größe reichte mir eine normale Textbox )

class="menuItemArrow"><img src="/include/HM/HM_More_white_ri

Das ist das Ende was angezeigt wird ... in der MsgBox und im Textfeld ...

 

[NRFi]

Inet1.protocol = icHTTP

Inet1.Execute(Inet1.URL)

source = Inet1.GetChunk(1000000)

so hab ichs mal gemacht.

 

[CoRoNa2k]

Inet1.protocol = icHTTP
 
Inet1.Execute(Inet1.URL)
 
source = Inet1.GetChunk(1000000)

so hab ichs mal gemacht.

Hallo!

Danke für die schnelle Antwort

Also bei deinem Code komm ich wesentlich weiter, aber trotzdem nicht bis zu Schluss!
Echt komisch ... hast du das mal so ausprobiert? Ich verstehs net

Die 40.000, die ich oben angegeben habe stimmen btw nicht ... weiß auch nicht mehr wie ich darauf gekommen bin