Hallo,
Ich habe vor ein Programm zu schreiben, welches auf eine Webseite aus einer Liste geht, dann aus einem speziellen HTML Container den Text herunterlädt und Bilder die gleichzeitig auf der Webseite sind herunterlädt die sich ebenfalls in einem Container befinden. Diese Dateien (also Txt mit Text und den Bildern) werden in einen Ordner gespeichert, welcher den Namen eines weiteren Text trägt, welcher sich ebenfalls in einem HTML Container befindet. Ich habe bereits mir den Code geschrieben wie ich die Liste lade, jedoch weiß ich nicht was ich den BackgroundWorker machen lassen soll. Ich habe so grobe Überlegungen, jedoch weiß ich nicht ganz wie ich diese umsetzen soll.
Mein momentaner Code:
Mit freundlichen Grüßen,
Orenda.
Ich habe vor ein Programm zu schreiben, welches auf eine Webseite aus einer Liste geht, dann aus einem speziellen HTML Container den Text herunterlädt und Bilder die gleichzeitig auf der Webseite sind herunterlädt die sich ebenfalls in einem Container befinden. Diese Dateien (also Txt mit Text und den Bildern) werden in einen Ordner gespeichert, welcher den Namen eines weiteren Text trägt, welcher sich ebenfalls in einem HTML Container befindet. Ich habe bereits mir den Code geschrieben wie ich die Liste lade, jedoch weiß ich nicht was ich den BackgroundWorker machen lassen soll. Ich habe so grobe Überlegungen, jedoch weiß ich nicht ganz wie ich diese umsetzen soll.
Mein momentaner Code:
VB.NET-Quellcode
- Imports System.Text
- Imports System.Web
- Imports System.IO
- Imports System.Net
- Public Class MainForm
- Private Sub startButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startButton.Click
- If URLBox.Items.Count = 0 Then
- MessageBox.Show("In order to run the downloader, you need to load a list of url's!")
- Else
- Worker.RunWorkerAsync()
- End If
- End Sub
- Private Sub stopButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopButton.Click
- Worker.CancelAsync()
- MessageBox.Show("Process has been stopped!")
- End Sub
- Private Sub loadListButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loadListButton.Click
- loadListDialog.Filter = "Text files|*.txt"
- If loadListDialog.ShowDialog = DialogResult.OK Then
- URLBox.Items.AddRange(File.ReadAllLines(loadListDialog.FileName))
- loadedLabel.Text = "Loaded URL's: " & URLBox.Items.Count.ToString
- loadedProgressBar.Maximum = URLBox.Items.Count
- End If
- End Sub
- Private Sub clearListButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearListButton.Click
- MessageBox.Show("The list of url's has been cleared!")
- loadedLabel.Text = "Loaded URL's: 0"
- URLBox.Items.Clear()
- End Sub
- Private Sub Worker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Worker.DoWork
- End Sub
- Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Control.CheckForIllegalCrossThreadCalls = False
- End Sub
- End Class
Mit freundlichen Grüßen,
Orenda.