Menghilangkan Folder Option

Trik ini digunakan untuk menghilangkan menu folder option pada computer Anda, agar tidak dapat diubah oleh sembarang user.

1.     1.   Pada form letakkan dua komponen Button. Atur posisidan properties komponen seperti gambarberikut ini.

Gambar 1.1 Menambah Dan Mengatur Komponen

1.       2. Kemudian untuk pengaturan propertiesseperti table dibawah ini.

Tabel 1.2mengatur properties komponen.

ama Control	Properties	Nilai
Button 1	Text	Hilangkan Folder Option
Button 2	Text	Tampilkan Folder Option

2.     3.  Kemudian Anda tambahkan project Module, lalu pada project ModuleAnda Copy kode program di bawah ini.

<br /> Module Module1<br /> Public Sub FolderOption(ByVal Aktif As Boolean)<br /> Dim HKCM As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine<br /> Dim key As Microsoft.Win32.RegistryKey = HKCM.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer")<br /> key.SetValue("NoFolderOptions", IIf(Aktif, 0, 1), Microsoft.Win32.RegistryValueKind.DWord)<br /> End Sub<br /> End Module<br />

1.      4.  Selanjutnya Anda klik ganda pada Button1, lalu copy kode program dibawah ini.

<br /> Public Class Form1<br /> <br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> FolderOption(False)<br /> End Sub<br />

1.      5.  Terakhir Anda klik ganda pada Button2, lalu copy kode program dibawah ini.

<br /> Public Class Form1<br /> <br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> FolderOption(True)<br /> End Sub<br /> End Class<br />

1.       6. Lihatlah bedanya

Gambar 1.3 Sebelum

Gambar 1.4 Sesudah

Related Post :)

Posted in: VB