短信群发接口测试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 backInfo End Sub

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

那么咱们点点有什么方法

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

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

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

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

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!