Mengenal Visual Basic 6 - Part 3 (End)

Hallo Semua Sobat , kali ini Blog's Informatika Cyber  akan memposting  Mengenal Visual Basic 6 - Part 3 (End),
oke tanpa basa basi lagi liat tutorialnya di bawah :

Data Destroyer
Nah kali ini kita akan coba buat program untuk menghapus data. Yang dimaksud dengan menghapus data di sini adalah menghancurkannya. Kalian pasti taukan kalo data yang sudah di hapus sebenernya bisa di recover lagi, lha kalo data tersebut merupakan data yang rahasia gimana kalo katahuan orang laen. Nah dengan app yang kalian buat ini maka data yang sudah hancur walaupun direcover lagi maka tidak dapat dibuka kembali. Sebelumnya hal ini udah disampein ama bro fr4kenstein so aku juga minta ijin ama bro fr4k kalo topicnya aku reborn lagi untuk memperjelas langkahnya.

Ok langsung ajah
Project : prjDataDestroyer.vbp
Form : frmMain.fm
Kontrol :
[list[*]Textbox (text1) untuk menampilkan data yang akan dihancurkan
[*]Command1 untuk brows file dari drive
[*]Command2 untuk eksekusi penghancuran[/list]

Nih codenya

Code:
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
Command1.Caption = "BROWSE"
Command2.Caption = "DESTROY!"
Form1.Caption = "Penghancur Data by Yudha"
End Sub
Private Sub Command1_Click()
'------------------------------------------------
'Mencari file target
'------------------------------------------------
Label1.Caption = ""
Text1.Text = ""
On Error GoTo ErrHandler
CommonDialog1.Filter = "All Files"
CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = "Open file to delete..."
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
ErrHandler:
Exit Sub
End Sub
Private Sub Command2_Click()
'------------------------------------------------
'Buka file target kemudian hapus seluruh isinya.
'------------------------------------------------
Open CommonDialog1.FileName For Output As #1
Print #1, ""
Close #1
'------------------------------------------------
'Ubah ekstensi file target menjadi .tmp
'------------------------------------------------
changeEX = ChangeFileExt(CommonDialog1.FileName, "tmp")
Label1.Caption = "DATA SUDAH DIHANCURKAN!!"
End Sub
Public Function ChangeFileExt(ByVal nama_file As String, ByVal ekstensi_baru As String) As Boolean
'------------------------------------------------
'Fungsi untuk mengubah ekstensi file
'------------------------------------------------
Dim x As Long
Dim xy As Long
Dim nama_baru As String
On Error Resume Next
ChangeFileExt = False
If nama_file = "" Then Exit Function
x = 0
Do
xy = x
x = InStr(x + 1, nama_file, ".", vbBinaryCompare)
Loop Until x = 0
If xy > 0 Then
nama_baru = Left(nama_file, xy - 1)
Else
nama_baru = nama_file
End If
nama_baru = nama_baru & "." & ekstensi_baru
Err.Clear
Name nama_file As nama_baru
Kill nama_baru
If Err.Number = 0 Then ChangeFileExt = True
End Function

Kalo udah coba di cek dengan Ctrl + F5 maka tampilannya akan menjadi seperti ini:

Dan seperti inilah prosesnya ketika klik tombol browse

Pilih data yang ingin kamu hancurkan kemudian Open, maka akan muncul file beserta root directory nya di app yang kamu buat seperti ini:

Kemudian klik DESTROY nanti akan muncul tulisan “DATA SUDAH DIHANCURKAN”, nah supaya yakin coba kamu cek file yang tadi kamu hancurkan apakah masih ada ato dah hilang? Kalo dah hilang berarti kamu dah sukses, kalo pengen lebih yakin lagi coba recovery lagi data yang kamu hancurkan tadi, apa yang terjadi? File tadi berubah bentuk ekstensinya menjadi .trm, dan lihat apakah ada di Recycle Bin? Pasti gak ada ya hehehehehe.

Cara kerja app ini ketika tombol destroy diklik maka file secara otomatis akan dihapus/dihancurkan kemudian file tersebut diubah ekstensinya menjadi .trm.

Ok met mencoba dah.. sementara sekian dulu kapan2 dilanjut lagi kalo ada tambahan ilmu hehehe


THE END