STNK Hilang NGurusnya Susah

udah sekitar seminggu lebih stnk saya ilang, dan setelah saya coba mengurus ternyata susah banget. Apalagi BPKB kita masih dibawa oleh leasing jadinya yaaaa. sangat-sangat susah….

Leasing saya BAF (Bussan Auto Finance), pada waktu itu saya berniat untuk mengurusnya. saya datang ke BAF dan minta surat fotokopi dan keterangan kehilangan. Yang mengejutkan buat saya adalah BAF tidak memberikan pelayanan untuk masalah kehilangan STNK ini

Kata petugas BAF MALANG : “Kalo masalah kehilangan STNK yang ngurusi ya Dealer mas!”

otomatis saya kaget padahal kalo temen2 saya bilang (Dari Leasing lain….) mereka punya tim yang khusus untuk mengurus STNK ilang kayak gini. terus saya coba untuk persuasif, ternyata gak bisa tetep aja gak bisa. Malah pihak BAF meminta saya untuk menemui pihak Dealer.

Kebetulan Dealer tempat saya beli motor kesayangan ini adalah di Yamaha Blimbing Motor. Ketemu dengan Ibu Dina, bagian STNK katanya gitu…. menurut mbak Dina

“Kita bisa menguruskan ini mas, tapi prosesnya lama bisa dua bulan atau tiga bulan…apalagi sayua sekarang bla..bla…bla……sebetulnya disetiap leasing ini ada tim yang ngurusin ini mas, tapi mungkin di BAF nya gak ada…”
intinya Ibu Dina ini menjelaskan bahwa kalo ngurus STNK dan tidak ada BPKB asli maka ya susah!!!

Saya balik lagi ke BAF untuk berusaha sekali lagi, ternyata tetap saja dijawab TIDAK BISA, itu sudah URUSAN DEALER, nah hal ini yang membuat saya sedikit jengkel!…. ketika saya sedikit menekan, salah satu karyawan BAF sambil melototin saya menegas kan bahwa “KAMI TIDAK BISA” atau…..”KAMI TIDAK BERTANGGUNG JAWAB????” hehehe….. setidaknya dibantu lah…saya minta dibantu solusi juga… “SOLUSINYA YA ITU MAS….sampeyan ke DEALER”….wah model pelayanan yang bagaimanakan ini menurut Anda….diputer..puter….puter…

Saya datang lagi ke ibu Dina, dengan harapan bisa menemukan jalan keluar….

Kemudian Ibu DIna memberikan beberapa alternatif seperti meminjam BPKB, dan meminjam adalah satpamnya BAF atau mungkin hubungan langsung dengan tim Roda Sakti yang mengurusi STNK ini….

Sampai saya berpikir…”Mendingan saya lunasi dulu terus dapat BPKB baru bisa lebih mudah..dan cepat….huh melelahkan….”

So buat Anda pemilik atau pengendara kendaraan bermotor, JANGAN SAMPE DEH kehilangan STNK seperti saya…huh…..ribet banget….

kapan yah negara ini bisa lebih mudah kita dalam keadaan susah gini?…..

Waaa!!! STNK Ilang Bikin Repot!

Telah hilang STNK dengan

No. Pol : EN Tiga Nol Nol Dua Ha Ow
Pemilik : Syahroni Wahyu
Motor Type : Vega R New DB
Warna : Hitam
Diperkirakan hilang didaerah Madiun, Magetan
Yang menemukan dimohon menghubungi no dibawah ini

0341 425041

Ada hadiah menarik! pasti!

thanks

Mengirim SMS Lewat Komputer

Kali ini saya akan memberikan sedikit informasi untuk dapat membuat sebuah program yang dapat mengirim sms melalui komputer:

1. Saya menggunakan hp Siemens C55 sebagai modem yang dapat menerima dan mengirim SMS.
2. Saya menggunakan OCX yang bisa saya download dari Activexperts.com
3. Saya membeli kabel USB-To Serial merk Prolific untuk koneksi C55 dengan komputer

kemudian dengan kemampuan VB saya yang terbatas saya membuat form untuk mengirim SMS seperti dibawah ini:

dan untuk menerima sms baru saja saya buat formnya :

