Cara Membuat Folder Lock Di VB 6

Pada pos kali ini saya akan membuat folder lock sederhana kayak smadav, bagi yang mau buat harus sudah terinstall visual basic

Ini dia langkah-langkahnya!

1.       Buka Program Visual Basic Anda!

2.       Pada Menubar pilih Project > References > lalu cari dan centang Microsoft Scripting Runtime > OK

3.       Tambahkan 3 buah commandbutton, 1 drivelistbox, 1 listbox. Lalu Desainlah seperti gambar di bawah ini!

4.       Lalu Masukkan Kode Ini Kedalamnya!

Private Sub Command1_Click()

On Error Resume Next

Dim fso As New FileSystemObject

Dim aa As Long

For aa = 0 To List1.ListCount

    fso.CreateFolder (List1.List(aa) & "\" & ChrW$(&H2206) & " musa-bertambah-ilmu.blogspot.com " & ChrW$(&H2206))

Next

MsgBox "musa-bertambah-ilmu.blogspot.com Folder Lock Berhasil Di Buat", vbInformation, "Warning"

End Sub

Private Sub Command2_Click()

On Error Resume Next

Dim fso  As New FileSystemObject

Dim aa As Long

For aa = 0 To List1.ListCount

fso.DeleteFolder (List1.List(aa) & "\" & ChrW$(&H2206) & " musa-bertambah-ilmu.blogspot.com " & ChrW$(&H2206))

Next

MsgBox "musa-bertambah-ilmu.blogspot.com Folder Lock Berhasil Di Hapus", vbInformation, "Warning"

End Sub

Private Sub Form_Load()

Drive1.Refresh

For i = 0 To Drive1.ListCount

List1.AddItem Drive1.List(i)

Next

End Sub

5.       Jika Sudah Tekan F5 untuk menjalankan program yang baru kita buat

Bagi Agan-agan yang mempunyai sample virus

Tolong di kirim ke E-Mail saya di musaVB17@gmail.com

atau baca tentang Cara Menyisipkan File Pada E-Mail Yang Akan Dikirim Lewat G-Mail 

Terima Kasih