Sample Multithreaded Mailing Application

This Windows application uses multithreading capabilities of VB.NET to realize a mailing application project. You can use to learn the multithreading working style. Application seems like this (Bu Windows uygulaması, bir mailing projesini gerçekleştirmek için VB.NET'in çokkanalılık özelliklerini kullanmaktadır. Bu uygulamanın kodlarını inceleyerek, çokkanallı uygulama geliştirmeyi öğrenebilirsiniz. Uygulama şuna benziyor:):

Download Threading.zip



Main code (Form1.vb):



Public Class Form1

Public Stopped As Boolean = False

Public MaxThreadCount As Integer = 10

Public PostCount As Integer = 20

Public PostSent As Integer = 0

Public AssignedJob As Integer = 0

Public Status As String = "Ready"

Public Threads As IList(Of System.Threading.Thread) = New List(Of System.Threading.Thread)

Public MessageSenders As IList(Of MessageSender) = New List(Of MessageSender)



Sub Logging(ByVal text As String)

lstLog.Items.Add(Now.ToLongTimeString + ": " + text)

End Sub



Sub SenderThreadOnFinish(ByVal JobInfo As JobInfo)

PostSent = PostSent + 1

End Sub



Sub AssignJob(ByVal ThreadIndex As Integer)

MessageSenders.Item(ThreadIndex).JobInfo.PostIndex = AssignedJob

If Threads.Count - 1 < ThreadIndex Then

Threads.Add(New System.Threading.Thread(AddressOf MessageSenders.Item(ThreadIndex).Send))

Else

Threads.Item(ThreadIndex) = New System.Threading.Thread(AddressOf MessageSenders.Item(ThreadIndex).Send)

End If

Threads.Item(ThreadIndex).Start()

AssignedJob = AssignedJob + 1

Logging("Thread" + ThreadIndex.ToString + " sending post#" + AssignedJob.ToString)

End Sub



Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

Dim ThreadIndex As Integer



Status = "Running"

MaxThreadCount = nmrMaxThreadCount.Value

PostCount = nmrPostCount.Value

PostSent = 0

AssignedJob = 0

lstStatus.Items.Clear()

lstLog.Items.Clear()



'Initialize the status listbox

Logging("Threads are being created...")

For ThreadIndex = 0 To MaxThreadCount - 1

MessageSenders.Add(New MessageSender)

MessageSenders.Item(ThreadIndex).JobInfo.ThreadName = "Thread" + ThreadIndex.ToString

MessageSenders.Item(ThreadIndex).JobInfo.ThreadIndex = ThreadIndex

AddHandler MessageSenders.Item(ThreadIndex).Finish, AddressOf SenderThreadOnFinish

lstStatus.Items.Add("Thread" + ThreadIndex.ToString + ": Ready")

Next



Logging("Threads are being checking to assign job...")

ThreadIndex = 0

While AssignedJob < PostCount

If MessageSenders(ThreadIndex).JobInfo.ThreadStatus = "Ready" Then

AssignJob(ThreadIndex)

End If

If ThreadIndex = MaxThreadCount - 1 Then

ThreadIndex = 0

Else

ThreadIndex = ThreadIndex + 1

End If

Application.DoEvents()

End While



Status = "Ready"

Logging("Mailing have completed")

End Sub



Private Sub tmrThreadStatus_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrThreadStatus.Tick

Dim ThreadIndex As Integer = 0

For ThreadIndex = 0 To Threads.Count - 1

lstStatus.Items(ThreadIndex) = "Thread" + ThreadIndex.ToString + ": " + MessageSenders(ThreadIndex).JobInfo.ThreadStatus

Next

End Sub

End Class





Public Class MessageSender

Public JobInfo As JobInfo = New JobInfo

Public Event Finish(ByVal JobInfo As JobInfo)

Public Sub Send()

JobInfo.ThreadStatus = "Running"



Dim SmtpClient As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient("0.0.0.0")

Try

Dim Message As New System.Net.Mail.MailMessage("from@example.com", "to@example", "Hi Esref", "Please let me know, when you read the this message.")

SmtpClient.Credentials = New System.Net.NetworkCredential("username", "password")

SmtpClient.Send(Message)

Catch e As Exception

Console.WriteLine(e.Message)

End Try



RaiseEvent Finish(JobInfo)

JobInfo.ThreadStatus = "Ready"

End Sub

End Class



Public Class JobInfo

Public ThreadName As String

Public ThreadIndex As Integer

Public ThreadStatus As String = "Ready"

Public PostIndex As Integer

End Class