• Home
 · 
• Miscellaneous
 · 
• Read SMS and send sms, phonebook read delete add using vb6 and AT commnads works MOBILE phones and

Read SMS and send sms, phonebook read delete add using vb6 and AT commnads works MOBILE phones and

Read SMS and send sms, phonebook read delete add using vb6 and AT commnads works MOBILE phones and modems (i used E220)

Rate Read SMS and send sms, phonebook read delete add using vb6 and AT commnads works MOBILE phones and

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

//add a command button name command1
//goto project-componects add a Microsoft Comm Control, name Mscomm1 
// all controls retain their default name(for this code,though you can change //them later on)

DIM atcommand as string
Dim portnum as integer
Dim replytxt as string

atcommand=text1.text 'enter an AT command eg. AT+CMGR=1 this will read the 'first sms. for more AT commnands goto
'  http://www.control.com.sg/at_commands_sms.aspx

portnum=text2.text  'port number will main be ,3,4,5,6,7, or eight depending on 'the number of devices connected to your computer.
'when writing a commport, donot include the prefix COM e.g COM3 just write 3


//change the port number to the one your modem,or phone is connect to ,this //work for both blue tooth connections and cable.
//the portnum value must be integer,else an error will occur

MSComm1.CommPort = portnum 

MSComm1.Settings = "9600,N,8,1" 'this sets the bound rate,flow databit and

MSComm1.InputLen = 0 'setting it to 0 allows reading of the whole txt length
MSComm1.Handshaking = comNone
MSComm1.PortOpen = True 'open the port


MSComm1.Output = "ATE0" & Chr$(13) 'this will prevent commands echo,though its 'no sooo important

'text3 will display what the modem has replyed
replytxt = MSComm1.Input
Text3.Text = replytxt

End Sub
'if you go any error lemi know my email [email protected]
' if you'd like to program for MAC and linux try using your vb6 skills then 'goto 'www.kbasic.com' and download the program programming software.