短信群发接口测试2vb+dll

>>原文书接上一回 http://blog.csdn.net/bibbykwan/archive/2010/08/04/5788010.aspx

这回来试试他们的dll，联系他们技术员，发来dll之：http://www.mmlj.cn/software/jxwork.rar

问他们要相应的技术文档，他说很容易的，只要能用，就能“点”出方法来，这兄台够搞笑了。。。

然后我就 Declare Function .... 玩了 很久，无果，又call对方，然后对方告诉我。。那个dll是vb写的，不是标准DLL，而是ActiveX DLL ....无语。

好了，先吧那个jxWork.dl扔到 c:/windows/system32 下（这个要看你是什么系统），然后再运行框里输入 regsvr32 JXWork.dll ，好了，然后再引用它。

先来定义一个对象

Dim myDll As New JXWork.MMSAccess

然后要有一个初始化的小编，所以我们在上回的基础上加入个初始化按钮cmdset

双击初始化按钮写入初始化的语句

Private Sub c<a href="https://www.jb51.cc/tag/mds/" target="_blank" class="keywords">mds</a>et_Click() Dim backInfo: backInfo = myDll.Initial("121.37.58.18","12250",txtVIP,txtUser,txtPass) Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> backInfo End Sub

运行，提示登录成功！！！！

那么咱们点点有什么方法

找到一个QueryFee，试试，原来是余额的。那我们去 cmdFee里写入代码之：

Private Sub cmdFee_Click() Dim fee: fee = myDll.QueryFee() Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> fee End Sub

再找找发送的，有SendMsg 和 SendMsgPost,call技术员，他们说第一个只能发50个左右，第二个能否几千个号码，那么还是挑大的来玩吧。（我贪心）

Private Sub c<a href="https://www.jb51.cc/tag/mds/" target="_blank" class="keywords">mds</a>end_Click() Dim send: send = myDll.SendMsgPost(txtMobile,txtContent) Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> send End Sub

又发送一条测试一下，得啦 成功！！！

预告：下回玩玩他们的webservice，貌似还可以，好，下课、、（谢谢老师。。）