A Blog Written By Ahlul Faradish Resha S.Si

Sebenarnya sih ndak juga sih 1001 :)) tapi ya mungkin cuma dua saja (1 + 0 + 0 + 1 = 2 ;)) )

Ada beberapa yang menjadi alasan agar lebih baik misal pindah ke gMail dari yahoo.

• Filter spam dan bulk yang keterlaluan, ini sangat merugikan sekali karena yahoo sering sekali melakukan defer terhadap email-email
• Masih minim feature

Yap mungkin itu, yang penting yuk pindah GMail yang kaya feature yuk.

Perbaikan kode pada buku “Membuat Virus dan Antivirus – Be Expert” tentang file hasil scan yang tidak bisa dihapus. Ternyata hal itu dikarenakan salah ambil nilai dari kolom listview hasil scan, berikut kode lama:


Private Sub DeleteAction()
On Error GoTo err:
Dim keRecycleBin As Boolean
keRecycleBin = False
Msg = MsgBox("Pilihlah metode penghapusan:" & vbCrLf & "Yes untuk penghapusan total" & vbCrLf & "No untuk hapus ke recycle bin" & vbCrLf & "Cancel jika tidak jadi menghapus", vbInformation + vbYesNoCancel, "SEngine")
If Msg = vbYes Then
keRecycleBin = False
ElseIf Msg = vbNo Then
keRecycleBin = True
Else
Exit Sub
End If
For i = 1 To lFound.ListItems.Count
If lFound.ListItems.Item(i).Checked = True Then
DoEvents
If delCancel = True Then
Exit For
End If
sFile = lFound.ListItems.Item(i).SubItems(2)
Debug.Print sFile
DeleteFileEx Me.hWnd, CStr(sFile), keRecycleBin, False
lFound.ListItems.Remove i
DoEvents
i = i - 1
End If
Next i
err:
MsgBox "Penghapusan selesai.", vbInformation, "SEngine"
End Sub


Berikut perbaikan kode:


Private Sub DeleteAction()
On Error GoTo err:
Dim keRecycleBin As Boolean
keRecycleBin = False
Msg = MsgBox("Pilihlah metode penghapusan:" & vbCrLf & "Yes untuk penghapusan total" & vbCrLf & "No untuk hapus ke recycle bin" & vbCrLf & "Cancel jika tidak jadi menghapus", vbInformation + vbYesNoCancel, "SEngine")
If Msg = vbYes Then
keRecycleBin = False
ElseIf Msg = vbNo Then
keRecycleBin = True
Else
Exit Sub
End If
For i = 1 To lFound.ListItems.Count
If lFound.ListItems.Item(i).Checked = True Then
DoEvents
If delCancel = True Then
Exit For
End If
sFile = lFound.ListItems.Item(i).SubItems(3)
Debug.Print sFile
DeleteFileEx Me.hWnd, CStr(sFile), keRecycleBin, False
lFound.ListItems.Remove i
DoEvents
i = i - 1
End If
Next i
err:
MsgBox "Penghapusan selesai.", vbInformation, "SEngine"
End Sub


Pesan berantai saat ini sudah menjadi fenomena sendiri ditengah masyarakat kita. Saya juga heran kenapa masih banyak di antara kita yang mau terpengaruh dengan pesan berantai itu yang umumnya mempunyai INSTRUKSI UNTUK MENYEBARKAN KEMBALI PESAN TERSEBUT entah itu ke 5 orang ke 10 orang dan sebagainya.

Apalagi kebanyakan pesan-pesan tersebut MENYEBARKAN BERITA-BERITA YANG SANGAT-SANGAT TIDAK BISA DIJELASKAN KEBENARANNYA numun masih ada saja yang masih terpengaruh dan kembali menyebarkannya. Seperti yang akhir-akhir ini terjadi yaitu penyebaran isu RING IN RED seperti yang saya
tulis pada tulisan saya yang sebelumnya, dimana orang mati ketika mengangkat telepon dari nomor tertentu. Silahkan baca jika anda memang belum tahu tentang isunya yang memang dan ternyata bohong belaka namun membuat geger penduduk indonesia terutama kawasan Sumatera.

SMS Massal ini sebenarnya sama sekali tidak seharusnya dilakukan karena akan merugikan anda sendiri dan orang lain yang percaya dengan isu yang disebarkan via SMS tersebut. Hanya satu pihak yang diuntungkan di sini yaitu OPERATOR SELLULER. Karena SMS massal ini rantainya bisa sangat panjang sekali.

