Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
Lidloses_Auge_
Newbie
Newbie

Anmeldedatum: 25.09.2007
Beiträge: 9

Internet Control - Eine Art Silent Mode möglich?
Verfasst am: 28.11.2007, 14:29

Hi, bisher löse ich das auslesen des Quelltextes einer Seite auf diese Art:

Code:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp _
  As Object, url As Variant)
  On Error Resume Next
  WebBrowser1.Tag = ""
End Sub

' URL (Webseite) laden
Private Sub URL_Load(ByVal sURL As String)
  Dim sQuelltext As String
  With WebBrowser1
    .Tag = "Load"
    .Navigate sURL
    While .Tag <> ""
      DoEvents
    Wend
    sQuelltext = WebBrowser1.Document.documentElement.outerHTML
    Text2.Text = sQuelltext
  End With
End Sub

Private Sub Command1_Click()

  URL_Load ("www.google.de")

End Sub


Hier wird mir der Quelltext ohne (Zugriffs)probleme angezeigt, das Problem ist nur, dass sich im Objekt "WebBrowser1" die Seite gleich mit all ihren Inhalten (Bildern, Animationen etc.) öffnet und das ganze verlangsamt, da ich nur den Quelltext brauche.

Wie kann ich es also schaffen, dass ich nur den puren Quelltext bekomme, und das "WebBrowser1" Objekt nichts anzeigt?

Ich danke.
 
King of Chaos_
Coder
Coder

Anmeldedatum: 26.09.2007
Beiträge: 235


Verfasst am: 28.11.2007, 14:45

hmmm du willst nur den Quellcode auslesen ohne die webseite anzuzeigen?

hmmm aber von wo aus soll der Browser dann den Quellcode auslesen?

vielleicht verstehe ich die frage auch ned MfG

Willst du nur die bilder etc ned sehen dann kannst die form ja verstecken falls du das meinst aber ich glaube ned xD
 
The-God-of-all_
Poster
Poster

Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path


Verfasst am: 28.11.2007, 14:50

Ich finde die Frage ist klar formuliert. Bisher lädt er den Quelltext der Seite mit dem Internet Explorer Control. Das Internet Explorer Control lädt dann aber gleich die Bilder und alles mit und zeigt sie an. Da er aber nur den Seiten Quelltext braucht sucht er eine andere bessere Möglichkeit den Seiten Quelltext zu laden. Ich würde anstelle des Internet Explorer Objekts das Internet Transfer Objekt nehmen. Hier mal ein Beispiel: http://www.schmittis-page.de/index.html?/vb/t137.htm
 
Blue!Sky!_
Coder
Coder



Anmeldedatum: 06.10.2007
Beiträge: 227


Verfasst am: 28.11.2007, 15:10

das stimmt für solche sachen sollte man das inet tran. object benutzen....
 
Jolo_
Coder
Coder



Anmeldedatum: 20.03.2007
Beiträge: 210


Verfasst am: 28.11.2007, 15:21

Hier ist ein simples beispiel dazu: http://vb-tec.de/gethtml.htm

MfG Jolo Wink
 
King of Chaos_
Coder
Coder

Anmeldedatum: 26.09.2007
Beiträge: 235


Verfasst am: 28.11.2007, 15:22

danke wusst ich auch noch ned
 
Lidloses_Auge_
Newbie
Newbie

Anmeldedatum: 25.09.2007
Beiträge: 9


Verfasst am: 29.11.2007, 10:50

Ich habe nun die Version von The-God-of-all getestet, und in der Theorie kalppt das auch ganz gut, ich habe nur folgendes Problem.

Versucht doch einmal den Quelltext der Suchergebnisse bei Google einzulesen und ihr werdet im Quelltext ein "404 forbidden" mit einer Menge Text vorfinden.

Google scheint diese Art nicht zu mögen.
Bei der Methode wie ich sie ursprünglich verwende funktioniert es, aber dort habe ich ja wie gesagt das Problem, dass die kompletten Pages geladen werden.
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248


Verfasst am: 29.11.2007, 12:12


Mach das ganze besser übers winsock control.

http://www.vbforums.com/showthread.php?t=334645

Sources zum ansehen gibts auch auf pscode.com
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: internet, control, silent, mode, quelltext, auslesen

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Nicht der ganze Queltext?? Warum 874 10.03.2009, 12:32
Keine neuen Beiträge [Frage] Ich bekomme einen Fehler das "End if" fehlt obwohl e 698 14.09.2008, 16:33
Keine neuen Beiträge [Text] Komponenten registrieren mit Sub Main 1741 26.04.2008, 13:45
Keine neuen Beiträge ListView ganze Reihe markieren 621 27.03.2008, 23:32
Keine neuen Beiträge "Schließen"-drücken und das ganze Programm beenden 1011 16.11.2007, 14:47
 


[ Time: 0.0835s ][ Queries: 101 (0.0405s) ][ GZIP on - Debug on ]