ASP.NET(VB)写的后台发送短信实现代码
来源:本站原创|时间:2022-11-25|栏目:vb|
复制代码 代码如下:
Dim postData As String
Dim byteArray As Byte()
Dim objWebRequest As HttpWebRequest
Dim newStream As Stream
postData = "cell=短信供应商提供信息1&enterpriseId=短信供应商提供信息2&mobile=手机号1,手机号2&message=发送数据测试。。。"
objWebRequest = WebRequest.Create("http://xxx.yyy.com.cn/SmsSend.jsp")
objWebRequest.Method = "POST"
objWebRequest.ContentType = "application/x-www-form-urlencoded"
byteArray = System.Text.Encoding.UTF8.GetBytes(postData)
objWebRequest.ContentLength = byteArray.Length
newStream = objWebRequest.GetRequestStream()
newStream.Write(byteArray, 0, byteArray.Length)
newStream.Close()
'返回数据
Dim response As HttpWebResponse
Dim sr As StreamReader
Dim textResponse As String
response = objWebRequest.GetResponse()
sr = New StreamReader(response.GetResponseStream(), System.Text.Encoding.Default)
textResponse = sr.ReadToEnd()
您可能感兴趣的文章
- 01-10用vbs将名称转换为正确的大小写的代码
- 01-10ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数第1/2页
- 01-10非常棒的lcx写的非常规运行vbs
- 01-10用vbs写的短小精悍的字典生成器
- 01-10自己写的一个定时关机或重启的vbs脚本
- 01-10vbs后台运行bat删除自身的代码
- 01-10winXP下用VBS写的代码编辑器
- 01-10利用vbs写的延时关闭ie进程的脚本代码
- 01-10分享如何在VB中调用VC编写的DLL
- 01-10vb 中的MD5加密在asp.net中的实现