短信群发接口测试3（vb+webservice）

》》原文再接上一回：http://blog.csdn.net/bibbykwan/archive/2010/08/05/5789848.aspx

他们的webservice地址是：http://121.37.58.18:8080

进去看看。。

服务是这个：http://121.37.58.18:8080/SMSWebService/services/SMS?wsdl

好了，vb想用webservice，就要用到soap，下载地址

http://download.csdn.net/source/2601802

还是我们之前的画面

我们把安装好了的soap引用一下

定义一个soap对象

Dim SoapC As SoapClient30

查看一下，有哪些方法

我们来试试查询余额的方法吧。在这之前要先加载这个webservice。。。

Private Sub Form_Load() Set SoapC = New SoapClient30 Call SoapC.MSSoapInit("http://121.37.58.18:8080/SMSWebService/services/SMS?wsdl") End Sub

然后我们在cmdFee按钮中写入代码

Private Sub cmdFee_Click() MsgBox SoapC.queryMoney(txtUser,txtPass,txtVIP) End Sub

(*^__^*) 嘻嘻…… 是不是感觉webservice太方便适用了呢。。（写代码是输入soapC.后，是点不出方法来的。。vb的局限啊。。）

那么我们来玩玩发送的。。

Private Sub cmdSend_Click() MsgBox SoapC.sendMessage(txtUser,txtMobile,txtContent) End Sub

测试一下，oh yeah，完全成功！！

======================================================================

所有源文件下载地址:http://download.csdn.net/source/2607356

（编辑：李大同）

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