|
Bung bisa taruh di Command1_Click().
Atau bisa juga di Timer1_Time() yang di-set
intervalnya x detik untuk baca SMS
masuk.
Misalnya:
Private Sub Timer1_Time()
If ada SMS baru
Then
If
isinya "AFI BOJES" Then
rs.Addnew
tambah 1 ke counter si BOJES
rs.update
Else
If
Kirim_SMS("Format
SMS Anda tidak dikenal
End
If
Hapus_SMS_yang_dibaca_barusan()
End If
End Sub
Kira2 seperti itu Bung Dedy.
Btw, udah ada HP en kabel datanya
belom.
Kalau Bung berencana untuk pemakaian di
kantor,
Kami sarankan Bung pakai GSM
Modem.
Kami di sini pakai Nokia 30, (saat itu) harganya
3,75jt
Salam CMIIW
Toto
------------------------------------------------------------------------------------------------------------------------- "Transmisi ini mungkin berisi informasi yang bersifat pribadi, rahasia dan tertutup untuk dipublikasikan berdasarkan Hukum dan Peraturan Perundang-undangan yang berlaku di wilayah Republik Indonesia. Jika Anda bukanlah penerima yang dituju, bersama ini Anda diperingatkan bahwa semua publikasi, penggandaan, pendistribusian, atau penggunaan informasi yang ada disini (berikut semua informasi yang terkait) adalah SANGAT TERLARANG. Jika Anda menerima transmisi ini tanpa disengaja, harap segera hubungi pengirim dan hapus material ini seluruhnya, baik dalam bentuk elektronik maupun dokumen cetak. Terima kasih." ------------------------------------------------------------------------------------------------------------------------- Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] YAHOO! GROUPS LINKS
|
- Re: [Programmer-VB] [Ask] SMS Programming Toto Sugiarto
