*网上很难查到类似的直接程序，故研究一下与大家分享
*我在和信通注册的，http://www.010dx.com
号码='13399999999'
短信内容='你好！我的朋友'  &&最长65个字，超出按2条，再超按3条，以此类推
oo = newObject('Msxml2.ServerXMLHTTP')
oo.open('POST','http://123.57.51.191:8888/sms.aspx?action=send&userid=1234&account=帐号&password=密码&mobile='+号码+'&content='+短信内容,.f.)
oo.send('')
MESSAGEBOX(oo.responseText)
if at("Faild",oo.responseText)>0
	发送成功=.f.	
else
	发送成功=.t.	
endif
retu