"...here is the code to send sms through PB application .... but before you execute the code, make it sure that your GSM modem or Mobile set (which can be act as GSM modem) attached to the PC is working and installed properly...."
Check out other options for sending a SMS in French at Donf!
Code: pb
integer li_FileNum
string mobileNumber
string Smsmessage
string comPort
string szEnd
string szCommand
mobilenumber = txtmobilenumber.text
Smsmessage = txtmessage.text
comPort = txtComPort.text
szEnd = char(26)
li_FileNum = FileOpen(comPort, TextMode!,Write!,LockWrite!,Append!)
if li_FileNum > 0 then
FileWriteEx(li_FileNum, "AT+CMGF=1")
FileWriteEx(li_FileNum, "~n~r")
szCommand = "AT+CMGS="
szCommand += "~""+mobilenumber+"~""
FileWriteEx(li_FileNum, szCommand)
FileWriteEx(li_FileNum, "~r")
FileWriteEx(li_FileNum, Smsmessage)
FileWriteEx(li_FileNum, szEnd)
FileClose(li_FileNum)
MessageBox("Sms Application" , "Sms sent successfully....")
txtmobilenumber.text = ""
txtmessage.text = ""
else
MessageBox("Sms Application" , "Unable to open comport....")
end if
