Code (vbnet):
Imports System.IO
Imports MailBee.Mime
Imports MailBee.AntiSpam
Module Sample
Sub Main(ByVal args() As String)
Dim filter As BayesFilter = New BayesFilter()
Dim msg As MailMessage = New MailMessage()
filter.LoadDatabase("C:\AntiSpam\spam.dat", "C:\AntiSpam\nonspam.dat")
' Train Bayesian filter for spam messages.
Dim files() As String = Directory.GetFiles("C:\AntiSpam\Spam", "*.eml")
For Each file As String In files
msg.LoadMessage(file)
filter.TrainFilter(msg, True) ' Mark as spam.
Next
' Train Bayesian filter for non-spam messages.
files = Directory.GetFiles("C:\AntiSpam\NonSpam", "*.eml")
For Each file As String In files
msg.LoadMessage(file)
filter.TrainFilter(msg, False) ' Mark as non-spam.
Next
' Save Bayesian database to disk.
filter.SaveDatabase("C:\AntiSpam\spam.dat", "C:\AntiSpam\nonspam.dat")
End Sub
End Module
Imports System.IO
Imports MailBee.Mime
Imports MailBee.AntiSpam
Module Sample
Sub Main(ByVal args() As String)
Dim filter As BayesFilter = New BayesFilter()
Dim msg As MailMessage = New MailMessage()
filter.LoadDatabase("C:\AntiSpam\spam.dat", "C:\AntiSpam\nonspam.dat")
' Train Bayesian filter for spam messages.
Dim files() As String = Directory.GetFiles("C:\AntiSpam\Spam", "*.eml")
For Each file As String In files
msg.LoadMessage(file)
filter.TrainFilter(msg, True) ' Mark as spam.
Next
' Train Bayesian filter for non-spam messages.
files = Directory.GetFiles("C:\AntiSpam\NonSpam", "*.eml")
For Each file As String In files
msg.LoadMessage(file)
filter.TrainFilter(msg, False) ' Mark as non-spam.
Next
' Save Bayesian database to disk.
filter.SaveDatabase("C:\AntiSpam\spam.dat", "C:\AntiSpam\nonspam.dat")
End Sub
End Module
[Ovu poruku je menjao Shadowed dana 26.03.2010. u 19:46 GMT+1]
Ivan Djordjevic