It is not Harbour code but ddBasePlus code.
You can translate in HB.
Slype sms is not free.
Bernard.
/* Skype sms send.
Running with dBasePlus version 9.51.
*/
local oSkype, oSms, MobileNumber, TextToSend
MobileNumber = "+33000000000" // Phone number
TextToSend = "Test" // SMS text
oSkype = new OleAutoClient( "Skype4COM.Skype" )
if not oSkype.Client.IsRunning
oSkype.Client.Start()
msgbox( "Wait for Skype is openned." )
endif
oSkype.Attach()
oSms = oSkype.SendSms(MobileNumber, TextToSend)
msgbox( "Wait for SMS is sended before quit." )
oSkype := null
oSms := null
return