VB.NET HTTP SMS példa

Nézze meg, hogyan adhat SMS funkcionalitást a VB.NET alkalmazásához. A megoldáshoz csak egy Ozeki 10 és egy Microsoft Visual Studio szükséges. A kommunikáció HTTP protokollon keresztül fog működni. A forráskód elérhető. Letöltheti és szerkesztheti.

Hogyan adjunk SMS funkcionalitást VB.NET-hez (Könnyen követhető útmutató)

SMS funkcionalitás hozzáadása VB.NET-hez:

  1. Telepítse a Microsoft Visual Studio-t
  2. Töltse le a példa projektet
  3. Indítsa el az Ozeki SMS Gateway-t
  4. Adjon hozzá HTTP Szerver Kapcsolatot
  5. Nyissa meg a VB.NET példa projektet
  6. Szükség esetén módosítsa a paramétereket
  7. Hozzon létre HTTP kérés URL-t
  8. Küldje el a HTTP kérést az Ozeki-nek

Letöltés: send-sms-vb.net-http-sms-example.zip (106 Kb)

1. videó - Hogyan adjunk SMS funkcionalitást VB.NET-hez (Videós útmutató)

Bevezetés

A VB.NET alkalmazások rugalmasan fejleszthetők dinamikus weboldalak és szabványos alkalmazások létrehozásához. A fejlesztőknek gyakran szükségük van mobil üzenetküldés hozzáadására az alkalmazásaikhoz, így a felhasználók SMS üzeneteket küldhetnek bármely címzettnek. Általában a legegyszerűbb és legkényelmesebb módja az SMS üzenetküldés hozzáadásának a rendszerhez egy HTTP SMS átjáró használata, mint például az Ozeki 10 SMS Gateway alkalmazása, és üzenetek küldése erre az átjáróra HTTP kérések segítségével (1. ábra).

sms üzenetek küldése és fogadása http kérésekkel
1. ábra - SMS üzenetek küldése és fogadása HTTP kérésekkel

Az SMS üzenetek küldése mellett fogadni is lehet azokat VB.NET-ben. Ezt kétféleképpen teheti meg. A legegyszerűbb módja egy HTTP Kliens Felhasználó létrehozása az Ozeki SMS Gateway-ben, amely továbbítja a bejövő üzeneteket a VB.NET programkódjaira. Ez akkor működik, ha képes HTTP kéréseket feldolgozni. A másik módja a bejövő üzenetek periodikus letöltése. Letöltheti a szöveges üzeneteket kézbesítési jelentésekkel együtt az Ozeki SMS Gateway-ből.

Előfeltételek

Csak két előfeltételt kell letöltenie. Az Ozeki 10 SMS Gateway alkalmazását és a Microsoft Visual Studio-t a VB.NET kódoláshoz. Mindkettő a HTTP kommunikáció két vége. A Microsoft Visual Studio mellett bármely más IDE használható, amely lehetővé teszi a VB.NET fejlesztést. Ha lefelé görget, megtalálja a VB.NET példakódokat a HTTP alkalmazáshoz. Itt találja a szoftver ellenőrzőlistát és a példa programot:

Állítsa be az Ozeki 10-et és futtassa a példakódot

Könnyen letöltheti és telepítheti az Ozeki 10-et. Nézze meg az SMS gyors útmutatót a mobil hálózathoz való könnyű csatlakozáshoz. Szüksége lesz egy HTTP Szerver Kapcsolat létrehozására is az Ozeki 10-ben. Kattintson az 'Új felhasználó vagy alkalmazás hozzáadása...' gombra és keresse meg a HTTP Szerver Kapcsolatot a listában. Kattintson a kék 'Telepítés' gombra mellette (2. ábra).

2. ábra - HTTP Szerver Kapcsolat telepítése

Meg kell adnia a felhasználónevet és jelszót. Ne felejtse el ezeket a bejelentkezési adatokat. Meg kell adnia őket a VB.NET-ben a forráskódban található példa sztringek lecserélésével.

1. lépés - Állítsa be a kapcsolati paramétereket a VB.NET példakódban

Nyissa meg a VB.NET példa projektet és módosítsa a szükséges paramétereket (1. kód).

Dim request As HttpWebRequest

Dim response As HttpWebResponse = Nothing
Dim url As String
Dim username As String = "admin"
Dim password As String = "abc123"
Dim host As String = "http://127.0.0.1:9501"
Dim originator As String = "06201234567"
1. kód - HTTP paraméterek

A 'username' és 'password' sztringek a HTTP Szerver Kapcsolathoz tartozó bejelentkezési adatok. Ha az Ozeki 10 és a VB.NET alkalmazása különböző gépeken fut, akkor szükséges a 'host' paraméter átírása az Ozeki 10 gép IP címére és portszámára. Az 'originator' a telefonszám, amely feladóként lesz használva.

