Silakan tunggu sedang proses
Selasa Kliwon 28 Mei 2024 11:04
learn make rich
share make it perfect
Ayat Suci
sesungguhnya Tuhanmu benar-benar mengawasi.
(QS. AL FAJR:14)

 otomatis refresh

Javascript ayat
Daftar Fungsi
pasaran
Mencari nama hari dan nama pasaran
pdu2sms
Konversi dari PDU ke Teks SMS
bacarss
Membaca RSS dari beberapa situs
Para Rekan
MyWeblog

Source SMS Autorespond

Aryo Sanjaya
Source-code SMS AR dalam Visual Basic

Aryo Sanjaya
Senin Legi, 24 April 2006

Berikut ini adalah source code dari SMS Autorespond, yang sebelumnya sudah diupload binernya di RaphidShare.de: EnterpriseManager.zip dan ServiceManager.zip.

Source EnterpriseManager (Aplikasi untuk setting respon)

Source ServiceManager (Aplikasi untuk terima/kirim SMS)

Source Library yang digunakan (Aryolib2.dll, MFBUS15.ocx, MsgDll.dll)

Sebagai acuan, download Petunjuk Manual (PDF).

Karena masih menggunakan MFBUS, aplikasi ini hanya mendukung HP Nokia (silakan lihat ke situs SoftwareCave). Jika ingin aplikasi dapat menggunakan HP lain, mesti dilakukan modifikasi / ganti komponen :D

Kalo yang versi Delphi sudah dijadikan komponen, tentu bisa digunakan untuk versi ini.

Komentar

Halaman Komentar:   < 1 ... 4 5 6 7 

rinnoA

Kamis Kliwon, 22 Juni 2006

to mas lutfi
aq mo naya ada peringatan ‘ list index out of bound (2)’ itu terjadi karena pada n pada pada tombol cek sms aq kasih skrip:

procedure TfUtama.SpeedButton6Click(Sender: TObject); {pada tombol Cek SMS}
var i:integer;
l:TListItem;
a:string;
begin
if not Konek then begin
ShowMessage(’Belum terkoneksi ke HP’);
exit;
end;
Timer1.Enabled := False;
lblSMS.Caption := ‘’;
ListSMS.Items.Clear;
SpeedButton6.Enabled := false;
CekSMS;
BacaSMS;
FilterDisplay;
for i := 0 to lvSMS.Items.Count - 1 do
lvSMS.Items[i].Selected := True;
PindahSMS;
while ADOQuery1.Active do
ADOQuery1.Close;
ADOQuery1.SQL.Text:=’Select a.pengirim,b.kode,b.deskripsi from SMS a ‘+
‘ inner join datane b on a.isi=b.kode where b.kode=a.isi ‘;
ADOQuery1.Open;
while not ADOQuery1.Eof do begin
l:=ListSMS.Items.Add;
l.Caption:=ADOQuery1.FieldValues[’Pengirim’];
while ADOQuery1.Active do
ADOQuery1.Close;
ADOQuery1.SQL.Text:=’Select a.pengirim,b.kode,b.deskripsi from SMS a ‘+
‘ inner join datane b on a.isi=b.kode where b.kode=a.isi ‘;
ADOQuery1.Open;
while not ADOQuery1.Eof do begin
a:=ADOQuery1.Fields[2].AsString;
ADOQuery1.Next;
end;
ADOQuery1.Next;
txtNomor.Text:=rubahKeNomor(l.Caption);
txtPesan.Text:=a;
{TabSheet4.Show;
txtPesan.SetFocus;}
end;
SpeedButton6.Enabled := True;
Timer1.Enabled := True;
Timer1.Enabled:=False;
if (KirimSMS(txtNomor.Text,txtPesan.Text)) then
begin
ShowMessage(’data terkirim’+txtNomor.Text );
end
else
begin
ShowMessage(’tidak terkirim’+txtNomor.Text);
end;
FilterDisplay;
Timer1.Enabled:=true;
end;

aq tambahi yang bercetak tebal n miring

selama itu belum terjadi error, setelah aq klik kirim sms

