VB: SMS

sms (short message service) or text messaging programming
- there are many ways on how to send a sms from a computer. an AT command is needed in order for a machine to communicate with a modem or a mobile phone. one way is by using the HyperTerminal to send AT commands to a mobile phone. this notes make use of MS Visual Basic 6.0 and Oxygen Mobile ActiveX Control.

►requirements:
1. computer with MS Visual Basic 6.0
2. mobile phone supported by Oxygen Mobile ActiveX Control
3. interface between a computer and the phone

►HyperTerminal
Start > Programs > Accessories > Communication > HyperTerminal

- use AT commands to send and receive messages using the HyperTerminal application

►using ActiveX in VB

reference:
Oxygen Software
Oxygen Mobile ActiveX Control for Nokia phones

steps on how to use the Oxygen Mobile ActiveX Control in MS Visual Basic 6.0:
1. install the Oxygen Mobile ActiveX Control
2. create a visual basic form
3. d the Oxygen Mobile Library
3.1 on the Mebu bar, click on Project
3.2 click on Components
3.3 make a checkmark on the 'Oxygen Mobile Library',
under the Controls tab
3.4 click on OK
3.5 insert the Mobile ActiveX object in the form
3.6 create the code

connection:
Mobile1.Close
Mobile1.ComNumber = 1
Mobile1.ConnectionMode = 1
Mobile1.OpenAsync

connection mode: type of connection
1 - DAU-9P
2 - DLR-3
3 - InfraRed
4 - Bluetooth
5 - DKU-5

sample code in creating a connection:
Private Sub cmdconnect_Click()
Mobile1.Close
Mobile1.ComNumber = txtportnumber.Text
Mobile1.ConnectionMode = 1

If chkconnectasynchronously.Value = 0 Then
cmdconnect.Enabled = False
If Mobile1.Open = True Then
MsgBox "Successfully found a phone."
Else
MsgBox "no connection ..." & CLng(Mobile1.LastConnectionError)
End If
Else
List1.AddItem "search phone ..."
Mobile1.OpenAsync
End If
End Sub

for sending a message:
Mobile1.SMSCenterNumber = Mobile1.GetDefaultSMSCenterNumber
replyx = Mobile1.SendFlashMessage(phone number, "test message", 143, False)