2. lépés - URL összeállítása a paraméterekből

2. kód összeállít egy HTTP kérést az 1. kódban megadott paraméterekből. Ez az URL lesz használva az SMS üzenet elküldéséhez az Ozeki 10 SMS Gateway alkalmazásába. Az Ozeki HTTP SMS API dokumentációban megadott összes paraméter szerepelhet az URL-ben. Az értékeknek URL kódoltnak kell lenniük, így a speciális karakterek nem törhetik meg az HTTP specifikációt. 


url = host + "/api?action=sendmessage&" _
& "username=" & HttpUtility.UrlEncode(username) _
& "&password=" + HttpUtility.UrlEncode(password) _
& "&recipient=" + HttpUtility.UrlEncode(tbReceiver.Text) _
& "&messagetype=SMS:TEXT" _
& "&messagedata=" + HttpUtility.UrlEncode(tbMessage.Text) _
& "&originator=" + HttpUtility.UrlEncode(originator) _
& "&serviceprovider=" _
& "&responseformat=html"
2. kód - HTTP kérés URL a paraméterekből létrehozva

3. lépés - URL elküldése az Ozeki 10-nek

3. kód tartalmazza ennek a VB.NET példának az utolsó három sorát. Elküldi a HTTP kérést és megjeleníti a választ egy felugró ablakban. A WebRequest.Create("...") beépített VB.NET metódus elküldi az URL-t az Ozeki 10-nek, míg a GetResponse() metódus gyűjti a választ. Ez egy felugró ablakban jelenik meg, amelyet a MessageBox.Show("...") metódus generál.

request = DirectCast(WebRequest.Create(url), HttpWebRequest)
    
response = DirectCast(request.GetResponse(), HttpWebResponse)
    
MessageBox.Show("Válasz: " & response.StatusDescription)
3. kód - HTTP kérés küldése és válasz megjelenítése felugró ablakban

Javasolt átnézni a HTTP API műveleteket és a megfelelő paramétereket az Ozeki 10 vezérléséhez az HTTP API-n keresztül. Így létrehozhat kérés URL-eket az igényeinek megfelelően.

Teljes VB.NET példakód

A lent látható teljes kód (4. kód) a fent leírt szegmensekből épül fel (1-3. kód). Szabadon használhatja és módosíthatja a példakódot, ahogy szeretné. Kivétel dobódhat, ha probléma van a HTTP kommunikációval.

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

Public Class fMain

Private Sub bSend_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles bSend.Click
	Dim request As HttpWebRequest
	Dim response As HttpWebResponse = Nothing
	Dim url As String
	Dim username As String
	Dim password As String
	Dim host As String
	Dim originator As String
	
	Try

		host = "http://127.0.0.1:9501"
		originator = "06201234567"
		username = "admin"
		password = "abc123"
		
		url = host + "/api?action=sendmessage&" _
		         & "username=" & HttpUtility.UrlEncode(username) _
		         & "&password=" + HttpUtility.UrlEncode(password) _
		         & "&recipient=" + HttpUtility.UrlEncode(tbReceiver.Text) _
		         & "&messagetype=SMS:TEXT" _
		         & "&messagedata=" + HttpUtility.UrlEncode(tbMessage.Text) _
		         & "&originator=" + HttpUtility.UrlEncode(originator) _
		         & "&serviceprovider=GSMModem1" _
		         & "&responseformat=html"
		
		request = DirectCast(WebRequest.Create(url), HttpWebRequest)
		
		response = DirectCast(request.GetResponse(), HttpWebResponse)
		
		MessageBox.Show("Válasz: " & response.StatusDescription)

	Catch ex As Exception
		MessageBox.Show(ex.Message)
		
	End Try
End Sub
End Class
4. kód - A teljes példakód

Összegzés

Ez a cikk azért készült, hogy lássa, hogyan adhat SMS funkcionalitást a VB.NET alkalmazásához az Ozeki SMS Gateway használatával. A VB.NET alkalmazás valóban hasznos, mert rugalmasan fejleszthető dinamikus weboldalak és szabványos alkalmazások létrehozásához egyaránt. Ha figyelmesen követte az útmutatót, megtanulta, hogyan hozhat létre egy HTTP kliens felhasználót az Ozeki SMS Gateway-ben és hogyan használhatja azt üzenetrendszer fejlesztéséhez a VB.NET alkalmazásában.

További cikkeket talál az Ozeki weboldalán érdekes témákról és lenyűgöző megoldásokról. Nézze meg a következő útmutatót arról, hogy hogyan küldjön SMS-t VB.NET-ből HTTP API használatával.

Töltse le az Ozeki SMS Gateway-t most, egy jobb teljesítményű SMS rendszerért!

More information