rinnoA

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

klo yg versi php ada tidak??

supry vallano

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

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

dindn

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

brain

ko pas di run custom messagebox creator missing???

Mengisi Komentar