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 |
2 komentar:
kok komponennya setelah sya register di win32 dan sudah saya tambahkan ke toolbox,waktu di tambahkan ke form kok ada error tidak support..sya pakek vb2010..mnta pencerahannya donk master?
coba ganti frameworknya ke framework 4 bukan 4 profile
Posting Komentar