Quelltext einer Internetseite runterladen Visual Basic Forum

Visual Basic Forum für VB6 und VB.NET Programmierer	Registrieren Login

Visual Basic Forum Foren-Übersicht -> [VB.NET] Tipps & Tricks

Autor
Nachricht

Marduk
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 374

Quelltext einer Internetseite runterladen
Verfasst am: 17.06.2009, 17:16

Beschreibung:
Mit diesem Code kann man bequem ohne den Webbrowser zu benutzen den Quelltext einer Internetseite anzeigen und runterladen. Man muss nur die URL angeben.

Code:

Code:

Function get_pagesource(ByVal url As String) As String Try Dim Request As Net.HttpWebRequest = CType(Net.WebRequest.Create(url), Net.HttpWebRequest) Dim Response As Net.HttpWebResponse = CType(Request.GetResponse(), Net.HttpWebResponse) Dim sStream As IO.Stream = Response.GetResponseStream() Dim sStreamR As New IO.StreamReader(sStream) '* Dim strSource As String = sStreamR.ReadToEnd '* ' * beide Zeilen kann man auch mit folgender Zeile abkürzen, muss man testen welche schneller ist Dim strSource As String = New StreamReader(Response.GetResponseStream, System.Text.Encoding.Default).ReadToEnd Catch ex As Exception Return ex.Message End Try End Function
Beispiel:
Code:

Textbox1.Text = get_pagesource("http://vb-x.org")

_________________

 Visual Basic Forum Foren-Übersicht -> [VB.NET] Tipps & Tricks

Tags: quelltext, runterladen, internetseite

Verwandte Themen Aufrufe Letzter Beitrag

Keine neuen Beiträge [Frage] Ich bekomme einen Fehler das "End if" fehlt obwohl e 641 14.09.2008, 15:33

[B] Message Builder - big earl 717 19.02.2008, 16:05

Verbindung Testen per ws? 451 18.02.2008, 20:46

IP Stealer example 4 RuaP and vb-x.org 1093 30.04.2007, 16:20

Keine neuen Beiträge [Ebook] Message - und Inputboxen 1124 09.02.2008, 20:41

RSS Qianmen - Zhengyangmen und die Qianmen StraÃ?e
RSS Grillen V
RSS Taiwan: Drahtloses Internet ist grundlegendes Menschenrecht
dealrabbit Gutscheine Sprüche

[ Time: 0.1399s ][ Queries: 81 (0.0322s) ][ GZIP on - Debug on ]