短信群发接口测试3vb+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() Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> SoapC.queryMoney(txtUser,txtPass,txtVIP) End Sub

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

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

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

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

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

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