![]()
|
|
Visual Basic Quellcode |
1 |
Dim t As String = ListView1.FocusedItem.Tag |
Hi,
habe jetzt das beispielprojekt fertig. Könnt es euch im Anhang runterladen
Grüsse,
viperkill

|
|
Visual Basic Quellcode |
1 |
Request As HttpWebRequest = HttpWebRequest.Create(Link) |
|
|
Visual Basic Quellcode |
1 |
Dim DateRegEx As New Regex("<span class=""watch-video-added post-date"">(?<DateAdded>(.*))</span>") Dim DateAdded As String DateAdded = DateRegEx.Match(httpContent).Groups("DateAdded").ToString |
|
|
Visual Basic Quellcode |
1 |
Dim Length As New Regex("<span class=""video-time""><span>(?<Time>(.*))</span></span>") Dim Time As String Time = Length.Match(httpContent).Groups("Time").ToString |
Ich krieg diese verdammte Zeile nicht umgeschrieben
|
|
Visual Basic Quellcode |
1 |
Dim t As String = ListView1.FocusedItem.Tag |
Zitat
So langsam geb ich's auf Ich krieg diese verdammte Zeile nicht umgeschrieben
Ja, hast du. Aber es gibt wie du schon sagtest eine Invoke Exception.
Zitat
So langsam geb ich's auf Ich krieg diese verdammte Zeile nicht umgeschrieben
Ich hab dir doch eben mein Projekt geschickt ö.Ö
vielleicht kennt jemand eine lösug
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 |
Private WithEvents HttpClient As WebClient HttpClient.DownloadFileAsync(New Uri(DownloadURL), (ZielDatei)) 'Progressbar Private Sub HttpClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles HttpClient.DownloadProgressChanged ProgressBar1.Value = e.ProgressPercentage Dim bytes As Long Dim totalbytes As Long bytes = e.BytesReceived / 1024 totalbytes = e.TotalBytesToReceive / 1024 Dim percent As Integer percent = (bytes / totalbytes) * 100 Me.Text = percent.ToString & " %" DownloadText.Visible = True DownloadText.Text = bytes.ToString & "kb von " & totalbytes.ToString & "kb" & " heruntergeladen " & "( " & percent & " % )" |
|
|
Visual Basic Quellcode |
1 |
HttpClient.DownloadFileAsync(New Uri(DownloadURL), (ZielDatei))
|