visual-studio-2010 - ビジュアル foxpro を使用した Nexmo SMS

Question

foxpro アプリケーションで Nexmo-SMS を送信できません。アプリケーションは 2017 年 1 月まで機能していましたが、その後機能しなくなりました。以下は私のアプリケーションです。エラーメッセージ404が表示されます。プログラムに修正が必要な場合は、親切に案内してください。

---

mob = '39829374'

mmessage = 'Hi'

username='username'

pwd='password'

mmob1 =ALLTRIM(mmob )

MMOB = '00973'+ALLTRIM(mmob )


From='AMA Motors' 

to = '&mmob'

lcMessage=mmessage

lcNexmo = Textmerge("http://rest.nexmo.com/sms/xml?username=<< m.username >>|password=<< m.pwd >>|from=<< m.from >>|to=<< m.to >>|text=<< m.lcMessage >>")

lcNexmo = Chrtran(m.lcNexmo, '|', Chr(38))

* Message parameters ready


Local loXmlHttp As "Microsoft.XMLHTTP"

loXmlHttp = Newobject( "Microsoft.XMLHTTP" )


loXmlHttp.Open( "POST" , m.lcNexmo, .F. )

loXmlHttp.Send( )


If loXmlHttp.Status = 200

    lcXML = 
StrExtract(loXmlHttp.responsetext,'<messages','</messages>',1,1+4)

    XMLToCursor(m.lcXML,'myresult')

*   browse

Else

    MessageBox( Textmerge( "An error occurred in SMS. Status <<loXmlHttp.STATUS>> (<<loXmlHttp.statustext>>)." ) )

Endif