by Kuuri Eliud (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 3rd September 2010
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Read SMS and send sms, phonebook read delete add using vb6 and AT commnads works MOBILE phones and modems (i used E220)
//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.
No comments have been posted about Read SMS and send sms, phonebook read delete add using vb6 and AT commnads works MOBILE phones and . Why not be the first to post a comment about Read SMS and send sms, phonebook read delete add using vb6 and AT commnads works MOBILE phones and .