ntry n yn ng mga student q but in their case, d cla satisfy kz demo and bawal ung 3rd party softawre..
try mo 2, im using NOKIA 5300 express and bluetooth with PC SUite Installed
work perfectly
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
'MSComm1.Settings = "460800,n,8,1" 'Change this with the Baud rate of your modem (The one you use with Hyper Terminal)
'MSComm1.CommPort = 10 ' Change this with the port your Modem is attached,(eg bluetooth)
'MSComm1.PortOpen = True
With MSComm1
.CommPort = 10
.Settings = "460800,N,8,1"
.Handshaking = comRTS
.RTSEnable = True
.DTREnable = True
.RThreshold = 1
.SThreshold = 1
.InputMode = comInputModeBinary
.InputLen = 0
.PortOpen = True 'must be the last
End With
End Sub
Private Sub Command1_Click()
' Send an 'AT' command to the phone
MSComm1.Output = "AT" & vbCrLf
Sleep 500
MSComm1.Output = "AT+CMGF=1" & vbCrLf 'This line can be removed if your modem will always be in Text Mode...
Sleep 500
MSComm1.Output = "AT+CMGS=" & Chr(34) & TxtNumber.Text & Chr(34) & vbCrLf 'Replace this with your mobile Phone's No.
Sleep 1000
MSComm1.Output = TxtMessage.Text & Chr(26)
Sleep 2000
MsgBox "Message Send"
End Sub
comments
www.emondsoft.qapacity.com
