VB.NET HTTP SMS primer

Pogledajte kako dodati SMS funkcionalnost u vašu VB.NET aplikaciju. Za rešenje će vam trebati samo Ozeki 10 i Microsoft Visual Studio. Komunikacija će raditi preko HTTP protokola. Izvorni kod je dostupan. Možete ga preuzeti i izmeniti.

Da biste dodali SMS funkcionalnost u VB.NET:

1. Instalirajte Microsoft Visual Studio
2. Preuzmite primer projekta
3. Pokrenite Ozeki SMS Gateway
4. Dodajte HTTP Server Connection
5. Otvorite VB.NET primer projekta
6. Izmenite parametre po potrebi
7. Kreirajte HTTP zahtev URL
8. Pošaljite HTTP zahtev ka Ozeki

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

VB.NET aplikacije mogu se fleksibilno razvijati za kreiranje dinamičkih veb stranica i standardnih aplikacija. Od programera se obično zahteva da dodaju mobilno slanje poruka u svoje aplikacije, kako bi korisnici mogli slati SMS poruke bilo kom primalacu. Obično, najjednostavniji i najpogodniji način da dodate SMS slanje u vaš sistem je korišćenjem HTTP SMS gateway-a, kao što je Ozeki 10 SMS Gateway aplikacija i slanje poruka ka ovom gateway-u korišćenjem HTTP zahteva (Slika 1).

Osim slanja SMS poruka, možete ih i primati sa VB.NET. To možete uraditi na dva načina. Najlakši način je da kreirate HTTP Client User u Ozeki SMS Gateway-u, koji može prosleđivati dolazne poruke vašem VB.NET programu. Ovo funkcioniše ako ste u mogućnosti da obradite HTTP zahteve. Drugi način je periodično preuzimanje dolaznih poruka. Možete preuzeti tekstualne poruke sa izveštajima o isporuci iz Ozeki SMS Gateway-a.

Postoje samo dva preduslova koja treba da preuzmete. Ozeki 10 SMS Gateway aplikacija i Microsoft Visual Studio za kodiranje u VB.NET. Oba su dva kraja HTTP komunikacije. Pored Microsoft Visual Studio-a možete koristiti bilo koji drugi IDE koji vam omogućava razvoj u VB.NET. Ako se pomaknite dole, možete videti VB.NET primer koda za HTTP aplikaciju. Ovde možete pronaći kontrolnu listu softvera i primer programa:

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

Podesite Ozeki 10 i pokrenite primer koda

Možete lako preuzeti i instalirati Ozeki 10. Proverite SMS brzi start vodič da biste ga lako povezali sa mobilnom mrežom. Takođe će vam trebati da kreirate HTTP Server Connection u Ozeki 10. Kliknite 'Add new user or application...' i potražite HTTP Server Connection u listi. Kliknite na plavo dugme 'Install' pored njega (Slika 2).

Moraćete da obezbedite korisničko ime i lozinku. Ne zaboravite ove podatke za prijavu. Trebaće vam ih obezbediti u VB.NET-u zamenjujući primer stringova u izvornom kodu.

Otvorite VB.NET primer 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"

'username' i 'password' stringovi su podaci za prijavu koji pripadaju HTTP Server Connection-u. Ako Ozeki 10 i vaša VB.NET aplikacija rade na različitim mašinama, onda je potrebno prepisati 'host' parametar na IP adresu i port broj mašine sa Ozeki 10. 'originator' je broj telefona koji se koristi kao pošiljalac.

Корак 2 - Формирање URL-а из параметара

Код 2 формира HTTP захтев из параметара датих у Коду 1. Овај URL ће бити коришћен за слање ваше SMS поруке до Ozeki 10 SMS Gateway апликације. Сви параметри наведени у Ozeki HTTP SMS API документацији могу бити садржани у URL-у. Вредности морају бити URL кодиране, како специјални карактери не би нарушили 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"

Код 3 садржи последње три линије овог VB.NET примера. Шаље HTTP захтев и приказује одговор у искачућем прозору. Уграђена VB.NET метода WebRequest.Create("...") шаље URL до Ozeki 10, док метода GetResponse() прикупља одговор. Он ће се појавити у искачућем прозору генерисаном методом MessageBox.Show("...").

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

Препоручује се да прођете кроз HTTP API акције и одговарајуће параметре за контролу Ozeki 10 преко HTTP API-ја. На овај начин можете креирати захтевне URL-ове за ваше потребе.

Комплетан код који можете видети испод (Код 4) састављен је од сегмената описаних изнад (Код 1 - 3). Можете слободно користити и мењати пример кода по жељи. Изузетак може бити бачен ако постоји проблем са 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

Овај чланак је написан да бисте видели како да додате SMS функционалност вашој VB.NET апликацији користећи Ozeki SMS Gateway. VB.NET апликација је веома корисна за коришћење, јер се може флексибилно развијати за креирање динамичких веб страница и стандардних апликација подједнако. Ако сте пажљиво пратили упутство, научили сте како да креирате HTTP клијентског корисника у Ozeki SMS Gateway-у и како да га користите за развој система порука у вашој VB.NET апликацији.

Можете пронаћи више чланака на Ozeki веб сајту да бисте прочитали о занимљивим темама и импресивним решењима. Погледајте следећи водич о како послати SMS из VB.NET-а користећи HTTP API.

Преузмите Ozeki SMS Gateway сада, за боље перформансе SMS система!