Send SMS in Visual Basic using Mobile Phone as Modem

[FudgeeBarr]

hi, help nmn po.. la pa ko idea how to send sms using vb na my nakaconnect na nokia (e.g. 6630) sa pc through cable n ng aact as a modem.. ng install ako ng nokia pc suite, but i have read the word nokia pc connectivity sdk, and i am little confused about how to use it.. tapos meron pa about AT commands..as well as Com Ports,. can u pls help me to understand this issue, because i need to work on a project which has the idea of sending sms using vb.. Thanks. godbless guys!!

[7_SeVeN_7]

try mo muna mag AT commands sa hyperterminal... pag gumana, iautomate mo na using VB

[rdpzycho]

agree. ilalagay mo lang sa program mo 'yung nakikita mo sa hyperterminal.

[FudgeeBarr]

Hmm, so instead of nokia pc suite and sdk, mas ok ba gamitin ung AT commands? pero la pa ko idea, pag aaralan ko palang po.. kaya di ako familiar sa mga hyperterminal... sorry, hehe...

[FudgeeBarr]

sorry po sa other post ko.. late ko na kc nhanap ung Computer Programming na destination.. kaya naulit.. sorry po ulit..

[7_SeVeN_7]

Hmm, so instead of nokia pc suite and sdk, mas ok ba gamitin ung AT commands? pero la pa ko idea, pag aaralan ko palang po.. kaya di ako familiar sa mga hyperterminal... sorry, hehe...

kung customized yung needs mo, malaking bagay yung pag automate mo using AT Commands. yung natry ko dating nokia phone pwede padaanin sa bluetooth yung AT command, para di na magcable pa.

[FudgeeBarr]

pero ok lng po ba kung cable? un kc nasa scope nmin sa project.. anu po ba mga dapat kong gawin para makonek ko ung mga yun? tapos mkpagprogram ako agad using at commands..Thanks po...

[7_SeVeN_7]

simulan mo muna sa hyperterminal.. check mo ito http://www.electronicslab.ph/forum/index.php/topic,8235.0.html

[FudgeeBarr]

ganda ng topic sa link..sana mtry ko rin un.. hehe.. ung sa device manager,after ko ba mg install ng mobile modem saka palang mgkakaroon ng Modem sa Device Manager?la kc ko mkita na Modem dun..saka ung hyperterminal san ko ba mkukuha un? sana mgkaron pa ko more idea..Thanks po 7.. galing

[jkl_0]

dude ganayan din project namin.. gamit ka ng dct3 connector..

pero ang pinag-aaralan namin ngayon ay paano i-connect gamit ang bluetooth..
kasi ung dct3 eh pang (ex. 8210,3310&etc..)
search mo lang oxygen mobile activeX..

may demo diyan..
makakasend & receive ka ng messages at mga pics..

 
di ka na gagamit ng commands...

I hope nakatulong ako...
God Bless!

[emond]

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

[maldihtah13]

nice info.

[_Lurker_]

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

OT:
Sir pwede ba ito gamit yung modem sa Globe tatoo? Ano ba dapat baguhin? Maraming salamat po.

[macky]

^i think this part should be configured with the PORT # of your globe tatoo modem:

Code:

'MSComm1.CommPort = 10  ' Change this with the port your Modem is attached,(eg bluetooth)

[_Lurker_]

^i think this part should be configured with the PORT # of your globe tatoo modem:

Code:

'MSComm1.CommPort = 10  ' Change this with the port your Modem is attached,(eg bluetooth)

  Nakapag send na ako ng mssg.. mag research na naman ako pag read ng mssg, mukhang mahirap.
@TS:
Gamit ka nalang ng globe tatto. Sabay tayong mag research kung paano. At sana tulungan tayo nina master 7 at ng ibang masters. 

[kelvinblank]

ung thesis namin ginamit namin is globe tattoo and vb.net ok sya magsend and mgreceive ng messages.

[_Lurker_]

ung thesis namin ginamit namin is globe tattoo and vb.net ok sya magsend and mgreceive ng messages.

Sir kelvinblank pwede ba pasilip ng yung codes sa vb.net, hehe kung maari?
 Maraming salamat po.