[原创]自动发短信代码　[金字塔]

系统自带的发短信功能有几个局限性

1，要自备GMS MODEM设备

2，要后台预警才可以

由于这2个局限性，很少人去用这个功能

但这没关系。金字塔不傻、不天真，而是很好、很强大，我们完全可以自己编写自动发短信代码

原理：1，利用VBA可以调用外部程序   2，商业短信一般都有提供http接口，好像飞信也有免费的http接口服务器

实例如下： 这里假设用户名是 金友期货，密码是111111  开通商业短信平台都会有用户名和密码的

                http接口的技术参数，找商业短信平台提供商索要即可。我所用是 翼锋短信平台

Sub faduanxin()

MsgContent = ("http://www.020sms.com/?ECODE=ew573&USERNAME=金友期货&PASSWORD=111111&EXTNO=&MOBILE=13900000000,15988888888&CONTENT=你好我是火哥，测试一下&SEQ=1000")

  Set xh = CreateObject("MSXML2.XMLHTTP.3.0")
  xh.Open "GET", MsgContent
  xh.send

End Sub

然后利用自自定义函数faduanxin，通过图表调用VBA

比如

ma5:=ma(c,5);

ma10:=ma(c,10);

if cross(ma5,ma10) and islastbar and barpos>extgbdata('ttt') then begin

    faduanxin();

    extgbdataset('ttt',barpos);//注意，ttt这个全局变量每天软件关闭时要清0，可以用VBA实现。这个是为了避免重复发短信

end

至于发短信的内容，那是预定义好的，自定义函数不同参数，发送不同内容。这里不再介绍

不错哈