|
Registrieren
Login
Autor
Rip_
Tutorial Leser
Anmeldedatum: 02.01.2007
Beiträge: 62
Wohnort: Schwerin
Funktion zum Download eines Quelltextes
Verfasst am: 14.03.2008, 01:51
huhu da bin ich wieder mit meinen extrawaganten Fragen :
Ich versuche mittels einer Funktion den Quelltext einer Einer seite auszulesen, was auch funktioniert , ich gebe die zu ladene Seite mit
Dim sURL As String = "http://www.google.de
an, was funktioniert, aber anstatt eine Seite zu vergeben möchte ich das immer die aktuelle Seite geladen wird, die momentan im WebBrowser-Steuerelement ist
Das ist die Funktion :
Zitat:
Code:
Public Function inetReadFile(ByVal sURL As String) As String
Dim Buffer As String
Dim Request As WebRequest = WebRequest.Create(sURL)
Dim Response As WebResponse = Request.GetResponse()
Dim Stream As New StreamReader(Response.GetResponseStream())
'methode die ausgewählt wurde , POST oder GET
Request.Method = "GET"
Buffer = Stream.ReadToEnd()
Dim Headers As WebHeaderCollection = Response.Headers()
Dim Header As String = Headers.ToString()
' Hier soll der Quelltext angezeigt werden
Source.rt.Text = Header
Stream.Close()
Response.Close()
Return Buffer
End Function
Und so führe ich sie derzeit aus :
Zitat:
Code:
Dim sURL As String = "http://www.google.de"
Source.Show()
Source.rt.Text = inetReadFile(sURL)
Ich habe jetzt so lange umhergespielt, konnte aber nicht erkennen, wieso ich es nicht hinbekomme, schicke mir jemand bitte einen Gedankenblitz 
_________________
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 14.03.2008, 07:33
Verstehe ich dich richtig, dass du den Quelltext der jeweiligen Seite anzeigen willst welche zur Zeit im Webbrowser geladen ist?
Falls du das meintest, dann habe ich hier eine Solution für dich 
http://rapidshare.com/files/99407693/WebBrowser.rar
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
Rip_
Tutorial Leser
Anmeldedatum: 02.01.2007
Beiträge: 62
Wohnort: Schwerin
Verfasst am: 14.03.2008, 13:13
Hm....das klappt, danke dir. Habe ich nicht beachtet gehabt.
_________________
Verwandte Themen
Aufrufe
Letzter Beitrag
Api Download in Prozent + Kb anzeige + Progrezzbar
819
21.10.2007, 14:03
Download
790
30.08.2007, 16:45
Download mit Internet Explorer Object
498
18.08.2008, 20:00
Visual Basic Download ?
733
13.06.2007, 17:55
Visual Basic 6 download
2353
26.05.2007, 12:51
