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

Related posts:

  1. Buku : "Membuat Virus dan Antivirus"
  2. Module Akses Registry Windows with VB
  3. Ga tidur demi bikin Secure RD [Software Terbaru]
  4. Akhirnya Terbit Lagi "Buku Kedua" :)

11 Responses so far.

  1. anton says:

    thank’s atas infox bro,kebetulan gw br beli buku loe..,.Eh loe tau gk ad virus yg namax “amburadul”.Kl dibuka gambarx ky tengkorak.Tau gk gmn cara ngapusx?,tlg blas ke email q yc.thank’s b4.

  2. natsir says:

    Ass…bro,gw dah beli bukunya….btw engine scan virusnya koq masih ada bugsnya ya???pas scan c: file NTUSER.dat,NTUSER.log,pokoknya banyak file .dat dan .log yang kedetect sebagai virus,dengan nama virusnya nilai crc32 dibaris pertama dari list database virus,misalnya nilai crc32nya aku hapus,nilai crc32 berikutnya yang kena lagi(apa aku yang salah coding ya:mrgreen:). Kalo bisa tolong cek lagi ya bro,kalo misalnya dah ketemu solusinya,langsung posting yach…thanx U:wink:

  3. aldyxc says:

    ya k mang bener saat saya coba scan, virusnya tertangkap tapi g bisa dihapus padahal katanya hapus virusnye sukses.

  4. aldyxc says:

    kk saya mw tanya kalo kumputer saya baru di idupin ko longging off sendiri ya

  5. compenys says:

    bos nih gimana cara infeksi file exe mohon di ajarin aku

  6. Ova says:

    Gara Gara Shutdown C’Pat,komputer saya crash:???: dan BSOD:mad: :twisted: *
    * = Mungkin Gara gara saya OSnya Vista!?!?!?!?!?!

  7. s4TR1a says:

    terima kasih banyak buat mas resha….
    atas perbaikannya… :smile: :smile:

  8. The bAgOng says:

    kbtulan nih q beli bukunya, tp kstnya RUSAKKK!:mrgreen:, jdi gak bisa buka modul modul-nya gituu….:grin:

    klo bisa tlng kirimi modul2-nya yaa…(klo bisa ..)
    tHankss:grin:

  9. ARAFA says:

    SUKSES SELALU BUAT MAS AHLUL

  10. mnur hidayat says:

    gimana cara menghapus ntuser.dat, ntuser.log

  11. mnur hidayat says:

    ntuser juga gak bisa dihapus lewat dos seperti berikut :
    del ntuser.dat
    attrib ntuser.dat -s -h -r

Leave a Reply