VB.NET HTTP SMS primjer

Pogledajte kako dodati SMS funkcionalnost u svoju VB.NET aplikaciju. Za rješenje trebat će vam samo Ozeki 10 i Microsoft Visual Studio. Komunikacija će raditi putem HTTP protokola. Izvorni kod je dostupan. Možete ga preuzeti i urediti.

Kako dodati SMS funkcionalnost u VB.NET (Lako za slijediti upute)

Za dodavanje SMS funkcionalnosti u VB.NET:

1. Instalirajte Microsoft Visual Studio
2. Preuzmite primjer projekta
3. Pokrenite Ozeki SMS Gateway
4. Dodajte HTTP Server Connection
5. Otvorite VB.NET primjer projekta
6. Prepišite parametre ako je potrebno
7. Kreirajte HTTP zahtjev URL
8. Pošaljite HTTP zahtjev Ozekiju

Preuzimanje: send-sms-vb.net-http-sms-example.zip (106 Kb)

Uvod

VB.NET aplikacije mogu se fleksibilno razvijati za kreiranje dinamičkih web stranica i standardnih aplikacija. Programeri obično trebaju dodati mobilnu razmjenu poruka u svoje aplikacije, kako bi korisnici mogli slati SMS poruke bilo kojem primatelju. Obično je najjednostavniji i najprikladniji način za dodavanje SMS razmjene poruka u vaš sustav korištenje HTTP SMS gatewaya, kao što je Ozeki 10 SMS Gateway aplikacija i slanje poruka na ovaj gateway putem HTTP zahtjeva (Slika 1).

Osim slanja SMS poruka, možete ih i primati s VB.NET-om. To možete učiniti na dva načina. Najlakši način je kreiranje HTTP Client Usera u Ozeki SMS Gatewayu, koji može proslijediti dolazne poruke u vaš VB.NET programski kod. Ovo funkcionira ako ste u mogućnosti obraditi HTTP zahtjeve. Drugi način je periodično preuzimanje dolaznih poruka. Možete preuzeti tekstualne poruke s izvješćima o isporuci iz Ozeki SMS Gatewaya.

Preduvjeti

Postoje samo dva preduvjeta koja trebate preuzeti. Ozeki 10 SMS Gateway aplikacija i Microsoft Visual Studio za kodiranje u VB.NET-u. Oba su dva kraja HTTP komunikacije. Osim Microsoft Visual Studia možete koristiti bilo koje drugo IDE okruženje koje vam omogućuje razvoj u VB.NET-u. Ako se pomaknete dolje, možete vidjeti VB.NET primjere koda za HTTP aplikaciju. Ovdje možete pronaći popis softvera i primjer programa:

• Preuzmite Ozeki SMS Gateway
  
• Microsoft Visual Studio
  
• send-sms-vb.net-http-sms-example.zip
  

Postavite Ozeki 10 i pokrenite primjer koda

Možete jednostavno preuzeti i instalirati Ozeki 10. Provjerite brzi vodič za SMS kako biste ga lako povezali s mobilnom mrežom. Također ćete morati kreirati HTTP Server Connection u Ozeki 10. Kliknite 'Add new user or application...' i potražite HTTP Server Connection na popisu. Kliknite plavi 'Install' gumb pored njega (Slika 2).

Morat ćete unijeti korisničko ime i lozinku. Ne zaboravite te podatke za prijavu. Morat ćete ih unijeti u VB.NET zamjenom primjernih nizova u izvornom kodu.

Korak 1 - Postavite parametre veze u VB.NET primjeru koda

Otvorite VB.NET primjer projekta i prepišite potrebne parametre (Kod 1).

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"

Nizovi 'username' i 'password' su podaci za prijavu koji pripadaju HTTP Server Connectionu. Ako Ozeki 10 i vaša VB.NET aplikacija rade na različitim strojevima, tada je potrebno prepisati parametar 'host' na IP adresu i broj porta Ozeki 10 stroja. 'originator' je telefonski broj koji se koristi kao pošiljatelj.

Kod 2 sastavlja HTTP zahtjev iz parametara navedenih u Kodu 1. Ovaj URL će se koristiti za slanje vaše SMS poruke na Ozeki 10 SMS Gateway aplikaciju. Svi parametri navedeni u Ozeki HTTP SMS API dokumentaciji mogu biti sadržani u URL-u. Vrijednosti moraju biti URL kodirane, kako posebni znakovi ne bi narušili HTTP specifikaciju.

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"

Korak 3 - Pošaljite URL Ozeki 10

Kod 3 sadrži posljednje tri linije ovog VB.NET primjera. Šalje HTTP zahtjev i prikazuje odgovor u pop-up prozoru. WebRequest.Create("...") ugrađena VB.NET metoda šalje URL Ozeki 10, dok GetResponse() metoda prikuplja odgovor. Pojavit će se u pop-up prozoru generiranom s MessageBox.Show("...") metodom.

request = DirectCast(WebRequest.Create(url), HttpWebRequest)
    
response = DirectCast(request.GetResponse(), HttpWebResponse)
    
MessageBox.Show("Response: " & response.StatusDescription)

Preporuča se proći kroz HTTP API akcije i odgovarajuće parametre za kontrolu Ozeki 10 kroz HTTP API. Na taj način možete kreirati URL-ove za vaše potrebe.

Cijeli VB.NET primjer koda

Cijeli kod koji možete vidjeti ispod (Kod 4) sastavljen je od segmenata opisanih gore (Kod 1 - 3). Možete slobodno koristiti i mijenjati primjer koda po želji. Iznimka može biti bačena ako postoji problem s HTTP komunikacijom.

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("Response: " & response.StatusDescription)

	Catch ex As Exception
		MessageBox.Show(ex.Message)
		
	End Try
End Sub
End Class

Zaključak

Ovaj članak je napisan kako biste vidjeli kako dodati SMS funkcionalnost vašoj VB.NET aplikaciji koristeći Ozeki SMS Gateway. VB.NET aplikacija je vrlo korisna za korištenje, jer se može fleksibilno razvijati za kreiranje dinamičkih web stranica i standardnih aplikacija podjednako. Ako ste pažljivo pratili tutorial, naučili ste kako kreirati HTTP klijentskog korisnika u Ozeki SMS Gatewayu i kako ga koristiti za razvoj sustava poruka u vašoj VB.NET aplikaciji.

Možete pronaći više članaka na Ozeki web stranici kako biste pročitali o zanimljivim temama i impresivnim rješenjima. Pogledajte sljedeći vodič o kako poslati SMS iz VB.NET-a koristeći HTTP API.

Preuzmite Ozeki SMS Gateway sada, za bolje performanse SMS sustava!