quang cao hosting

Hướng dẫn lập trình ứng dụng gửi tin nhắn SMS qua thiết bị DCOM 3G sử dụng VB.NET

Xem: 4362    Tải: 0   Thảo luận: 0   Mục: Visual studio & .NET   Lĩnh vực: Khác

9 điểm   ( 6 đánh giá ) File đã được kiểm thử

Bài viết hướng dẫn các bạn, viết một ứng dụng gởi tin nhắn SMS thông qua thiết bị DCOM 3G. Ở ví dụ dưới đây, mình sử dụng thiết bịDCOM 3G FastConnect của Mobifone. Sử dụng các lệnh AT Command để gởi tin nhắn.

- Để lập trình ứng dụng gởi sms, ta phải lập trình gởi tin nhắn qua Serial Port, Khi bạn cắm usb 3g của các bạn vào và cài đặt driver đi theo usb 3g. Chương trình sẽ tạo ra cho chúng ta những Port COM ảo, để chúng ta kết nối thiết bị 3g viết VB.NET.

- Lệnh AT command cơ bản để gởi 1 tin nhắn:

AT
OK
AT+CMGF=1
OK
AT+CMGW="+85291234567"
> A simple demo of SMS text messaging.
+CMGW: 1
 
OK
 
AT+CMSS=1
+CMSS: 20
 
OK

Giải thích:

  • Dòng 1: lệnh "AT" được gửi đến GSM / GPRS modem để kiểm tra kết nối. GSM / GPRS modem gửi lại mã kết quả "OK" (dòng 2), nghĩa là kết nối giữa chương trình đầu cuối và GSM / GPRS modem hoạt động tốt.
  • Dòng 3: Lệnh AT+CMGF được dùng để hướng dẫn GSM / GPRS modem hoạt động trong chế độ văn bản SMS. Mã kết quả "OK" được trả về (dòng 4), tức là lệnh "AT+CMGF=1" đã được thực thi thành công. Nếu mã kết quả là "ERROR”, điều đó có nghĩa là GSM / GPRS modem không hỗ trợ chế độ văn bản SMS.
     Để chắc chắn, chúng ta có thể gõ "AT+CMGF=?" trong chương trình đầu cuối. Nếu phản hồi là "+CMGF: (0,1)" (0: chế độ PDU và 1: chế độ văn bản), nghĩa là chế độ văn bản SMS được hỗ trợ. Nếu phản hồi là "+CMGF: (0)", tức là chế độ văn bản SMS không được hỗ trợ.
  • Dòng 5 & 6: Lệnh AT+CMGW sẽ viết một tin nhắn SMS vào bộ nhớ lưu trữ tin nhắn của GSM / GPRS modem. "+85291234567" là số điện thoại của người nhắn. Sau khi gõ vào số của người nhận, bạn có thể nhấn phím Enter. GSM / GPRS modem sau đó sẽ trả về dấu nhắc "> " và bạn có thể bắt đầu nhập nội dung tin nhắn "A simple demo of SMS text messaging.".Khi đã xong hãy nhấn Ctrl + Z.
  • Dòng 7: "+CMGW: 1" cho ta biết chỉ số được gán với tin nhắn SMS mới tạo là 1. Nó cho biết vị trí của tin nhắn SMS trong bộ nhớ lưu tin nhắn.
  • Dòng 9: Mã kết quả "OK" cho biết kết quả thực hiện lệnh AT+CMGW đã thành công.
  • Dòng 10: Lệnh AT+CMSS gửi tin nhắn SMS từ bộ nhớ của GSM / GPRS modem. "1" là chỉ số của tin nhắn SMS có được từ dòng 7.
  • Dòng 11: "+CMSS: 20" cho ta biết số tham chiếu được gán cho SMS vừa rồi là 20.
  • Dòng 13: Mã kết quả "OK" cho biết lệnh AT+CMSS đã thực hiện thành công.

- Ở đây, chúng ta sử dụng thư viện System.IO.ports để làm việc với Dcom 3g.

Đầu tiên, các bạn cần khai báo thư viện vào:

Imports System.IO
Imports System.IO.Ports
Imports System.Threading
- Viết sự kiện form load() load các cổng COM trên máy tính vào combobox
Try
            Dim ports As String() = SerialPort.GetPortNames
            Dim port As String
            For Each port In ports
                ComboBox1.Items.Add(port)
            Next port
            ComboBox1.SelectedIndex = 0
Catch ex As Exception
            MsgBox(ex.Message)
End Try

- Viết sự kiện kết nối ứng dụng với cổng COM

Try
            With SerialPort1
                .PortName = ComboBox1.Text
                .BaudRate = 115200
                .Parity = Parity.None
                .StopBits = StopBits.One
                .DataBits = 8
                .Handshake = Handshake.RequestToSend
                .DtrEnable = True
                .RtsEnable = True
                .NewLine = vbCrLf
                .Open()
            End With
Catch ex As Exception
            MsgBox(ex.Message)
End Try

- Và cuối cùng là sự kiện gởi tin nhắn

Try
            If SerialPort1.IsOpen Then
                With SerialPort1
                    .Write("AT" & vbCrLf)
                    .Write("AT+CMGF=1" & vbCrLf)
                    .Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
                    .Write(RichTextBox1.Text & Chr(26))
                    MsgBox("Messge sent!")
 
                End With
            Else
                MsgBox("Error on the port selected")
            End If
Catch ex As Exception
            MsgBox(ex.Message)
End Try

Cùng trải nghiệm nhé. Chúc các bạn thành công

Hướng dẫn lập trình ứng dụng gửi tin nhắn SMS qua thiết bị DCOM 3G sử dụng VB.NET

Hướng dẫn lập trình ứng dụng gửi tin nhắn SMS qua thiết bị DCOM 3G sử dụng VB.NET Đăng ngày 25-08-2016  Bài viết hướng dẫn các bạn, viết một ứng dụng gởi tin nhắn SMS thông qua thiết bị DCOM 3G. Ở ví dụ dưới đây, mình sử dụng thiết bịDCOM 3G FastConnect của Mobifone. Sử dụng các lệnh AT Command để gởi tin nhắn. 1.5/10 4362

Thảo luận:

Để bình luận bạn phải đăng nhập thành viên.

File tương tự

Files cùng mục

 
Hỗ trợ kỹ thuật cho thành viên:
Số di động (Hotline): 085.99999.25
Thời gian làm việc:
Sáng: 8h-12h; Chiều: 13h30-17h30
(Nghỉ chiều T7, CN và các ngày lễ, tết)
Chat với Megacode
https://www.facebook.com/megacodevn
File gợi ý cho bạn
File tải nhiều nhất
Megacode.vn - Thư viện mã nguồn chia sẻ, tải file cho cộng đồng
Copyright © 2013-2016. All rights reserved. Bản quyền thuộc VinaGon
Địa chỉ: Số 38 Hàng Bè, Hàng Bạc, Hoàn Kiếm, Hà Nội.
Văn phòng giao dịch: Phòng 28, Tầng 6, HH1A Linh Đàm, Hoàng Mai, Hà Nội
Email: info@vinagon.com | Website: www.vinagon.com | Điện thoại: 085.99999.25;