h.open "post", "http://localhost/testwebservice/service1.asmx", false
h.setrequestheader "content-type", "text/xml"
h.send (strxml)
while h.readystate <> 4
wend
'显示返回的xml信息
text1.text = h.responsetext
'将返回的xml信息解析并且显示返回值
set x = new msxml2.domdocument40
x.loadxml text1.text
text1.text = x.childnodes(1).text
1,首先添加web引用,地址为:http://www.ydcom.net/service/s_comm.asmx
2,定义:dim scom as new net.ydcom.www.s_comm
3,调用:dim strczid as string = scomm.getczid("313")
实例:如何使用vb.net调用服务产生18位关键值 vb.net源文件代码
soapconnection conn
test_wsservice1soap scom
long rval
//string str_endpoint
//str_endpoint = "http://www.ydcom.net/service/s_comm.asmx?wsdl"
conn = create soapconnection
rval = conn.createinstance(scom, "test_wsservice1soap")
sle_1.text = scom.getczid("313"))
destroy conn
