set objhttp = createobject("msxml2.xmlhttp")
set xmldoc = createobject("msxml2.domdocument")
strurl = "http://localhost/soapcheck.asmx"
struser = trim$(struser)
strpassword = trim$(strpassword)
'生成soap xml
strsoap = "<?xml version=""1.0"" encoding=""utf-8""?>"
strsoap = strsoap & vbcrlf & "<soap:envelope xmlns:xsi=""http://www.w3.org/2001/xmlschema-instance"" "
strsoap = strsoap & vbcrlf & "xmlns:xsd=""http://www.w3.org/2001/xmlschema"" "
strsoap = strsoap & vbcrlf & "xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
strsoap = strsoap & vbcrlf & "<soap:header>"
strsoap = strsoap & vbcrlf & "<account xmlns=testsoap.webservice>"
strsoap = strsoap & vbcrlf & "<struser>" & struser & "</struser>"
strsoap = strsoap & vbcrlf & "<strpassword>" & strpassword & "</strpassword>"
