Exemplu VB.NET HTTP SMS

Aflați cum să adăugați funcționalitate SMS în aplicația dvs. VB.NET. Pentru soluție, veți avea nevoie doar de Ozeki 10 și Microsoft Visual Studio. Comunicarea va funcționa prin protocolul HTTP. Codul sursă este furnizat. Îl puteți descărca și edita.

Pentru a adăuga funcționalitate SMS în VB.NET:

1. Instalați Microsoft Visual Studio
2. Descărcați proiectul exemplu
3. Porniți Ozeki SMS Gateway
4. Adăugați Conexiune Server HTTP
5. Deschideți proiectul exemplu VB.NET
6. Rescrieți parametrii dacă este necesar
7. Creați URL cerere HTTP
8. Trimiteți cererea HTTP către Ozeki

Descărcare: send-sms-vb.net-http-sms-example.zip (106 Kb)

Aplicațiile VB.NET pot fi dezvoltate flexibil pentru a crea pagini web dinamice și aplicații standard. Dezvoltatorii sunt de obicei obligați să adauge mesagerie mobilă în aplicațiile lor, astfel încât utilizatorii să poată trimite mesaje SMS către orice destinatar. De obicei, cea mai simplă și convenabilă metodă de a adăuga mesagerie SMS în sistemul dvs. este utilizarea unei gateway SMS HTTP, cum ar fi aplicația Ozeki 10's SMS Gateway și trimiterea mesajelor către această gateway folosind cereri HTTP (Figura 1).

Pe lângă trimiterea mesajelor SMS, le puteți primi și cu VB.NET. Puteți face acest lucru în două moduri. Cea mai ușoară metodă este crearea unui Utilizator HTTP Client în Ozeki SMS Gateway, care poate înainta mesajele primite către programele dvs. VB.NET. Acest lucru funcționează dacă puteți procesa cereri HTTP. Cealaltă metodă este descărcarea periodică a mesajelor primite. Puteți descărca mesaje text cu rapoarte de livrare din Ozeki SMS Gateway.

Există doar două cerințe preliminare pe care ar trebui să le descărcați. Aplicația Ozeki 10's SMS Gateway și Microsoft Visual Studio pentru codarea în VB.NET. Ambele reprezintă cele două capete ale comunicării HTTP. Pe lângă Microsoft Visual Studio, puteți folosi orice alt IDE care vă permite să dezvoltați în VB.NET. Dacă derulați mai jos, puteți vedea codurile exemplu VB.NET pentru aplicația HTTP. Aici puteți găsi lista de software și programul exemplu:

• Descărcați Ozeki SMS Gateway
  
• Microsoft Visual Studio
  
• send-sms-vb.net-http-sms-example.zip
  

Configurați Ozeki 10 și rulați codul exemplu

Puteți descărca și instala cu ușurință Ozeki 10. Consultați ghidul rapid de SMS pentru a-l conecta cu ușurință la rețeaua mobilă. De asemenea, va trebui să creați o Conexiune Server HTTP în Ozeki 10. Faceți clic pe 'Adăugare utilizator sau aplicație nouă...' și căutați Conexiunea Server HTTP în listă. Faceți clic pe butonul albastru 'Instalare' de lângă ea (Figura 2).

Va trebui să furnizați numele de utilizator și parola. Nu uitați aceste date de autentificare. Va trebui să le furnizați în VB.NET prin înlocuirea șirurilor exemplu din codul sursă.

Deschideți proiectul exemplu VB.NET și rescrieți parametrii necesari (Codul 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"

Șirurile 'username' și 'password' sunt datele de autentificare aparținând Conexiunii Server HTTP. Dacă Ozeki 10 și aplicația dvs. VB.NET rulează pe mașini diferite, atunci este necesar să rescrieți parametrul 'host' cu adresa IP și numărul portului mașinii Ozeki 10. 'originator' este numărul de telefon folosit ca expeditor.

Pasul 2 - Compune URL-ul din parametri

Codul 2 compune o cerere HTTP din parametrii furnizați în Codul 1. Acest URL va fi folosit pentru a trimite mesajul SMS către aplicația SMS Gateway Ozeki 10. Toți parametrii specificați în documentația Ozeki HTTP SMS API pot fi incluși în URL. Valorile trebuie să fie codificate URL, astfel încât caracterele speciale să nu poată încălca specificația HTTP.

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"

Codul 3 conține ultimele trei linii ale acestui exemplu VB.NET. Trimite cererea HTTP și afișează răspunsul într-o fereastră pop-up. Metoda încorporată WebRequest.Create("...") din VB.NET trimite URL-ul către Ozeki 10, în timp ce metoda GetResponse() colectează răspunsul. Acesta va apărea într-o fereastră pop-up generată cu metoda MessageBox.Show("...").

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

Este recomandat să parcurgeți acțiunile HTTP API și parametrii corespunzători pentru a controla Ozeki 10 prin HTTP API. În acest fel, puteți crea URL-uri de cerere pentru nevoile dumneavoastră.

Codul complet pe care îl puteți vedea mai jos (Codul 4) este construit din segmentele descrise mai sus (Codul 1 - 3). Puteți folosi și modifica liber codul exemplu după cum doriți. O excepție poate fi aruncată dacă există o problemă cu comunicarea HTTP.

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

Acest articol a fost scris pentru a vă arăta cum să adăugați funcționalitate SMS în aplicația dumneavoastră VB.NET folosind Ozeki SMS Gateway. O aplicație VB.NET este foarte benefică de utilizat, deoarece poate fi dezvoltată flexibil pentru a crea pagini web dinamice și aplicații standard în mod egal. Dacă ați urmat cu atenție tutorialul, ați învățat cum să creați un utilizator client HTTP în Ozeki SMS Gateway și cum să îl folosiți pentru dezvoltarea sistemului de mesaje în aplicația dumneavoastră VB.NET.

Puteți găsi mai multe articole pe site-ul Ozeki pentru a citi despre subiecte interesante și soluții impresionante. Consultați următorul ghid despre cum să trimiteți SMS din VB.NET folosind HTTP API.

Descărcați acum Ozeki SMS Gateway, pentru un sistem SMS cu performanțe mai bune!