Send and Receive SMS from Computers

I am sure all of you are aware of short message service better known by its acronym SMS. Mobile phone users find it convenient in informing their friends and acquaintances through a simple text massage, without actually making a phone. SMS find wide application in the modern day communication technologies.
While it is common to use SMS with the mobile phone we can use send SMS using all forms of computers. SMS is in fact a type of an Instant Massage (IM) type of communication services and it enables users to exchange massage in real time with the users.
Users can use this technology and communication with each other using a computer, wireless device, cell phone, PDA. They can also use combination of these devices to communicate. Cell phone users can use the SMS to sent short massage to other cell phones.

Objective

1. Start -> Program -> communication->HyperTerminal
   
2. go to connection ->Description. In description dialog box type mane in name textbox and click OK button
   
3. Select the port in connect to dialog box and click OK button
   
4. A new window will be opened in the window type AT+CMGL=1 to set flag
   
5. Then by giving AT+CMGL, it retrieves massage from inbox of the mobile phone

Program

Private sub cmdsent_click()
Cmd="at+cmgs"
Cmd= cmd  & text1.text&"" ,129
Ms.output= cmd&chr(13)
Ms.output=text2.text & vbCrlf
Msgbox("SEND")
End sub

Private sub cmdview_click()
On error resume next 
Ms.portopen= true
Text3.text=""
Ms.setting ="2400,n,8,1"
Ms.output="at+cmgr=1" & vbCr
Do 
Buf=ms.input
Text3.text=text1.text &buf
Loop until (Instr(text3,text,"OK"))>0 or (Instr(text3,text,"ERROR"))>0 ms.portopen=false
End sub

Private sub form_load()
Ms. commport=1
Ms . portopen =True
Ms.setting ="2400, n, 8, 1"
Ms.output="at+cmgr=1" & vbCr
Ms. oprtopen = false 
End sub