短信群发接口测试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, txtPass, txtMobile, txtContent) End Sub

 

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

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

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