主题：FT 调用webservice例子

mark post提交

Dim msg As String = "mobileCode=15091267272&userID="
Dim req = System.Net.WebRequest.Create("http://webservice.webxml.com.cn/WebServices/MobileCodeWS.asmx/getMobileCodeInfo")
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"

Dim aryBuf As Byte() = Encoding.GetEncoding("GB2312").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

msgbox(str)

参考这种做法

http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92876&authorid=0&page=1&star=1