procedure TfUtama.SpeedButton7Click(Sender: TObject);
var c : string;
i : integer;
{a,
l: TListItem;}
begin
if txtNomor.Text = ‘’ then begin
ShowMessage(’Nomor harus diisikan’);
exit;
end;
if not Konek then begin
ShowMessage(’Belum terkoneksi ke HP’);
exit;
end;
Timer1.Enabled := False;
c := AnsiReplaceStr(txtNomor.Text, ‘,’, #13#10);
Item.Text := c;

for i := 0 to Item.Count - 1 do begin
c := trim(Item.Strings[i]);
if (KirimSMS(c, txtPesan.Text)) then
begin
ShowMessage(’Pesan sukses dikirim ke ‘ + c);
{l := ListSMS.Items.Add;
l.Caption := rubahKeNama(c);
l.SubItems.Add(DateTimeToStr(Now));
l.SubItems.Add(txtPesan.Text);
l.SubItems.Add(’PC’);
l.SubItems.Add(’Terkirim’);
l.SubItems.Add(’0′);}
{ADOConnection1.Execute(’insert into SMS(Pengirim,Tanggal,Isi,Jenis) values(’
+ QuotedStr(c) + ‘,’
+ QuotedStr(DateTimeToStr(Now)) + ‘,’
+ QuotedStr(copy(txtPesan.Text, 1, 160)) + ‘,’
+ QuotedStr(’Terkirim’) +’)');
ADOQuery1.SQL.Text := ’select max(id) as baru from SMS’;
ADOQuery1.Open;
l.SubItems.Add(ADOQuery1.FieldValues[’baru’]);}
{a := lvSMS.Items.Add;
a.Caption := l.Caption;
a.SubItems := l.SubItems;}

end
else
ShowMessage(’Pesan gagal dikirim ke ‘ + c);
end;
FilterDisplay;
Timer1.Enabled := True;
end;

terjadi error yang disorot pada Timer1.Enabled := True; tapi setelah aq cek ternyata pada FilterDisplay; dan ini procedure filterdisplaynya

procedure TfUtama.FilterDisplay();
var
i: integer;
a,
l: TListItem;
begin
lvSMS.Items.Clear;
for i := 0 to ListSMS.Items.Count - 1 do begin
l := ListSMS.Items.Item[i];
if ((l.SubItems[2] = ‘PC’) and (LokasiPC in LokasiDipilih)) or
((l.SubItems[2] = ‘Phone’) and (LokasiHP in LokasiDipilih)) then
if (l.SubItems[3] = arJenisSMS[Ord(JenisSMS)]) or (JenisSMS = jSemua) then
begin
a := lvSMS.Items.Add;
a.Caption := rubahKeNama(l.Caption);
a.SubItems := l.SubItems;
end;
end;
lbJumlah.Caption := ‘SMS: ‘ + IntToStr(lvSMS.Items.Count);
end;

apa yang salah pada “l.SubItems[2]�

tolong bantuannya klobisa dikasih tau skrip untuk mereplay sms otomatis

pleeeeeeeeeeaza
kirim ke sastr_00@yahoo.com

eka

Rabu Legi, 28 Juni 2006

klo yg versi php ada tidak??

supry vallano

Kamis Pahing, 29 Juni 2006

aku mau nanya bisa nggak ya ngrim gambar dari komputer ke handphone.
klo bisa ajarin dong mungkin ada situs nya juga.
untuk balasan nya thank.s

ardi

Sabtu Wage, 1 Juli 2006

mas buat siemens m55 ga bisa ya?ada gak selain mfbus yg bisa buat siemens

dindn

Minggu Kliwon, 2 Juli 2006

mas, ada sending sms menggunakan .net?
Please...
Gimana cara membaca port dari hp yang terkoneksi ke hp

brain

Senin Legi, 3 Juli 2006

ko pas di run custom messagebox creator missing???


Halaman Komentar:   < 1 ... 4 5 6 7 

Mengisi Komentar





untuk kode program, apit dengan tanda [code][/code].
contoh:

[code]
(kode program)
[/code]



Daftar Artikel VB

» Memecah Komponen Warna (10)
Sabtu Legi, 18 Februari 2006

Untuk para desainer di komputer, penentuan komponen warna sangatlah berpengaruh pada hasil desain

» Merubah Status Yahoo! Messenger (4)
Sabtu Pahing, 26 November 2005

Bagi yang sering memanfaatkan IM (Instant Messenger) ini, kemungkinan besar sering memanfaatkan fasilitas status dan availibilty.

» Main-main dengan ARP (4)
Senin Legi, 13 Juni 2005

Pernah denger ARP? tentu saja sering, jika anda seorang networker sejati :-)

» Mencari Nama Pasaran (18)
Kamis Pahing, 9 Juni 2005

Tidak bisa disangkal, nama pasaran sudah melekat erat di masyarakat jawa. Bagaimana cara mencarinya melalui VB?

» Buka File MDB (24)
Kamis Pahing, 9 Juni 2005

Aplikasi kecil untuk melihat isi MDB. Usefull when you need to open MDB file but MS-Access is not present. :)



Halaman:    1  2  >  

Artikel Rame
Aplikasi Handphone (250)
Senin Pon, 20 Februari 2006

Mengirim SMS dari PC (208)
Senin Wage, 28 November 2005

Membaca SMS dari PC (162)
Selasa Pahing, 14 Juni 2005

Source SMS Autorespond (66)
Senin Legi, 24 April 2006

Penyembunyian Password di Database (36)
Kamis Kliwon, 2 Juni 2005

Bukutamu
» Imam Izzatir Rizzan
Jum'at Kliwon
7 Juli 2006

» adindri
Selasa Pahing
4 Juli 2006

» Je Malakian
Selasa Pahing
4 Juli 2006

» A.Azis
Jum'at Pon
30 Juni 2006

» zorro
Kamis Pahing
29 Juni 2006


Halaman Bukutamu
Lain-lain
User online: 48
User login: 0

user/passwd: bpuser

Status Y!M
Saya sedang Offline. Silakan gunakan menu Kontak atau tinggalkan pesan di Yahoo! Messenger pada Id: aryo_sanjaya
© 2005-2024 BengkelProgram.com