引用控件msxml6.dll
Private Sub doReadDataPost()
'????soap??? ????????????webservice???ù????á??????????soap12:Body
Dim strtest, strxml As String
On Error GoTo Z
strtest = "<?xml version=""1.0"" encoding=""utf-8""?> "
strtest = strtest + "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/""> "
strtest = strtest + " <soap:Body> "
strtest = strtest + " <RunActionDirect xmlns=""http://www.starlims.com/webservices/""> "
strtest = strtest + " <actionID>"