[psycho.ts]

send sms using smtp

Code:

Imports System.Net.Mail Imports System.Net Imports System.Diagnostics Imports System.Convert Imports Microsoft.VisualBasic Public Class Form1 Dim provider As String Dim country As Integer Const WM_NCHITTEST As Integer = &H84 Const HTCLIENT As Integer = &H1 Const HTCAPTION As Integer = &H2 Dim Times As Integer = 0 Dim random As New Random Dim n As Integer Public Sub New() AddHandler MyBase.LocationChanged, New EventHandler(AddressOf Me.Form1_LocationChanged) Me.Times = 0 Me.random = New Random Me.n = 1 Me.InitializeComponent() End Sub Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Select Case m.Msg Case WM_NCHITTEST MyBase.WndProc(m) If m.Result = HTCLIENT Then m.Result = HTCAPTION Case Else MyBase.WndProc(m) End Select End Sub Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged If (Me.WindowState = FormWindowState.Maximized) Then Me.WindowState = FormWindowState.Normal End If End Sub Private Sub btn_send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_send.Click If emuser.Text = "" Then MsgBox("Please fill all fields in fully", MsgBoxStyle.Information, "Missing Email address") ElseIf emuser.Text.Contains("@gmail") = False Then MsgBox("Valid emails should be something@gmail.com" & vbCrLf & "Only gmail emails work!", MsgBoxStyle.Information, "Invalid Email") ElseIf empass.Text = "" Then MsgBox("Please fill all fields in fully", MsgBoxStyle.Information, "Missing Gmail passsword") ElseIf txt_number.Text = "" Then MsgBox("Please fill all fields in fully", MsgBoxStyle.Information, "Missing Mobile number") ElseIf td_country.SelectedItem = "" Then MsgBox("Please fill all fields in fully", MsgBoxStyle.Information, "Missing country") ElseIf td_phone_services.SelectedItem = "" Then MsgBox("Please fill all fields in fully", MsgBoxStyle.Information, "Missing Phone provider") ElseIf amounttxt.SelectedItem = "" Then MsgBox("Please fill all fields in fully", MsgBoxStyle.Information, "Missing times") ElseIf txt_message.Text = "" Then MsgBox("Please fill all fields in fully", MsgBoxStyle.Information, "Missing SMS message") Else btn_send.Enabled = False Send_Text() End If End Sub Private Sub Send_Text() Select Case Me.amounttxt.SelectedIndex Case 0 Me.n = 1 Exit Select Case 1 Me.n = 2 Exit Select Case 2 Me.n = 3 Exit Select Case 3 Me.n = 4 Exit Select Case 4 Me.n = 5 Exit Select End Select Me.Times = CInt(-((Me.Times = 1) > False)) If (Me.Times < 10) Then Try Dim smtp As SmtpClient = Nothing Dim sms_message As New MailMessage Dim VB11 As Integer = Me.n Me.n = 1 Do While (Me.n <= VB11) sms_message.From = New MailAddress(emuser.Text) sms_message.To.Add((Me.txt_number.Text + Me.provider)) sms_message.Subject = "" sms_message.Body = Me.txt_message.Text smtp = New SmtpClient("smtp.gmail.com") smtp.Port = &H24B smtp.EnableSsl = True smtp.Credentials = New NetworkCredential(emuser.Text, empass.Text) smtp.Send(sms_message) Me.n += 1 Loop Interaction.MsgBox("Text message has been sent!", MsgBoxStyle.Exclamation, "Sent!") Catch exception1 As Exception Dim ex As Exception = exception1 My.Computer.FileSystem.WriteAllText((Application.StartupPath & "\Error.log"), ("================================================" & ChrW(13) & ChrW(10) & "It seems The following error has Occured" & ChrW(13) & ChrW(10) & "================================================" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & ex.ToString), False) Interaction.MsgBox("Error occured, Exeption has been Copied to a file called error.log send to raidx for help", MsgBoxStyle.Exclamation, "Error") End End Try Else Interaction.MsgBox("Sorry but your have sent 10 SMS messages since application opened" & ChrW(13) & ChrW(10) & "To allow others to send SMS to without people jamming it you need to restart application to send more sms", MsgBoxStyle.Critical, "Error") End End If Me.btn_send.Enabled = True End Sub Private Sub td_phone_services_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles td_phone_services.SelectedIndexChanged If (Me.country = 0) Then Select Case Me.td_phone_services.SelectedIndex Case 0 Me.provider = "@sms.3rivers.net" Return Case 1 Me.provider = "@message.alltel.com" Return Case 2 Me.provider = "@sms.bellsouth.com" Return Case 3 Me.provider = "@myboostmobile.com" Return Case 4 Me.provider = "@mobile.celloneusa.com" Return Case 5 Me.provider = "@messaging.nextel.com" Return Case 6 Me.provider = "@sprintpaging.com" Return Case 7 Me.provider = "@tmomail.net" Return Case 8 Me.provider = "@email.uscc.net" Return Case 9 Me.provider = "@vmobl.com" Return Case 10 Me.provider = "@vtext.com" Return End Select ElseIf (Me.country = 1) Then Select Case Me.td_phone_services.SelectedIndex Case 0 Me.provider = "@blueskyfrog.com" Return Case 1 Me.provider = "@optusmobile.com.au" Return End Select ElseIf (Me.country = 2) Then Select Case Me.td_phone_services.SelectedIndex Case 0 Me.provider = "@txt.bell.ca" Return Case 1 Me.provider = "@optusmobile.com.au" Return Case 2 Me.provider = "@fido.ca" Return Case 3 Me.provider = "@fido.ca" Return Case 4 Me.provider = "@text.mtsmobility.com" Return Case 5 Me.provider = "@wirefree.informe.ca" Return Case 6 Me.provider = "@pcs.rogers.com" Return Case 7 Me.provider = "@msg.telus.com" Return End Select ElseIf (Me.country = 3) Then If (Me.td_phone_services.SelectedIndex = 0) Then Me.provider = "@d2-message.de" End If ElseIf (Me.country = 4) Then Select Case Me.td_phone_services.SelectedIndex Case 0 Me.provider = "@orange.net" Return Case 1 Me.provider = "@o2.co.uk" Return Case 2 Me.provider = "@t-mobile.uk.net" Return Case 3 Me.provider = "@vodafone.net" Return End Select ElseIf (Me.country = 5) Then Select Case Me.td_phone_services.SelectedIndex Case 0 Me.provider = "@sms.netcom.no" Return Case 1 Me.provider = "@mobilpost.no" Return End Select End If End Sub Private Sub td_country_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles td_country.SelectedIndexChanged Me.country = Me.td_country.SelectedIndex Me.td_phone_services.Items.Clear() Me.td_phone_services.Text = "Select company" If (Me.country = 0) Then Me.td_phone_services.Items.Clear() Me.td_phone_services.Items.Add("3 River Wireless") Me.td_phone_services.Items.Add("AllTel") Me.td_phone_services.Items.Add("Bell South") Me.td_phone_services.Items.Add("Boost") Me.td_phone_services.Items.Add("Cellular One") Me.td_phone_services.Items.Add("Nextel") Me.td_phone_services.Items.Add("Sprint") Me.td_phone_services.Items.Add("T-Mobile") Me.td_phone_services.Items.Add("US Cellular") Me.td_phone_services.Items.Add("Virgin Mobile") Me.td_phone_services.Items.Add("Verizon") ElseIf (Me.country = 1) Then Me.td_phone_services.Items.Clear() Me.td_phone_services.Items.Add("Blue Sky Frog") Me.td_phone_services.Items.Add("Optus Mobile") ElseIf (Me.country = 2) Then Me.td_phone_services.Items.Clear() Me.td_phone_services.Items.Add("Bell Mobility") Me.td_phone_services.Items.Add("Fido") Me.td_phone_services.Items.Add("Microcell") Me.td_phone_services.Items.Add("Manitoba Telecom Systems") Me.td_phone_services.Items.Add("NBTel") Me.td_phone_services.Items.Add("Rogers") Me.td_phone_services.Items.Add("Telus") ElseIf (Me.country = 3) Then Me.td_phone_services.Items.Clear() Me.td_phone_services.Items.Add("Mannesmann Mobilefunk") ElseIf (Me.country = 4) Then Me.td_phone_services.Items.Clear() Me.td_phone_services.Items.Add("Orange") Me.td_phone_services.Items.Add("O2") Me.td_phone_services.Items.Add("T-Mobile") Me.td_phone_services.Items.Add("Vodafone") ElseIf (Me.country = 5) Then Me.td_phone_services.Items.Clear() Me.td_phone_services.Items.Add("Netcom") Me.td_phone_services.Items.Add("Telenor") End If End Sub Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click End End Sub Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click Me.WindowState = FormWindowState.Minimized End Sub Private Sub Skin1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Skin1ToolStripMenuItem.Click Me.BackgroundImage = Global.TD_SMS_Client.My.Resources.Resources.SMS1 End Sub Private Sub Skin2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Skin2ToolStripMenuItem.Click Me.BackgroundImage = Global.TD_SMS_Client.My.Resources.Resources.SMS2 End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Interaction.MsgBox("This application was coded by RaidX @ Thedetested.net" & ChrW(13) & ChrW(10) & "To allow the public to send text messges free" & ChrW(13) & ChrW(10) & "Rather than pay a service charge to use an cell providers gateway" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "This service is 100% LEGAL" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "any mis-use of this application is soley down to application user" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "Gmail account is required to send the email through" & ChrW(13) & ChrW(10) & "Gmail accounts are FREE and take litrally seconds to create.", MsgBoxStyle.Information, "About") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Hide() End Sub End Class

[FunKx]

So by this you can send sms from PC? Like a sms bomber?

[DriniFCB]

Man , can you tell us how to use please ?

[Shining White]

Um Gonna Try it , Work or not thanks for the idea