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.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
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-exchang
There is also some information in the question regarding the hardware setup.
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=0776
'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
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.c
4. A very small VB application to sie them together.
This works GREAT !
Have fun.
Mac
New Zealand
Business Accounts
Answer for Membership
by: Mikal613Posted on 2004-02-20 at 13:45:01ID: 10416376
http://www.geocities.com/t
http://www.experts-exchang