Listbox auswählen wo Nachricht hin verschickt wird

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    Listbox auswählen wo Nachricht hin verschickt wird

    hallo ich bin ziemlich neu hier und ich hab mir mal erlaubt euch eine frage zu stellen also ich bin dabei
    ein E-Mail sende Programm mit VB2010 Express zu machen nur leider komm ich nicht weiter ich habe mehrere smtp Server in der ListBox wo man dan auswählen soll über welchen smtp die nachricht Verschikt werden soll Zb. smtp.Live.com

    ja ich habe das mit 8 timern gemacht und nun will ich es so machen das wenn ich in der listbox ein auswähle zb. timer 1 gestartet wird aber wenn ich das 2. zb. wähle soll timer 2 gestartet werden und die anderen nicht ja und so halt mit 8 timern ich hoffe ihr versteht es wie ich es mein


    würde mich sehr freuen wenn ihr mir Helfen könntet oder vielleicht auch ein vollständigen Code geben könntet

    mfg: underground77 :)

    underground77 schrieb:

    würde mich sehr freuen wenn ihr mir Helfen könntet oder vielleicht auch ein vollständigen Code geben könntet
    Meine Aufgabe besteht darin, mein Problem zu lösen. Ich hab einen Windoof-Rechner und VS 2008 Express.
    Bitte schickt mir den richtigen und fehlerfreien Code dazu.
    @underground77:
    Du hast nicht geschrieben, wie Dein Geschenk eingepackt werden soll.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    naja ich will euch ja hier nichts vor machen also ich wollt mal Probieren mein eigenen mail Bomber zu machen ja und für jede addresse habe ich ein timer weil es sonst zu fehlern kommt ja und ich auch wenn es um ein Mail bomber geht das ihr mein Problem lösen könnt das ganze sieht so bei mir aus

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    2. Public Class Form1
    4. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    5. End
    6. End Sub
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. Timer1.Start()
    11. Timer2.Start()
    12. Timer3.Start()
    13. Timer4.Start()
    14. Timer5.Start()
    15. Timer6.Start()
    16. Timer7.Start()
    17. Timer8.Start()
    19. End Sub
    21. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    22. Timer1.Stop()
    23. Timer2.Stop()
    24. Timer3.Stop()
    25. Timer4.Stop()
    26. Timer5.Stop()
    27. Timer6.Stop()
    28. Timer7.Stop()
    29. Timer8.Stop()
    31. End Sub
    33. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    34. Dim MyMailMessage As New MailMessage()
    35. MyMailMessage.From = New MailAddress(TextBox1.Text)
    36. MyMailMessage.To.Add(tobox.Text)
    37. MyMailMessage.Subject = (subjectbox.Text)
    38. MyMailMessage.Body = messagebox.Text
    39. Dim SMTPServer As New SmtpClient("smtp.googlemail.com")
    40. SMTPServer.Port = 587
    41. SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, passwordbox.Text)
    42. SMTPServer.EnableSsl = True
    43. Label1.Text = Val(Label1.Text + 1)
    44. SMTPServer.Send(MyMailMessage)
    45. End Sub
    48. Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    49. Dim MyMailMessage As New MailMessage()
    50. MyMailMessage.From = New MailAddress(TextBox1.Text)
    51. MyMailMessage.To.Add(tobox.Text)
    52. MyMailMessage.Subject = (subjectbox.Text)
    53. MyMailMessage.Body = messagebox.Text
    54. Dim SMTPServer As New SmtpClient("smtp.live.com")
    55. SMTPServer.Port = 25
    56. SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, passwordbox.Text)
    57. SMTPServer.EnableSsl = True
    58. Label1.Text = Val(Label1.Text + 1)
    59. SMTPServer.Send(MyMailMessage)
    60. End Sub
    63. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    64. Dim MyMailMessage As New MailMessage()
    65. MyMailMessage.From = New MailAddress(TextBox1.Text)
    66. MyMailMessage.To.Add(tobox.Text)
    67. MyMailMessage.Subject = (subjectbox.Text)
    68. MyMailMessage.Body = messagebox.Text
    69. Dim SMTPServer As New SmtpClient("smtp.aim.com")
    70. SMTPServer.Port = 587
    71. SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, passwordbox.Text)
    72. SMTPServer.EnableSsl = True
    73. Label1.Text = Val(Label1.Text + 1)
    74. SMTPServer.Send(MyMailMessage)
    75. End Sub
    78. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    79. Dim MyMailMessage As New MailMessage()
    80. MyMailMessage.From = New MailAddress(TextBox1.Text)
    81. MyMailMessage.To.Add(tobox.Text)
    82. MyMailMessage.Subject = (subjectbox.Text)
    83. MyMailMessage.Body = messagebox.Text
    84. Dim SMTPServer As New SmtpClient("smtp.web.de")
    85. SMTPServer.Port = 587
    86. SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, passwordbox.Text)
    87. SMTPServer.EnableSsl = True
    88. Label1.Text = Val(Label1.Text + 1)
    89. SMTPServer.Send(MyMailMessage)
    90. End Sub
    93. Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    94. Dim MyMailMessage As New MailMessage()
    95. MyMailMessage.From = New MailAddress(TextBox1.Text)
    96. MyMailMessage.To.Add(tobox.Text)
    97. MyMailMessage.Subject = (subjectbox.Text)
    98. MyMailMessage.Body = messagebox.Text
    99. Dim SMTPServer As New SmtpClient("smtp.mail.yahoo.de")
    100. SMTPServer.Port = 25
    101. SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, passwordbox.Text)
    102. SMTPServer.EnableSsl = True
    103. Label1.Text = Val(Label1.Text + 1)
    104. SMTPServer.Send(MyMailMessage)
    105. End Sub
    107. Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    108. Dim MyMailMessage As New MailMessage()
    109. MyMailMessage.From = New MailAddress(TextBox1.Text)
    110. MyMailMessage.To.Add(tobox.Text)
    111. MyMailMessage.Subject = (subjectbox.Text)
    112. MyMailMessage.Body = messagebox.Text
    113. Dim SMTPServer As New SmtpClient("smtp.de.aol.com")
    114. SMTPServer.Port = 587
    115. SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, passwordbox.Text)
    116. SMTPServer.EnableSsl = True
    117. Label1.Text = Val(Label1.Text + 1)
    118. SMTPServer.Send(MyMailMessage)
    119. End Sub
    121. Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    122. Dim MyMailMessage As New MailMessage()
    123. MyMailMessage.From = New MailAddress(TextBox1.Text)
    124. MyMailMessage.To.Add(tobox.Text)
    125. MyMailMessage.Subject = (subjectbox.Text)
    126. MyMailMessage.Body = messagebox.Text
    127. Dim SMTPServer As New SmtpClient("smtp.netcologne.de")
    128. SMTPServer.Port = 587
    129. SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, passwordbox.Text)
    130. SMTPServer.EnableSsl = True
    131. Label1.Text = Val(Label1.Text + 1)
    132. SMTPServer.Send(MyMailMessage)
    133. End Sub
    135. Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    136. Dim MyMailMessage As New MailMessage()
    137. MyMailMessage.From = New MailAddress(TextBox1.Text)
    138. MyMailMessage.To.Add(tobox.Text)
    139. MyMailMessage.Subject = (subjectbox.Text)
    140. MyMailMessage.Body = messagebox.Text
    141. Dim SMTPServer As New SmtpClient("smtpmail.t-online.de")
    142. SMTPServer.Port = 25
    143. SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, passwordbox.Text)
    144. SMTPServer.EnableSsl = True
    145. Label1.Text = Val(Label1.Text + 1)
    146. SMTPServer.Send(MyMailMessage)
    147. End Sub
    150. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mail.SelectedIndexChanged
    152. End Sub
    154. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    155. Mail.Items.Add("t-online.de")
    156. Mail.Items.Add("netcologne.de")
    157. Mail.Items.Add("aol.com")
    158. Mail.Items.Add("yahoo.de")
    159. Mail.Items.Add("web.de")
    160. Mail.Items.Add("aim.com")
    161. Mail.Items.Add("live.com")
    162. Mail.Items.Add("smtp.googlemail.com")
    164. End Sub
    165. End Class


    ja und nun habe ich da in meine form ne listbox drinn wo man den auswählt web.de oder live.de

    aber wie mach ich das wenn ich das auswähl das den der entsprechende timer auch nur gestartet wird der dazu passt

    mfg: underground77

    würde mkich über eure Hilfe sehr freuen :)

    Edit by Manschula: Das Forum bietet für Codeausschnitte zwecks besserer Übersichtlichkeit einen VB-Tag an. Diesen bitte auch verwenden! --> VB-Tag eingefügt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manschula“ ()