jadi deh…

gimana dengan source codenya di vb?

Public objConstants As ASmsCtrl.Constants
Public objGsmOut As ASmsCtrl.GsmOut
Public objGsmIn As ASmsCtrl.GsmIn

Private Declare Function GetTempPath Lib “kernel32″ Alias “GetTempPathA” (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Const MAX_PATH = 260

Dim conn As ADODB.Connection
Dim reco As ADODB.Recordset
Dim strcon As String

Private Sub Command1_Click()
Form1.Refresh

txtpenerima.Text = “”
txtberita.Text = “”

End Sub

Private Sub Command2_Click()
conn.Close
Form2.Show
Form1.Hide
End Sub

Private Sub Command3_Click()
quit

End Sub

Private Sub Form_Load()
Set objGsmOut = CreateObject(“ActiveXperts.GsmOut”)

Dim devicecount As Long
Set conn = New ADODB.Connection
Set reco = New ADODB.Recordset

‘———-database access
strcon = “Provider = Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & App.Path & “\wecsmslog.mdb;”

conn.CursorLocation = adUseClient

‘membuka koneksi
‘conn.ConnectionString = strcon
conn.Open strcon

‘cek apakah koneksinya tersambung?
If conn.State = adStateClosed Then
MsgBox “Database tidak terkoneksi….”
Else
MsgBox “database sudah konak”, 1

‘jalankan sql nya
reco.Open “select * from outbox”, conn, adOpenKeyset, adLockOptimistic

‘jika record sudah ada, arahkan pada record pertama
If reco.RecordCount > 0 Then reco.MoveFirst

recawal = reco.BOF
recakhir = reco.EOF

End If
‘———-koneksi database selesai

txtpenerima.Text = “”
txtberita.Text = “”

lDeviceCount = objGsmOut.GetDeviceCount() ‘ Get number of devices

For i = 0 To lDeviceCount – 1
cmbport.AddItem (objGsmOut.GetDevice(i)) ‘ Add devices to list box
Next

For i = 0 To portnya – 1
cmbport.AddItem (i) ‘ Add devices to list box
Next

cmbport.AddItem (“COM1″) ‘ Add serial devices
cmbport.AddItem (“COM2″)
cmbport.AddItem (“COM3″)
cmbport.AddItem (“COM4″)
cmbport.AddItem (“COM5″)
cmbport.AddItem (“COM6″)
cmbport.AddItem (“COM7″)
cmbport.AddItem (“COM8″)
cmbport.AddItem (“COM9″)
cmbport.AddItem (“COM10″)
cmbport.ListIndex = 0

End Sub
Private Sub cmdsend_Click()

For i = 0 To portnya – 1
cmbport.AddItem (i) ‘ Add devices to list box
Next

If Check1.Value = Checked Then
laporan = True
Else
laporan = False
End If

objGsmOut.Device = cmbport.Text ‘ Use a Nokia Windows Telephony device
‘objGsmOut.MessageRecipient = “+6281335337791″ ‘ Recipient’s mobile number
objGsmOut.MessageRecipient = txtpenerima.Text
‘objGsmOut.MessageData = “coba deh” ‘ SMS message text
objGsmOut.MessageData = txtberita.Text

objGsmOut.RequestStatusReport = laporan ‘ No request for status report
objGsmOut.ValidityPeriod = 0 ‘ Use GSM operator’s default retry time

‘objGsmOut.EnterPin (“1234″) ‘ SIM card’s PIN code
objGsmOut.Send

If objGsmOut.LastError = 0 Then
MsgBox “Message successfully delivered.”, 1

Else
MsgBox “Error: ” & objGsmOut.LastError
End If

conn.Execute “INSERT INTO outbox ” & _
“(tglkirim, jamkirim, nopenerima, berita) ” & _
“values (#” & Date & “#,#” & Time & “#,’” & txtpenerima.Text & “‘,’” & txtberita.Text & “‘);”
reco.Requery

End Sub

yah yang jelas aplikasi ini masih perlu banyak pengembangan terutama pada tampilan, database dan fasilitas yang lain

Membangun SMS Gateway Berbasis Web

Rencana Pak Dave, Branch Manager Wearnes Education Center Madiun untuk mempermudah manajemen data dan informasi lowongan pekerjaan untuk para alumni WEC yang tergabung dalam IAMW (saya baca : I AM Wearnes!) sepertinya akan segera terlaksana.

Saat ini pengiriman informasi lowongan pekerjaan kepada alumni WEC melalui sms masih dilakukan secara manual. Maksudnya ibu-ibu yang ada di WECMDN harus capek2 mengetikkan informasi tersebut dan mengirimkannya satu persatu ke no hp tujuan. Database no hp dan alumni juga masih manual, ironis sih kelihatannya…padahal Wearnes Education Center adalah kampus elite yang “CANGGIH” untuk masalah SDM, Pelayanan, dan Teknologi nya….

Maka dari itu dengan adanya HP SIEMENS C55 yang baru aja dapet beserta kabel USBnya, hal tersebut bisa diatasi.

HP SIEMENS C55 tersebut hanyalah sebuah alat/device nya saja, perlu dibangun suatu sistem yang dapat meng-cover masalah tersebut. Maka dari itu WEC MDN saat ini sedang membangun Sistem itu. Manajemen SMS Berbasis Web, mungkin salah satu jawaban. SIstem ini sekarang sedang dibangun menggunakan pemrograman PHP. Tentunya sistem ini mendapat bantuan dari Penyedia OCX sms dan pager ActiveXPerts.com

Untuk tahap pertama yang sudah berhasil dibuat adalah untuk mengirimkan pesan saja.untuk source code programnya cukup simple seperti dibawah ini

<?php
$objGsmOut = new COM (“ActiveXperts.GsmOut”);
$numpesan= $objGsmOut->Send();

$objGsmOut->Device = “COM3″;
$objGsmOut->MessageRecipient = “+6285649555925″;                  

$objGsmOut->MessageData = “oke deh ini untuk percobaan doang”;
$objGsmOut->ValidityPeriod =0;
$objGsmOut->EnterPin (“1234″);
if ( $objGsmOut->LastError == 0 )
   {     
        $objGsmOut->Send();
   }
   
   if ( $objGsmOut->LastError == 0 )
   {
       Echo “Message successfully submitted.”;
   }
   else
   {
       $ErrorNum = $objSmpp->LastError;
       $ErrorDes = $objSmpp->GetErrorDescription ( $ErrorNum );

       Echo “Error sending message: #$ErrorNum ($ErrorDes).”;
   }

?>

bagaimana untuk yang lain? kita tunggu aja….

SMADA ANTIVIRUS (SMADAV)

Sory info ini mungkin telat tapi lebih baik lah daripada tidak posting… hehehe

Salah satu Antivirus Lokal telah beredar bebas. SmadAV merupakan Antivirus lokal yang gratis (freeware) yang dikhususkan untuk mengatasi virus-virus lokal ataupun mancanegara yang menyebarluas di Indonesia.

Dibuat oleh Zainuddin Nafarin (STC), pelajar SMAN 2 Pahandut, Palangka Raya.

http://rapidshare.com/files/68916796/smadav34.zip.html

Dengan interface yang cukup bagus sudah mampu untuk menghajar virus-virus lokal yang banyak beredar di Indonesia. Pada SmadAV 3.0 yang saya download menyatakan sudah mampu menangani 256 jenis virus.

http://rapidshare.com/files/68916796/smadav34.zip.html

Namun pada SmadAV 3.4 sudah mampu mengenali virus lokal maupun manca sebanyak 316. SMADAV relatif lebih ringan daripada virus lokal yang lain.

Dengan menggunakan engine antivirus-nya sendiri, SmadAV dapat melakukan scanning virus dengan cepat dan akurat.

Ditambah dengan algoritma heuristic-nya, varian varian virus (baik varian terbaru ataupun varian lama) yang belum ada di database SmadAV dapat dideteksi dengan mudah. Dan mengembalikan registry yang sudah diubah sama virus..

klik link ini buat download

http://rapidshare.com/files/68916796/smadav34.zip.html

http://www.geocities.com/zainuddin_nafarin/smadav/smadav34.zip

http://www.indoupload.net/files/872/smadav34.zip

http://smadav.idohost.com/smadav34.zip