2 
5 
9
- This topic explains about, how to create sms application in vb programming or we can send sms through PC in vb programming.
- For create sms application, two classes have been used, Form1 and SMSCOMMS
- You have to import following namespaces for creating sms application.
|
1 2 3 4 |
Imports System Imports System.Threading Imports System.ComponentModel Imports System.IO.Ports |
System.ComponentModel -Â Create sms application or send sms in vb
- The System.ComponentModel namespace provides classes that are used to implement the run-time and design-time behavior of components and controls.
- This namespace includes the base classes and interfaces for implementing attributes and type converters, binding to data sources, and licensing components.
System.IO.Ports -Â Create sms application or send sms in vb
- The System.IO.Ports namespace contains classes for controlling serial ports.
- The most important class, SerialPort, provides a framework for synchronous and event-driven I/O, access to pin and break states, and access to serial driver properties.
- It can be used to wrap a Stream objects, allowing the serial port to be accessed by classes that use streams.
Create sms application or send sms in vb – Complete Code
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
Public Class Form1 'connect your mobile/GSM modem to PC, 'then go to device manager and check under ports which COM port has been selected 'if it say COM4, then put COM5 in following statement Dim SMSEngine As New SMSCOMMS("COM5") Dim i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SMSEngine.Open() 'open the port SMSEngine.SendSMS() 'send the SMS End Sub End Class Public Class SMSCOMMS Private WithEvents SMSPort As SerialPort Private SMSThread As Thread Private ReadThread As Thread Shared _Continue As Boolean = False Shared _ContSMS As Boolean = False Private _Wait As Boolean = False Shared _ReadPort As Boolean = False Public Event Sending(ByVal Done As Boolean) Public Event DataReceived(ByVal Message As String) Public Sub New(ByRef COMMPORT As String) 'initialize all values SMSPort = New SerialPort With SMSPort .PortName = COMMPORT .BaudRate = 9600 .Parity = Parity.None .DataBits = 8 .StopBits = StopBits.One .Handshake = Handshake.RequestToSendXOnXOff .DtrEnable = True .RtsEnable = True .NewLine = vbCrLf End With End Sub Public Function SendSMS() As Boolean Try If SMSPort.IsOpen = True Then 'sending AT commands SMSPort.WriteLine("AT") SMSPort.WriteLine("AT+CMGF=1" & vbCrLf) 'set command message format to text mode(1) SMSPort.WriteLine("AT+CSCA=" & Chr(34) & "+919895051914" & Chr(34) & vbCrLf) 'set service center number (which varies for service providers (idea, airtel)) SMSPort.WriteLine("AT+CMGS=" & Chr(34) & "your receipent mobile no" & Chr(34) & vbCrLf) ' enter the mobile number whom you want to send the SMS _ContSMS = False SMSPort.WriteLine("Hello, SMS sending success " & vbCrLf & Chr(26)) 'SMS sending 'SMSPort.ReadLine() MsgBox(SMSPort.ReadExisting()) MessageBox.Show("Message sent") SMSPort.Close() End If Catch ex As Exception MsgBox(ex.Message) End Try End Function Public Sub Open() If Not (SMSPort.IsOpen = True) Then SMSPort.Open() End If End Sub Public Sub Close() If SMSPort.IsOpen = True Then SMSPort.Close() End If End Sub End Class |
Create sms application or send sms in vb
If you have any suggestions, please contact us….
Related Posts:
Leave a Reply
