Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Cookies einbinden
Autor: georg-30
Datum: 02.10.03 10:03
das ist mein Code zum auslesen Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click pbrPercent.Value = (0) txtHtml.Text = "http://www.riha-georg.at/King-Forum/portal.php" txtHtml.Text = GetHTMLPage("http://www.riha-georg.at/King-Forum/portal.php") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Function GetHTMLPage(ByVal URL As String) As String Dim sResult As String Dim oHttp As HttpWebRequest Dim objResponse As WebResponse Dim objRequest As WebRequest Try objRequest = System.Net.HttpWebRequest.Create(URL) objRequest.Method = "GET" objRequest.Timeout = 120000 ' 20 sekunden objResponse = objRequest.GetResponse ProgressBarinPercent(URL, pbrPercent) Dim sr As System.IO.StreamReader = New System.IO.StreamReader(objResponse.GetResponseStream(), System.Text.Encoding.UTF8) sResult = sr.ReadToEnd() sr.Close() objResponse.Close() Return sResult Catch ex As System.Exception MsgBox(ex.Message) pbrPercent.Value = (0) txtHtml.Text = "" oHttp = Nothing objResponse = Nothing objRequest = Nothing End Try End Function Function ProgressBarinPercent(ByVal sURL As String, ByVal pProgress As ProgressBar) Const APPROXFILESIZE As Integer = 80000 Dim wRemote As System.Net.WebRequest Dim bBuffer(999) As Byte Dim sResponseData As String Dim iBytesRead As Integer wRemote = WebRequest.Create(sURL) pProgress.Maximum = APPROXFILESIZE Dim sChunks As Stream = wRemote.GetResponse.GetResponseStream Do iBytesRead = sChunks.Read(bBuffer, 0, 1000) If pProgress.Value + iBytesRead <= pProgress.Maximum Then pProgress.Value += iBytesRead Else pProgress.Value = pProgress.Maximum End If Loop Until iBytesRead = 0 pProgress.Value = pProgress.Maximum sChunks.Close() End Function

Cookies einbinden	800	georg-30	01.10.03 23:33
Re: Cookies einbinden	490	DaveS	02.10.03 09:09
Re: Cookies einbinden	730	georg-30	02.10.03 10:03
Re: Cookies einbinden	501	DaveS	02.10.03 11:25
Re: Cookies einbinden	497	georg-30	02.10.03 11:56
Re: Cookies einbinden	549	DaveS	02.10.03 13:02

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen