Przykład HTTP SMS w VB.NET

Zobacz, jak dodać funkcjonalność SMS do swojej aplikacji VB.NET. Do rozwiązania potrzebujesz tylko Ozeki 10 i Microsoft Visual Studio. Komunikacja będzie działać przez protokół HTTP. Kod źródłowy jest dostarczony. Możesz go pobrać i edytować.

Jak dodać funkcjonalność SMS do VB.NET (Łatwe do wykonania instrukcje)

Aby dodać funkcjonalność SMS do VB.NET:

  1. Zainstaluj Microsoft Visual Studio
  2. Pobierz przykładowy projekt
  3. Uruchom Ozeki SMS Gateway
  4. Dodaj połączenie HTTP Server
  5. Otwórz przykładowy projekt VB.NET
  6. Zmodyfikuj parametry jeśli potrzeba
  7. Utwórz URL żądania HTTP
  8. Wyślij żądanie HTTP do Ozeki

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

Wideo 1 - Jak dodać funkcjonalność SMS do VB.NET (Samouczek wideo)

Wprowadzenie

Aplikacje VB.NET mogą być elastycznie rozwijane do tworzenia dynamicznych stron internetowych i standardowych aplikacji. Programiści często muszą dodać funkcjonalność wysyłania wiadomości SMS do swoich aplikacji, aby użytkownicy mogli wysyłać SMS-y do dowolnego odbiorcy. Zazwyczaj najprostszym i najwygodniejszym sposobem dodania funkcjonalności SMS do systemu jest użycie bramki SMS HTTP, takiej jak aplikacja Ozeki 10 SMS Gateway, i wysyłanie wiadomości do tej bramki za pomocą żądań HTTP (Rysunek 1).

wysyłanie i odbieranie wiadomości sms za pomocą żądań http
Rysunek 1 - Wysyłanie i odbieranie wiadomości SMS za pomocą żądań HTTP

Oprócz wysyłania wiadomości SMS, możesz je również odbierać za pomocą VB.NET. Możesz to zrobić na dwa sposoby. Najprostszym sposobem jest utworzenie użytkownika HTTP Client w Ozeki SMS Gateway, który może przekazywać przychodzące wiadomości do twojego programu VB.NET. To działa, jeśli jesteś w stanie przetwarzać żądania HTTP. Innym sposobem jest okresowe pobieranie przychodzących wiadomości. Możesz pobierać wiadomości tekstowe wraz z raportami dostarczenia z Ozeki SMS Gateway.

Wymagania wstępne

Istnieją tylko dwa wymagania wstępne, które należy pobrać. Aplikacja Ozeki 10 SMS Gateway i Microsoft Visual Studio do kodowania w VB.NET. Obie są dwoma końcami komunikacji HTTP. Oprócz Microsoft Visual Studio możesz użyć dowolnego innego środowiska IDE, które pozwala na rozwój w VB.NET. Jeśli przewiniesz w dół, możesz zobaczyć przykładowe kody VB.NET dla aplikacji HTTP. Tutaj znajdziesz listę oprogramowania i przykładowy program:

Skonfiguruj Ozeki 10 i uruchom przykładowy kod

Możesz łatwo pobrać i zainstalować Ozeki 10. Sprawdź przewodnik szybkiego startu SMS, aby łatwo podłączyć go do sieci komórkowej. Będziesz także potrzebował utworzyć połączenie HTTP Server w Ozeki 10. Kliknij 'Dodaj nowego użytkownika lub aplikację...' i poszukaj połączenia HTTP Server na liście. Kliknij niebieski przycisk 'Zainstaluj' obok niego (Rysunek 2).

Rysunek 2 - Instalowanie połączenia HTTP Server

Będziesz musiał podać nazwę użytkownika i hasło. Nie zapomnij tych danych logowania. Będziesz musiał je podać w VB.NET, zastępując przykładowe ciągi w kodzie źródłowym.

