短信群发接口测试2（vb+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 cmdSet_Click() Dim backInfo: backInfo = myDll.Initial("121.37.58.18", "12250", txtVIP, txtUser, txtPass) MsgBox backInfoEnd Sub

 

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

 

    那么咱们点点有什么方法

   

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

    Private Sub cmdFee_Click() Dim fee: fee = myDll.QueryFee() MsgBox feeEnd Sub

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

    Private Sub cmdSend_Click() Dim send: send = myDll.SendMsgPost(txtMobile, txtContent) MsgBox sendEnd Sub

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

 

 

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