Sending SMS to any Mobile thru VB code

I'm into new assignment of sending SMS to mobile phones, I'm just a beginner to this, so please advice me in this regard or send a VB code to do this and the hardware requirements in detail.

 
nireneAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

jimmackCommented:
As I said in my first comment on the following question, I'm not too familiar with VB, but there is a significant amount of code that you might be able to use as a basis for your project:

http://www.experts-exchange.com/Programming/Wireless_Programming/Q_20852604.html

There is also some information in the question regarding the hardware setup.
SimonTayCommented:
This will send an SMS using VB.

'Demo program will switch a modem on (using DTR), send a message and switch the modem off.
'Message sent demonstrates sending the "@" character - sent as a NULL character

Dim MS50 As Integer
Dim ModemLine As String
Public Function SendCommand(outcomm$, waittime, waitfor$, waiterror$) As Integer
 Dim untiltime, intext$
 Debug.Print outcomm$, waittime;
 dummy = DoEvents()
 SendCommand = False
 If outcomm$ > "" Then
  Comm1.InBufferCount = 0    'clear buffer only if we are sending a command
 End If
 Comm1.Output = outcomm$
 Delay (0)
 untiltime = MS50 + waittime * 20
 Do While MS50 < untiltime
  DoEvents
  If Comm1.InBufferCount Then
   intext$ = intext$ + Comm1.Input
   ModemLine = intext$      'Allows us to see modem responses
   If waiterror$ > "" Then
    If InStr(intext, waiterror$) Then
     SendCommand = False
     Debug.Print "error!"
     Exit Function
    End If
   End If
   If InStr(intext$, waitfor$) Then
    Debug.Print "found!"
    SendCommand = True
    Exit Function
   End If
  End If
 Loop
 Debug.Print "Fell out!"
End Function
Private Sub Form_Load()
 Comm1.PortOpen = True
 'wait for 5 seconds
 Delay (100)
 'check the modem is present
 If Not (SendCommand("AT" & Chr(13), 1, "OK", "ERROR")) Then Stop
 'select text mode
 If Not (SendCommand("AT+CMGF=1" & Chr(13), 1, "OK", "ERROR")) Then Stop
 'select number to send message to
 If Not (SendCommand("AT+CMGS=07768428540" & Chr(13), 1, ">", "ERROR")) Then Stop
 'send message
 If Not (SendCommand("This is a test message to name" & Chr(0) & "domain.com" & Chr(26), 10, "OK", "ERROR")) Then Stop
'switch modem off
 If Not (SendCommand("AT^SMSO" & Chr(13), 1, "OK", "ERROR")) Then Stop
 Comm1.PortOpen = False
End Sub
Private Sub Timer_Timer()   'timer is a timer set to 50mS interval
 MS50 = MS50 + 1
 If MS50 > 30000 Then MS50 = 0   'avoid overflows when idle
End Sub
Private Sub Delay(DelayTime As Double)
 MS50 = 0
 Do While MS50 < DelayTime
  DoEvents
 Loop
End Sub

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
maxncaCommented:
i want to send sms through web page programmed by php.
what are steps i should do ?
thanks
macjonesnzCommented:
The last time I had to send an SMS from a PC (monitoring server backups), I used....

1. An old Nokia 5110 GSM phone with a PRE-PAID SIM card.
2. A Nokia D9 serial data cable.
3. A component called Mobile FBUS Lite ActiveX Control. (http://www.softwarecave.com/)
4. A very small VB application to sie them together.

This works GREAT !
Have fun.
Mac
New Zealand
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Wireless Networking

From novice to tech pro — start learning today.