Dim purl As String = "http://service.winic.org:8009/sys_port/gateway/index.asp?"
Dim str As String = "id=帐号&pwd=密码&to=手机号&c&time="
Try
Dim data As Byte() = System.Text.Encoding.GetEncoding("GB2312").GetBytes(str)
Dim req As HttpWebRequest = CType(WebRequest.Create(purl), HttpWebRequest)
req.Timeout = 30000
req.Method = "Post"
req.C
req.ContentLength = data.Length
Dim stream As Stream = req.GetRequestStream()
stream.Write(data, 0, data.Length)
stream.Close()
Dim rep As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
Dim receiveStream As Stream = rep.GetResponseStream()
Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8")
Dim readStream As StreamReader = New StreamReader(receiveStream, encode)
Dim read As Char() = New Char(255) {}
Dim count As Integer = readStream.Read(read, 0, 256)
Dim sb As StringBuilder = New StringBuilder("")
While count > 0
Dim readstr As String = New String(read, 0, count)
sb.Append(readstr)
count = readStream.Read(read, 0, 256)
End While
rep.Close()
readStream.Close()
msgbox( sb.ToString())
Catch ex As Exception
msgbox(ex.message)
End Try
加好友 
发短信
Post By：2017/12/15 21:36:00 [显示全部帖子]
