GSM modem (gửi nhận tin nhắn bằng Visual Basic, tập lệnh AT)

Hiện tại mình đẫ làm một soft gửi tin nhắn và ra lệnh thực hiện cuộcgoij cho ĐT. Liên hệ với mình haiduyvu@gmail.com

Mình đi công tác lâu quá nên hôm nay mới có dịp vào đây chia sẻ học hỏi anh em GSm nhà ta tí. Hôm nay xin mạn phép được post lên đây cái soft nhỏ nhỏ của mình xin anh em cùng cho ý kiến nhé.
Giới thiệu:
Chương trình mình viết trên Basic 6.0 (hơi cũ nhỉ) với mục đích: giao tiếp với ĐTDĐ và điều khiển nó thực hiện cuộc gọi và gửi tin nhắn.
Nguyên lý: Truyền các hàm của tập lệnh AT qua bluetooth cho ĐT
Yêu cầu phần cứng:
- Một ĐT di động (loại có thể làm Modem GSM ấy) và có Bluetooth như mình thì mình dùng Nokia 6600 (các bạn có thể dùng các loại khác như N72, 3230, N70... đều Ok hết)
- Một đầu Bluetooth loại Dongle (của TQ bán đầy ngoài phố ấy)
- Tất nhiên là một PC loại thường thôi (anh em ta chắc dùng PenIV trở lên hết rồi nhỉ)
Yêu cầu phần mềm: (mình sẽ cho link và file ở bên dưới nhé)
- Bộ cài đặt soft của mình
- Bộ cài BlueSolei V2.6 trở lên (tốt nhất là loại V5.1 trở lên)
- Thêm cái file Acomport.dll nữa nếu như Window có hỏi thì thêm nó vào hệ thống là OK còn bình thường cài phần mềm là nó tự thêm vào.

Còn đây là bộ cài này:

Tiếp 3 phần nữa nhé (tất cả 8 phần cơ)

tiếp 2 phần cuối

Còn đây là link của bluesolei, hoặc các bạn có thể tìm trên 4shared.com với từ khoá Bluesolei hoặc IVT
http://www.4shared.com/file/1010610...Build_178_Full_Version_By_smforumnet.html?s=1

Sau khi có đủ các phần mềm thì các bạn làm như sau:
1. Cài BlueSolei vào
2. Chạy BlueSlei và quét để dò tìm ra ĐT của bạn (tất nhiên là lúc này bạn phải cắm BT PC và bật BT của ĐT lên)
3. Chọn biểu tượng có hình cái điện thoại ở cửa sổ của Bluesolei rồi kích đúp vào đấy (có thể sé có hỏi mã Pass để 2 thiết bị chấp nhận nhau thì bạn cứ ấn mã là số 1 trên điện thoại và số 1 trên PC là xong hoặc bất cứ ký tự nào miễn là giống nhau ở cả 2 thiết bị ĐT và PC), sau khi kích đúp PC sẽ tự động cài Driver để nhận cái ĐT của bạn làm Modem GSM, đợi một lúc nó cài xong nó sẽ bật lên cái cửa sổ thực hiện cuộc gọi kết nối như mình dùng kết nối qua ĐT bàn (Dial Up ấy), bạn ấn Cancel nó đi.
3. Đến đây bạn chỉ cần cài tiếp cái soft của mình ra và chạy là xong, toàn bộ bằng tiếng Việt mình không cần hướng dẫn thêm nữa nhỉ.


Bài sau mình sẽ Up nốt phần Code mình viết cho các bạn tham khảo!

Khi chạy có thể bị lỗi do hệ thống của bạn thiết file AComport.dll, hãy thêm nó vào hệ thống nhé

Phần code ví dụ cho một lệnh At thực hiện là như thế này:
Const acERR_SUCCESS = 0
' --------------------------------------------------------------
Sub WriteStr(o, str)
o.WriteString str
WScript.Echo "-> " & str
End Sub
' --------------------------------------------------------------
Sub ReadStr(o)
str = "notempty"
o.Sleep 200
Do While str <> ""
str = o.ReadString
WScript.Echo "<- " & str
Loop
End Sub
' --------------------------------------------------------------
WScript.Echo "Be sure to have the FREEWARE AComport.dll registered on your system"
WScript.Echo "Check out the code header about how to obtain the component."
Set acObj = CreateObject("ActivXperts.Comport")
acObj.Baudrate = 19200
acObj.PortID = 1
acObj.Open
WScript.Echo "acObj.Open, result: " & acObj.LastError
If acObj.LastError = acERR_SUCCESS Then
WriteStr acObj, "at+cmgf=1"
ReadStr acObj
Do
strNumber = InputBox("Enter the recipients phone number", "Input")
Loop Until strNumber <> Chr(13)
Do
strMessage = InputBox("Enter the message body text", "Input")
Loop Until strMessage <> Chr(13)
WriteStr acObj, "at+cmgs=""" & strNumber & """"
ReadStr acObj
WriteStr acObj, strMessage
strTermCmd = Chr(26) ' Terminate message by sending [ctrl]z followed by an [enter]
WriteStr acObj, strTermCmd
ReadStr acObj
acObj.Close
End If

Thanks bac nhiu nha, bai viet cua bac that chi tiet va cu the, rat hay ..........