以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  短信发送用post方式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94696)
--  作者：kao_go
--  发布时间：2016/12/29 17:08:00
--  短信发送用post方式
Dim url As String
Dim http As Object
url = "http://service.winic.org:8009/sys_port/gateway/?id=您的账号&pwd=您的密码&to=接收短信手机号码&content=短信内容&time="
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()


要用post方式，是直接get改成post就ok吗
--  作者：有点色
--  发布时间：2016/12/29 17:15:00
--  

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)
[此贴子已经被作者于2016/12/29 17:15:13编辑过]
--  作者：kao_go
--  发布时间：2016/12/29 17:36:00
--  
好的，感谢！