PB6 调用 .net Web Service

代码

OLEObject MSSOAPLib1
MSSOAPLib1= CREATE OLEObject
long ll_result 
ll_result = MSSOAPLib1.ConnectToNewObject("MSSOAP.SoapClient")
if ll_result <> 0 then
   messagebox("Conection","Connect Error!")
else
   messagebox("Conection","Connect OK!" + string(ll_result))
end if
MSSOAPLib1.mssoapinit("http://localhost/ws1.asmx?WSDL")
string msg
msg = MSSOAPLib1.Test("111")
messagebox("",msg)

需要安装 Microsoft Soap Toolkit 3.0