VB 端,
Public Function SendCivet(faildata As String, Number As String)
Dim soapClient As New SoapClient30
Dim text As String
soapClient.MSSoapInit2 "http://10.203.77.27:8090/WebService.asmx?WSDL", "", "", "", ""
text = soapClient.Civet(faildata, Number) '此处直接写服务端方法名
End Function