Príklad HTTP SMS v VB.NET

Pozrite si, ako pridať SMS funkcionalitu do vašej aplikácie VB.NET. Pre riešenie budete potrebovať len Ozeki 10 a Microsoft Visual Studio. Komunikácia bude fungovať cez HTTP protokol. Zdrojový kód je poskytnutý. Môžete si ho stiahnuť a upraviť.

Ak chcete pridať SMS funkcionalitu do VB.NET:

1. Nainštalujte Microsoft Visual Studio
2. Stiahnite si príkladový projekt
3. Spustite Ozeki SMS Gateway
4. Pridajte HTTP Server Connection
5. Otvorte príkladový projekt VB.NET
6. V prípade potreby upravte parametre
7. Vytvorte URL pre HTTP požiadavku
8. Odošlite HTTP požiadavku do Ozeki

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

Aplikácie VB.NET môžu byť flexibilne vyvíjané pre vytváranie dynamických webových stránok a štandardných aplikácií. Vývojári často potrebujú pridať mobilné správanie do svojich aplikácií, aby používatelia mohli posielať SMS správy akémukoľvek príjemcovi. Najjednoduchší a najpohodlnejší spôsob, ako pridať SMS správanie do vášho systému, je použitie HTTP SMS brány, ako je aplikácia Ozeki 10's SMS Gateway a odosielanie správ do tejto brány pomocou HTTP požiadaviek (Obrázok 1).

Okrem odosielania SMS správ ich môžete prijímať aj s VB.NET. Môžete to urobiť dvoma spôsobmi. Najjednoduchší spôsob je vytvoriť HTTP Client User v Ozeki SMS Gateway, ktorý môže preposielať prichádzajúce správy do vášho programu VB.NET. Toto funguje, ak ste schopní spracovať HTTP požiadavky. Druhý spôsob je periodické sťahovanie prichádzajúcich správ. Môžete sťahovať textové správy s potvrdeniami o doručení z Ozeki SMS Gateway.

Existujú len dve požiadavky, ktoré by ste mali stiahnuť. Aplikácia Ozeki 10's SMS Gateway a Microsoft Visual Studio pre kódovanie v VB.NET. Obe sú dva konce HTTP komunikácie. Okrem Microsoft Visual Studio môžete použiť akékoľvek iné IDE, ktoré vám umožňuje vyvíjať v VB.NET. Ak prejdete nižšie, môžete vidieť príkladové kódy VB.NET pre HTTP aplikáciu. Tu nájdete kontrolný zoznam softvéru a príkladový program:

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

Nastavenie Ozeki 10 a spustenie príkladového kódu

Môžete ľahko stiahnuť a nainštalovať Ozeki 10. Skontrolujte Rýchly sprievodca SMS pre jednoduché pripojenie k mobilnej sieti. Budete tiež potrebovať vytvoriť HTTP Server Connection v Ozeki 10. Kliknite na 'Pridať nového používateľa alebo aplikáciu...' a vyhľadajte HTTP Server Connection v zozname. Kliknite na modré tlačidlo 'Inštalovať' vedľa neho (Obrázok 2).

Budete musieť poskytnúť používateľské meno a heslo. Nezabudnite tieto prihlasovacie údaje. Budete ich musieť poskytnúť v VB.NET nahradením príkladových reťazcov v zdrojovom kóde.

Otvorte príkladový projekt VB.NET a upravte potrebné parametre (Kód 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"

Reťazce 'username' a 'password' sú prihlasovacie údaje patriace k HTTP Server Connection. Ak Ozeki 10 a vaša aplikácia VB.NET bežia na rôznych strojoch, potom je potrebné upraviť parameter 'host' na IP adresu a číslo portu stroja s Ozeki 10. 'originator' je telefónne číslo používané ako odosielateľ.

Krok 2 - Vytvorenie URL z parametrov

Kód 2 skladá HTTP požiadavku z parametrov poskytnutých v Kóde 1. Toto URL bude použité na odoslanie vašej SMS správy do aplikácie Ozeki 10 SMS Gateway. Všetky parametre špecifikované v Ozeki HTTP SMS API dokumentácii môžu byť obsiahnuté v URL. Hodnoty musia byť URL kódované, aby špeciálne znaky nemohli porušiť HTTP špecifikáciu.

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"

Kód 3 obsahuje posledné tri riadky tohto VB.NET príkladu. Odosiela HTTP požiadavku a zobrazuje odpoveď v pop-up okne. Metóda WebRequest.Create("...") zabudovaná v VB.NET odosiela URL do Ozeki 10, zatiaľ čo metóda GetResponse() zbiera odpoveď. Zobrazí sa v pop-up okne generovanom metódou MessageBox.Show("...").

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

Odporúča sa prejsť si HTTP API akcie a zodpovedajúce parametre na ovládanie Ozeki 10 cez HTTP API. Týmto spôsobom môžete vytvoriť požiadavky URL podľa vašich potrieb.

Úplný kód, ktorý môžete vidieť nižšie (Kód 4), je zostavený z segmentov popísaných vyššie (Kód 1 - 3). Môžete voľne použiť a upraviť príklad kódu podľa svojich potrieb. Výnimka môže byť vyvolaná, ak je problém s HTTP komunikáciou.

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

Tento článok bol napísaný pre vás, aby ste videli, ako pridať SMS funkcionalitu do vašej VB.NET aplikácie pomocou Ozeki SMS Gateway. VB.NET aplikácia je naozaj výhodná na použitie, pretože môže byť flexibilne vyvinutá na vytváranie dynamických webových stránok a štandardných aplikácií rovnako. Ak ste postupovali podľa tutoriálu pozorne, naučili ste sa, ako vytvoriť HTTP klienta v Ozeki SMS Gateway a ako ho použiť na vývoj systému správ vo vašej VB.NET aplikácii.

Na stránke Ozeki môžete nájsť viac článkov o zaujímavých témach a pôsobivých riešeniach. Pozrite si ďalšieho sprievodcu o ako poslať SMS z VB.NET pomocou HTTP API.

Stiahnite si Ozeki SMS Gateway teraz pre lepšie výkonný SMS systém!