Dim msg As String = "codeLang=CHI&codeUser=ADMIN&password=&poolAlias=LLTEST&requestConfig=@" & """adxwss.trace.on=on&adxwss.trace.size=16384&adonix.trace.on=on&adonix.trace.level=3&adonix.trace.size=8"
Output.Show(msg)
Dim req = System.Net.WebRequest.Create("http://192.168.0.17:28880/adxwsvc/services/CAdxWebServiceXmlCC/CAdxCallContext")
req.Method = "POST"
req.C
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
Output.Show(aryBuf)
此主题相关图片如下:111111.png