Příklad HTTP SMS v VB.NET

Podívejte se, jak přidat funkci SMS do vaší aplikace VB.NET. Pro řešení budete potřebovat pouze Ozeki 10 a Microsoft Visual Studio. Komunikace bude fungovat přes protokol HTTP. Zdrojový kód je k dispozici. Můžete si jej stáhnout a upravit.

Jak přidat funkci SMS do VB.NET (Snadno sledovatelné pokyny)

Pro přidání funkce SMS do VB.NET:

  1. Nainstalujte Microsoft Visual Studio
  2. Stáhněte si příklad projektu
  3. Spusťte Ozeki SMS Gateway
  4. Přidejte HTTP Server Connection
  5. Otevřete příklad projektu VB.NET
  6. V případě potřeby přepište parametry
  7. Vytvořte URL pro HTTP požadavek
  8. Odešlete HTTP požadavek do Ozeki

Stáhnout: send-sms-vb.net-http-sms-example.zip (106 Kb)

Video 1 - Jak přidat funkci SMS do VB.NET (Video návod)

Úvod

Aplikace VB.NET lze flexibilně vyvíjet pro vytváření dynamických webových stránek a standardních aplikací. Vývojáři obvykle potřebují přidat mobilní zasílání zpráv do svých aplikací, aby uživatelé mohli posílat SMS zprávy libovolnému příjemci. Nejjednodušší a nejpohodlnější způsob, jak přidat zasílání SMS do vašeho systému, je použití HTTP SMS brány, jako je aplikace Ozeki 10's SMS Gateway, a odesílání zpráv do této brány pomocí HTTP požadavků (Obrázek 1).

posílat a přijímat sms zprávy pomocí http požadavků
Obrázek 1 - Posílat a přijímat SMS zprávy pomocí HTTP požadavků

Kromě odesílání SMS zpráv je můžete také přijímat pomocí VB.NET. Můžete to udělat dvěma způsoby. Nejjednodušší způsob je vytvořit HTTP Client User v Ozeki SMS Gateway, který může přeposílat příchozí zprávy do vašich programových kódů VB.NET. To funguje, pokud jste schopni zpracovat HTTP požadavky. Druhý způsob je periodické stahování příchozích zpráv. Můžete stahovat textové zprávy s dodacími zprávami z Ozeki SMS Gateway.

Předpoklady

Existují pouze dva předpoklady, které byste měli stáhnout. Aplikace Ozeki 10's SMS Gateway a Microsoft Visual Studio pro kódování v VB.NET. Obě jsou dvěma konci HTTP komunikace. Kromě Microsoft Visual Studio můžete použít jakékoli jiné IDE, které vám umožní vyvíjet v VB.NET. Pokud se posunete níže, můžete vidět příkladové kódy VB.NET pro HTTP aplikaci. Zde najdete kontrolní seznam softwaru a příkladový program:

Nastavení Ozeki 10 a spuštění příkladového kódu

Můžete snadno stáhnout a nainstalovat Ozeki 10. Zkontrolujte rychlý start pro SMS pro snadné připojení k mobilní síti. Budete také potřebovat vytvořit HTTP Server Connection v Ozeki 10. Klikněte na 'Add new user or application...' a vyhledejte HTTP Server Connection v seznamu. Klikněte na modré tlačítko 'Install' vedle něj (Obrázek 2).

Obrázek 2 - Instalace HTTP Server Connection

Budete muset zadat uživatelské jméno a heslo. Nezapomeňte tyto přihlašovací údaje. Budete je muset zadat v VB.NET nahrazením příkladových řetězců ve zdrojovém kódu.

Krok 1 - Nastavení parametrů připojení v příkladovém kódu VB.NET

Otevřete příkladový projekt VB.NET a přepište potřebné parametry (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"
Kód 1 - HTTP parametry

Řetězce 'username' a 'password' jsou přihlašovací údaje patřící k HTTP Server Connection. Pokud Ozeki 10 a vaše aplikace VB.NET běží na různých počítačích, je nutné přepsat parametr 'host' na IP adresu a číslo portu počítače s Ozeki 10. 'originator' je telefonní číslo použité jako odesílatel.

Krok 2 - Sestavení URL z parametrů

Kód 2 sestaví HTTP požadavek z parametrů poskytnutých v Kódu 1. Toto URL bude použito k odeslání vaší SMS zprávy do aplikace Ozeki 10 SMS Gateway. Všechny parametry uvedené v dokumentaci Ozeki HTTP SMS API mohou být obsaženy v URL. Hodnoty musí být URL kódovány, aby speciální znaky nemohly narušit HTTP specifikaci.


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 2 - HTTP požadavek URL vytvořený z parametrů

Krok 3 - Odeslání URL do Ozeki 10

Kód 3 obsahuje poslední tři řádky tohoto VB.NET příkladu. Odesílá HTTP požadavek a zobrazí odpověď v pop-up okně. Metoda WebRequest.Create("...") vestavěná ve VB.NET odešle URL do Ozeki 10, zatímco metoda GetResponse() shromáždí odpověď. Ta se zobrazí v pop-up okně generovaném metodou MessageBox.Show("...").

request = DirectCast(WebRequest.Create(url), HttpWebRequest)
    
response = DirectCast(request.GetResponse(), HttpWebResponse)
    
MessageBox.Show("Odpověď: " & response.StatusDescription)
Kód 3 - Odeslání HTTP požadavku a zobrazení odpovědi v pop-up okně

Doporučuje se projít si HTTP API akce a odpovídající parametry pro ovládání Ozeki 10 přes HTTP API. Tímto způsobem můžete vytvořit požadovací URL podle svých potřeb.

Kompletní příklad kódu VB.NET

Kompletní kód, který můžete vidět níže (Kód 4), je sestaven z výše popsaných segmentů (Kód 1 - 3). Tento příkladový kód můžete volně používat a upravovat podle svých přání. Výjimka může být vyvolána, pokud nastane problém s HTTP komunikací.

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

	Catch ex As Exception
		MessageBox.Show(ex.Message)
		
	End Try
End Sub
End Class
Kód 4 - Kompletní příkladový kód

Závěr

Tento článek byl napsán, abyste viděli, jak přidat SMS funkčnost do vaší VB.NET aplikace pomocí Ozeki SMS Gateway. VB.NET aplikace je skutečně výhodná, protože může být flexibilně vyvinuta pro vytváření dynamických webových stránek a standardních aplikací stejně. Pokud jste pečlivě sledovali tutoriál, naučili jste se, jak vytvořit HTTP klienta v Ozeki SMS Gateway a jak jej použít pro vývoj systému zpráv ve vaší VB.NET aplikaci.

Na webu Ozeki můžete najít další články o zajímavých tématech a působivých řešeních. Podívejte se na další průvodce jak odeslat SMS z VB.NET pomocí HTTP API.

Stáhněte si Ozeki SMS Gateway nyní pro lépe fungující SMS systém!

More information