主题：短信发送用post方式

Dim msg As String = "id=您的账号&pwd=您的密码&to=接收短信手机号码&content=短信内容&time="
Dim req = System.Net.WebRequest.Create("http://service.winic.org:8009/sys_port/gateway/")
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)