Cara Membuat Software Pengunci Folder Dengan VB.Net

Pertama anda harus membuat Form seperti gambar dibawah ini :

 

Toolbox yang diperlukan adalah :
 

1 textbox

3 button . button 1 = browser , button 2 = lock , button 3 = unlock

1 folderbrowserdialog

Double Click Form anda , lalu dibagian paling atas tempat code/general masukan :

Imports System.Security.AccessControl

Imports System.IO

Double Click Pada Button Browse lalu masukan :

        With FolderBrowserDialog1

            If .ShowDialog() = DialogResult.OK Then

                TextBox1.Text = .SelectedPath

            End If

        End With

Double Click Pada Button Lock lalu masukan :

Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)

    fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))

    File.SetAccessControl(TextBox1.Text, fs)

msgbox(“folder telah dikunci”)

Double Click Pada Button Unlock lalu masukan :

    Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)

    fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))

    File.SetAccessControl(TextBox1.Text, fs)

msgbox(“folder telah dibuka”)

Jadi syntax code fullnya seperti dibawah ini :

Synra Folder Locker v1.0

Imports System.Security.AccessControl Imports System.IO Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click         With FolderBrowserDialog1             If .ShowDialog() = DialogResult.OK Then                 TextBox1.Text = .SelectedPath             End If         End With End Sub Private Sub btnLock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLock.Click     Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)     fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))     File.SetAccessControl(TextBox1.Text, fs) msgbox(“folder telah dikunci”) End Sub Private Sub btnUnLock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnLock.Click     Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)     fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))     File.SetAccessControl(TextBox1.Text, fs) msgbox(“folder telah dibuka”) End Sub

Email Bomber :: Cara Mudah Nge-Boom Email Lawan

Kini kami akan Share sebuah software mungil namun sangat berkhasiat untuk membuat orang lain kebingungan. Email Bomber merupakan sebuah software yang bisa anda manfaatkan untuk mengirimkan sebuah email Sampah yang jumlahnya Ratusan, Ribuan bahkan Jutaan dalam sekali kirim ke alamat email orang lain. Jadi sudah pasti, email sampah yang anda kirimkan akan memenuhi Inbox orang tersebut yang pada akhirnya Space/Bandhwith emailnya akan kepenuhan dan akhirnya error. Hehehehe lumayan kejeeem kan ^_^

Seperti biasa, Mohon jangan gunakan software ini untuk kegiatan iseng dan menjahili teman anda karena akibatnya sangat merugikan orang lain. Tujuan kami Share software ini hanyalah sebagai pembelajaran semata.

PC Prank - Software Jahil Paling Lengkap Sedunia

Nah, kali ini saya sajikan Prank dalam 1 paket yang isinya banyak sekali dan untuk menjadi modal awal kegiatan berjahil ria! Sekarang, mari kita bahas bersama apa sih Fitur-fitur yang dimiliki oleh Paket PC Prank ini.

Berikut ini berbagai fitur dari PC Prank :

• Pertama, Heavy Mouse : Membuat kursor PC kelebihan berat, jadi akan jatuh ke bawah terus. Mungkin kursornya kebanyakan makan angin….hehehe
• Kedua, Virus : Membuat seperti terkena virus dan efeknya akan menformat hardisk (tapi cuman bohongan)
• Ketiga, Big Mouse : membuat mouse ukurannya Super Guuueede
• Keempat , PC Still On : Akan ada peringatan PC Turn Off.
• Kelima, Mouse Clones : Memperanakkan mouse alias mouse akan menjadi banyak sekali.
• Keenam, Crazy Eight : Mouse bergoyang-goyang terus membentuk angka 8.
• Ketujuh, Strectchy Mouse : Mouse meski di olor-olor tetap balik ke posisi semula…wkwkwkw
• Kedelapan, Running Window : Ada pesan yang ketika akan di klik kabuuur terus.

Dan masih buuuanyak lagi deh isinya. Pegel kalau saya jelasin semuanya, karena saya hitung ada 33 Prank jumlah totalnya. Mendingan langsung anda sedot dan coba sendiri….Buruaaannnn!!!

Berikut ini cara Install PC Prank :

• Silahkan Sedot PC Prank pada link dibawah kemudian ekstrak.
• Selanjutnya buka folder PC Prank dan jalankan file Setup.exe kemudian Install seperti biasa.
• Sekarang jalankan PC Prank melalui Start Menu kemudian klik tombol Go To Prank Menu kemudian tombol Register dan langsung masukkan Serial yang ada dalam file download-an tadi agar bisa digunakan dengan Full.