Connector=CREATEOBJECT("mssoap.HttpConnector")
Connector.Property["EndPointURL"]
= "URL"
Connector.Connect()
Connector.Property
["SoapAction"] = "URL"
Connector.BeginMessage()
Serializer=CREATEOBJECT("mssoap.SoapSerializer")
Serializer.Init(Connector.InputStream)
Serializer.startEnvelope("","","")
Serializer.startBody("")
Serializer.startElement("isuseronline","uri:allesta-YahooUserPing","","m")
Serializer.startElement("username","","","")
Serializer.writeString("laghari78")
Serializer.endElement()
Serializer.endElement()
Serializer.endBody()
Serializer.endEnvelope()
Connector.EndMessage()
Reader=CREATEOBJECT("mssoap.SoapReader")
Reader.Load(Connector.OutputStream)
?Reader.RPCResult.text
URL请改为WebService 地址
代码还没测试。
原文：http://www.cnblogs.com/fitche/p/3548997.html