Krok 1 - Skonfiguruj parametry połączenia w przykładowym kodzie VB.NET

Otwórz przykładowy projekt VB.NET i zmodyfikuj niezbędne parametry (Kod 1).

1
2
3
4
5
6
7
8
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"
Kod 1 - Parametry HTTP

Ciągi 'username' i 'password' to dane logowania należące do połączenia HTTP Server. Jeśli Ozeki 10 i twoja aplikacja VB.NET działają na różnych maszynach, to konieczne jest zmodyfikowanie parametru 'host' na adres IP i numer portu maszyny z Ozeki 10. 'originator' to numer telefonu używany jako nadawca.

Krok 2 - Skomponuj URL z parametrów

Kod 2 tworzy żądanie HTTP z parametrów dostarczonych w Kodzie 1. Ten URL zostanie użyty do wysłania wiadomości SMS do aplikacji Ozeki 10 SMS Gateway. Wszystkie parametry określone w dokumentacji Ozeki HTTP SMS API mogą być zawarte w URL. Wartości muszą być zakodowane w URL, aby znaki specjalne nie naruszały specyfikacji HTTP.

1
2
3
4
5
6
7
8
9
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"
Kod 2 - URL żądania HTTP utworzony z parametrów

Krok 3 - Prześlij URL do Ozeki 10

Kod 3 zawiera ostatnie trzy linie tego przykładu w VB.NET. Wysyła żądanie HTTP i pokazuje odpowiedź w oknie pop-up. Metoda WebRequest.Create("...") wbudowana w VB.NET wysyła URL do Ozeki 10, podczas gdy metoda GetResponse() zbiera odpowiedź. Pojawi się ona w oknie pop-up wygenerowanym za pomocą metody MessageBox.Show("...").

1
2
3
4
5
request = DirectCast(WebRequest.Create(url), HttpWebRequest)
     
response = DirectCast(request.GetResponse(), HttpWebResponse)
     
MessageBox.Show("Odpowiedź: " & response.StatusDescription)
Kod 3 - Wyślij żądanie HTTP i pokaż odpowiedź w oknie pop-up

Zaleca się zapoznanie z akcjami HTTP API i odpowiadającymi im parametrami, aby kontrolować Ozeki 10 przez HTTP API. W ten sposób można tworzyć adresy URL żądań zgodnie z własnymi potrzebami.

Pełny przykładowy kod VB.NET

Pełny kod, który można zobaczyć poniżej (Kod 4), jest zbudowany z segmentów opisanych powyżej (Kod 1 - 3). Możesz swobodnie używać i modyfikować przykładowy kod według własnych potrzeb. Wyjątek może zostać zgłoszony, jeśli wystąpi problem z komunikacją HTTP.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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("Odpowiedź: " & response.StatusDescription)
 
    Catch ex As Exception
        MessageBox.Show(ex.Message)
         
    End Try
End Sub
End Class
Kod 4 - Pełny przykładowy kod

Podsumowanie

Ten artykuł został napisany, aby pokazać, jak dodać funkcjonalność SMS do aplikacji VB.NET za pomocą Ozeki SMS Gateway. Aplikacja VB.NET jest bardzo korzystna w użyciu, ponieważ może być elastycznie rozwijana do tworzenia dynamicznych stron internetowych i standardowych aplikacji. Jeśli uważnie śledziłeś tutorial, nauczyłeś się, jak utworzyć użytkownika klienta HTTP w Ozeki SMS Gateway i jak używać go do rozwoju systemu wiadomości w aplikacji VB.NET.

Na stronie Ozeki można znaleźć więcej artykułów na ciekawe tematy i imponujące rozwiązania. Sprawdź następny przewodnik o wysyłaniu SMS z VB.NET za pomocą HTTP API.

Pobierz Ozeki SMS Gateway już teraz, aby uzyskać lepiej działający system SMS!

More information