Tut mir leid, dass ich mich nochmals melde, aber ich möchte gerne einen Backgroundworker in unten folgenden Code einbinden.
Ich weiß, wie man einen BGW verwenden (also "call" ...), aber nicht wie ich es an einen bestimmten Code anbinde.
Hier mein Code
Spoiler anzeigen
Ich weiß, wie man einen BGW verwenden (also "call" ...), aber nicht wie ich es an einen bestimmten Code anbinde.
Hier mein Code
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Application.DoEvents()
- Dim pop3 As New POPClient
- pop3.Disconnect()
- pop3.Connect("pop3.web.de", 110)
- pop3.Authenticate("nutzername", "passwort")
- ListBox1.Items.Clear()
- For i As Integer = 1 To pop3.GetMessageCount
- Dim m As MIMEParser.Message = pop3.GetMessage(i, False)
- ListBox1.Items.Add("From: " & m.From & " <" & m.FromEmail & "> - " & m.Subject)
- If m.MessageBody.Count > 0 Then
- Dim Attach As New List(Of MIMEParser.Attachment)
- Messages.Add(m.MessageBody(m.MessageBody.Count - 1))
- Messages.Add(m.From.ToString)
- For ii As Integer = 1 To m.AttachmentCount - 1
- Attach.Add(m.GetAttachment(ii))
- Next
- AttachArray.Add(Attach)
- End If
- Next
- pop3.Disconnect()
- End Sub
- Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
- TextBox1.Text = Messages(sender.SelectedIndex)
- ListBox2.Items.Clear()
- For Each att As MIMEParser.Attachment In AttachArray(sender.SelectedIndex)
- ListBox2.Items.Add(att.ContentFileName & " " & att.ContentLength & " Byte")
- Next
- End Sub
- Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
- Dim att As MIMEParser.Attachment = AttachArray(ListBox1.SelectedIndex)(sender.SelectedIndex)
- Dim fs As FileStream = File.Create(Application.StartupPath & "/attach/" & att.ContentFileName)
- Dim da() As Byte
- da = att.DecodedAttachment
- fs.Write(da, 0, da.Length)
- MsgBox("'" & att.ContentFileName & "' wurde gespeichert!")
- fs.Close()
- End Sub