Oleh karena itu MARILAH KITA BERPIKIR CERDAS, perlu kita ingat saat ini menyebarkan isu terutama lewat SMS atau Messager sangat gampang dan murah biayanya jadi jangan sampai kita tertipu lagi dengan isu2 dari orang-orang yang ndak bertanggung jawab.

MAKA MARILAH MULAI SAAT INI KITA BERSAMA-SAMA MEMUTUSKAN PESAN-PESAN BERANTAI YANG TIDAK JELAS KEBENARANNYA, KARENA ITU AKAN LEBIH MENGUNTUNGKAN KITA DAN AKAN MENGAMANKAN SUASANA,

DENGAN MEMUTUSKAN RANTAI PESAN DAN SMS MAKA ANDA JUGA TURUT MENCERDASKAN BANGSA BUKAN MALAH MEMPERBODOH BANGSA.

MARI BERSAMA-SAMA KITA TINGKATKAN KEILMUAN KITA SEHINGGA KITA TIDAK MUDAH PERCAYA DENGAN HAL-HAL YANG TIDAK JELAS KEBENARANNYA.

Semoga ini bisa membantu kita semua, sekali lagi berkomitmenlah untuk memutuskan rantai SMS atau pesan messager. TErimakasih untuk dan jika anda semua memang punya keinginan yang sama untuk memutuskan hal-hal seperti ini.

;)) terakhir jangan lupa komentar…

(update: Katanya udah ada yang ngaku klo ini cuma mainan SMS ABG)

Ternyata tertarik juga saya membahas hal ini ;)) karena orang deket pun dah sampe juga terpengaruh walah hanya dalam batas penasaran.

Berikut fenomena yang terjadi:
MENGENAI “RING IN RED” YANG TERJADI DI BANYAK NEGARA, KEPDIK “WHO” PROF. DR. BLANCA LOCHAR J. D. TELAH MENYATAKAN BAHWA KEJADIAN DEMIKIAN DAPAT DIPASTIKAN BUKAN ILMU HITAM. AKAN TETAPI, RADIASI INFRAMERAH YANG SENGAJA DIPANCARKAN SECARA BERLEBIHAN KE CELLPHONE NOMOR DITUJU YANG MEMANG BENAR DAPAT MENYEBABKAN SI PENERIMA TEWAS

Nah apakah ini bener?

Menurut saya sih seperti yang ditulis di salah satu blog bahwa itu merupakan persaingan bisnis saja. Karena disini kartu AXIS menjadi korban utamanya.

Nah di sini saya ingin menambahkan mari kita berpikir secara logika.

1. Tidak ada sepertinya provider yang sengaja membuat fasilitas pada telfon yang akan membuat layar telefon bewarna merah saat ditelfon oleh nomor tertentu.
2. Selain itu Tidak ada hubungannya antara nomor telfon dengan aktifasi infrared… emang segede apa kekuatan infrared yang akan dibangkitkan? Tentunya ndak akan dikategorikan aman klo seandainya infrared HP bisa dibangkitan menjadi barang yang sangat berbahaya, berarti hp bisa dibilang pembunuh masal dunk.. kenapa harus sekarang…???
3. Saya melihat dari redaksi perkataan di sini di tuju hanya satu orang saja, kenapa tidak dibuat redaksi kata or kalimat jika hp ini berdering di dekat kumpulan orang yang lagi rame semua mati. Nah…?
4. NAH YANG PALING MENGADA2, KENAPA HARUS PAKE INFRARED KENAPA NDAK PAKE BLUETOOTH AJA, APA KARENA UNSUR KATA “MERAH” SEHINGGA LEBIH MENAKUTKAN :)) =)) (aneh aneh).
5. KENAPA ISUNYA ADA DI INDONESIA, KARENA YANG PERCAYA BEGINIAN YA ORANG INDONESIA ;)) :-$ stujukah???
6. selanjutnya mungkin anda punya argumen sendiri

Sekarang apa pantas lagi itu dipercaya.

Isu ini juga diperkuat melalui pesan berantai di misal Yahoo Messager sehingga ini kelihatan besar fenomenanya.

:) nah waktunya kita meningkatkan keilmuan kita biar ndak diperbodoh sesuaitu yang kadang kita nilai dengan pengetahuan yang kosong saja. Semoga posting ini berguna untuk membuat kita menghindari kejadian2 seperti ini