Fix: Perbaikan Kode di Buku Bikin V dan AV – Be Expert

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

11 thoughts on “Fix: Perbaikan Kode di Buku Bikin V dan AV – Be Expert”

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.

Reply ↓

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:

Reply ↓