如何制作短信网关vb.net [英] how to make sms gateway vb.net

问题描述

任何人都可以帮我使用vb.net（桌面应用程序）制作短信网关应用程序.....？



请帮帮我.. ...

anyone can help me to make sms gateway application using vb.net (desktop application).....?

please help me.....

推荐答案

这是CP中常见的问题，所以在这里浏览短信相关问题/答案 - 代码项目搜索 [ ^ ]



你可以找到很多文章&过去有多个答案的问题，享受。

It's a frequent question here in CP, so browse here SMS related questions/answers - Codeproject Search[^]

You can find many articles & past questions with multiple answers, Enjoy.

Imports System.Net
Imports System.Text
Imports System.IO

Module Module1

    Sub Main()

        SendSMS("18479790553", "ToNumber", "I am coming there")

    End Sub
    Sub SendSMS(ByVal FromNumber As String, ByVal ToNumber As String, ByVal SMS As String)

        Dim url As String = "http://www.sendandreceivesms.com/api/"
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        request.Method = "POST"
        Dim postData As String = "FromNumber=" & FromNumber
        postData += "&"
        postData += "ToNumber=" & ToNumber
        postData += "&"
        postData += "SMS=" & SMS
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        request.ContentType = "application/x-www-form-urlencoded"
        request.Headers.Add("APIToken", "GoOu9H0h9G")'get your new API token at https://www.sendandreceivesms.com
        request.ContentLength = byteArray.Length
        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArray, 0, byteArray.Length)
        dataStream.Close()
        Dim response As WebResponse = request.GetResponse()
        dataStream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd() 'Log This in DB, Queue msgs that failed so that they can be sent again when console app runs
        reader.Close()
        dataStream.Close()
        response.Close()
    End Sub

End Module

Imports System.Data

Imports System.IO

进口系统.Configuration

进口系统

进口System.Net

进口System.Text



Public Function SendSMS（ByVal User As String，ByVal Mobile_Number As String，ByVal Message As String，可选ByVal MType As String =N）As String

Dim stringpost As String =用户=&用户& & passwd =&密码& & mobilenumber =& Mobile_Number& & message =&消息& & MTYPE =& MType

'Response.Write（stringpost）

Dim functionReturnValue As String = Nothing

functionReturnValue =



Dim objWebRequest As HttpWebRequest = Nothing

Dim objWebResponse As HttpWebResponse = Nothing

Dim objStreamWriter As StreamWriter = Nothing

Dim objStreamReader As StreamReader = Nothing



尝试

Dim stringResult As String = Nothing



objWebRequest = DirectCast（WebRequest.Create（http：// Domain name / WebserviceSMS.aspx），HttpWebRequest）

//域名：域名替换为您的域名

objWebRequest.Method =POST



'Response.Write（objWebRequest）



'如果你想设置PROXY，请使用下面的代码。

'要传递的参数：1。ProxyAddress 2.端口

'您可以在Internet Explorer的连接设置中找到这两个参数。



'如果你在代理中，那么取消注释下面的行并输入IP和端口。

'Dim myProxy As New Net.WebProxy（192.168.1.108，6666）

'myProxy.BypassProxyOnLocal = True

'objWebRequest.Proxy = myProxy



objWebRequest.ContentType =application / x-www-form-urlencoded



objStreamWriter = New StreamWriter（objWebRequest.GetRequestStream（））

objStreamWriter.Write（stringpost）

objStreamWriter.Flush（）

objStreamWriter.Close（）



objWebResponse = DirectCast（objWebRequest.GetResponse（ ），HttpWebResponse）





objWebResponse = DirectCast（objWebRequest.GetResponse（），HttpWebResponse）



objStreamReader = New StreamReader（objWebResponse.GetResponseStream（））

stringResult = objStreamReader .ReadToEnd（）

objStreamReader.Close（）

返回（stringResult）

Catch ex As Exception

返回（ex.ToString）

最后



如果（objStreamWriter IsNot Nothing）那么

objStreamWriter.Close（）

结束如果

If（objStreamReader IsNot Nothing）那么

objStreamReader.Close（）

结束如果

objWebRequest =没什么

objWebResponse =没什么



结束尝试

结束功能



受保护的子btnsubmit_Click（ByVal发送者为对象，ByVal e作为System.EventArgs）处理btnsubmit.Click

Dim str As String

str = SendSMS（Trim（User1.Value），Passwd.Value，mobilenumber.Value，message。价值）

Response.Write（str）

End Sub

Imports System.Data
Imports System.IO
Imports System.Configuration
Imports System
Imports System.Net
Imports System.Text

Public Function SendSMS(ByVal User As String, ByVal password As String, ByVal Mobile_Number As String, ByVal Message As String, Optional ByVal MType As String = "N") As String
Dim stringpost As String = "User=" & User & "&passwd=" & password & "&mobilenumber=" & Mobile_Number & "&message=" & Message & "&MTYPE=" & MType
'Response.Write(stringpost)
Dim functionReturnValue As String = Nothing
functionReturnValue = ""

Dim objWebRequest As HttpWebRequest = Nothing
Dim objWebResponse As HttpWebResponse = Nothing
Dim objStreamWriter As StreamWriter = Nothing
Dim objStreamReader As StreamReader = Nothing

Try
Dim stringResult As String = Nothing

objWebRequest = DirectCast(WebRequest.Create("http://Domain name/WebserviceSMS.aspx"), HttpWebRequest)
//domain name: Domain name Replace With Your Domain
objWebRequest.Method = "POST"

' Response.Write(objWebRequest)

' Use below code if you want to SETUP PROXY.
'Parameters to pass: 1. ProxyAddress 2. Port
'You can find both the parameters in Connection settings of your internet explorer.

' If you are in the proxy then Uncomment below lines and enter IP and Port.
' Dim myProxy As New Net.WebProxy("192.168.1.108", 6666)
'myProxy.BypassProxyOnLocal = True
'objWebRequest.Proxy = myProxy

objWebRequest.ContentType = "application/x-www-form-urlencoded"

objStreamWriter = New StreamWriter(objWebRequest.GetRequestStream())
objStreamWriter.Write(stringpost)
objStreamWriter.Flush()
objStreamWriter.Close()

objWebResponse = DirectCast(objWebRequest.GetResponse(),HttpWebResponse)


objWebResponse = DirectCast(objWebRequest.GetResponse(), HttpWebResponse)

objStreamReader = New StreamReader(objWebResponse.GetResponseStream())
stringResult = objStreamReader.ReadToEnd()
objStreamReader.Close()
Return (stringResult)
Catch ex As Exception
Return (ex.ToString)
Finally

If (objStreamWriter IsNot Nothing) Then
objStreamWriter.Close()
End If
If (objStreamReader IsNot Nothing) Then
objStreamReader.Close()
End If
objWebRequest = Nothing
objWebResponse = Nothing

End Try
End Function

Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click
Dim str As String
str = SendSMS(Trim(User1.Value), Passwd.Value, mobilenumber.Value, message.Value)
Response.Write(str)
End Sub

这篇关于如何制作短信网关vb.net的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！