Dim msg As String = "cE:\webservice\30\30wlbm.xml", Encoding.Default)
Dim req = System.Net.WebRequest.Create("http://192.168.1.83/EFWebS/EFWebService.asmx/U8WebXML")
req.Method = "POST"
req.C ' text/xml; charset=utf-8
Dim aryBuf As Byte() = Encoding.GetEncoding("UTF-8").GetBytes(msg)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close
FileSys.WriteAllText("E:\webservice\30\30wlbm返回.xml", str, False, Encoding.UTF8)
msgbox("查询成功结果已保存到E:\webservice\30\30wlbm返回.xml目录")
加好友 
发短信
Post By：2017/4/27 12:07:00 [显示全部帖子]
