Menggunakan X SMS Engine v4.1 Pada Visual Basic .NET

Menggunakan X SMS Engine v4.1 Pada Visual Basic .NET

X SMS Engine adalah komponen yang berfungsi untuk membantu dalam pembuatan program aplikasi berbasis SMS. Salah satu bahasa pemrograman yang dapat menggunakan komponen ini adalah Visual Basic.NET.
Untuk pemakaian di Visual Basic.NET, yang harus dilakukan terlebih dahulu adalah :
Menambahkan XSMSEngine4.OCX Pada Toolbox Visual Basic.NET, yaitu dengan cara menambahkan secara manual Active X Component tersebut pada Toolbox IDE Visual Basic.NET :
1. Click Kanan Pada Form ToolBox
2. Pilih Choose Items
3. Pilih Tab COM Components
4. Centang XSMSEngine4.SMSEngine
5. Click OK
XSMSEngine telah siap untuk anda gunakan di VB.NET anda.
Jangan lupa, XSMSEngine4.OCX sebelumnya harus sudah diregister ke sistem Windows
Contoh Program Pemanfaatan XSMSEngine Pada VB.NET
Tambahkan komponen X SMS Engine dari toolbox ke form, ganti namanya menjadi SMSEngine.

Setting Modem :

1	Public Sub SettingModem()

2	SMSEngine.Setting()

3

End Sub

Membaca SMS :

01	Public Sub BacaSMS()

02

03	Dim oReader As New XSMSEngine4.SMSDeliver

04	Dim oSMS As Object

05	Dim nIndex As Long

06

07	'Buka Komunikasi

08	'Dengan Device(Modem/Ponsel GSM)

09	If SMSEngine.DeviceOpen(1) Then

10	'Baca SMS Lama Dari Modem 1

11	oSMS = SMSEngine.ReadMessage(1, 1)

12

13	'Tampilkan SMS di listbox

14	For nIndex = 1 To oSMS.count

15	oReader.Decode(oSMS(nIndex).ToString)

16	ListBox1.Items.Add(oReader.PhoneNumber & " -> " & oReader.MessageText)

17

Next

18

19	'Tutup Koneksi Dengan Device

20	SMSEngine.DeviceClose(1)

21

Else

22	'Koneksi Dengan Device Gagal

23	MessageBox.Show("Koneksi Gagal")

24

End If

25

26

End Sub

Mengirim SMS :

01	Public Sub KirimSMS()

02

03	'Buka Komunikasi

04	'Dengan Device(Modem/Ponsel GSM)

05	If SMSEngine.DeviceOpen(1) Then

06	'Kirim SMS

07	If SMSEngine.SendMessage(1, "+62812150xxxxx", "Hallo SMS Ini dikirim menggunakan VB.NET") = "OK" Then

08	MessageBox.Show("Kirim SMS Berhasil")

09

Else

10	MessageBox.Show("Kirim SMS Gagal")

11

End If

12

13	'Tutup Koneksi Dengan Device

14	SMSEngine.DeviceClose(1)

15

Else

16	'Koneksi Dengan Device Gagal

17	MessageBox.Show("Koneksi Gagal")

18

End If

19

20

End Sub