Kamis, 06 Oktober 2011

Menonaktifkan Ctrl+Alt+Del Dengan VB 2005

Hy My name Moch.Hisyam.Yahya I sit in class XI and I will give you all the way to makethe program disables the Ctrl + Alt + Del with Visual Basic 2005
already do not have a lot of strings attached let's get into how to make it:

This trick is used to disable the Ctrl + Alt + Del, which is usually used to display the Task Manager window that will be used to forcibly shut down the application.
      1.  In the New Project window select Windows Application. Then place two Buttoncomponents. Adjust the position as shown below.

Figure 10.1 add and adjust the position of components

   1.  Next, you set properties of components such as the table below
Nama Control 
Properties  
Nilai
Button1 
Text 
NonAktifkan Ctrl + Alt + Del 
Button2 
Text 
Aktifkan Ctrl + Alt + Del 

    2.  Next you add the Project Module, and then on the Project Module that you type thecode below.


 
1
2
3

 
4

 
5 
Module Module1
Public
Sub FungsiTaskManager(ByVal enable As
Boolean)

Dim HKCU As Microsoft.Win32.RegistryKey = 
Microsoft.Win32.Registry.CurrentUser
Dim key As Microsoft.Win32.RegistryKey = HKCU.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System")
key.SetValue("DisableTaskMgr", IIf(enable, 0, 1), Microsoft.Win32.RegistryValueKind.DWord)
End
Sub

End
Module

Keterangan Kode
  • Baris 1 membuat prosedur dengan nama FungsiTaskManager, dan parameter bernama enable, tipe data Boolean
  • Baaris 2 – 3 Masuk ke system registry "HKEY_CURRENT_USER", dengan subkey "Software\Microsoft\Windows\CurrentVersion\Policies\System".
  • Baris 4 – 5 Mengatur status TaskManager, apakah bernilai 0 atau 1. Jika 0 maka TaskManager aktif jika 1 maka TaskManager tidak aktif 

Look like the picture below


Figure 10.2 Active TaskManager

Figure 10.3 Task Manager is not active
3. Then you double-click on Button1, and then type the code like below.




1 
Private
Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click

FungsiTaskManager(False)
End
Sub

Keterangan Kode
  • Baris 1 Menonaktifkan Task Manager dengan member nilai Falsepada prosedur FungsiTaskManager. Dengan begini pada Registry dengan nama DisableTaskManager akan bernilai 1.
      
     4. Your last double-click on button2, and then type the code like below.


1 
Private
Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click

FungsiTaskManager(True)
End
Sub

End
Class

Keterangan Kode
  • Baris 1 Menonaktifkan Task Manager dengan member nilai Truepada prosedur FungsiTaskManager. Dengan begini pada Registry dengan nama DisableTaskManager akan bernilai 0.
if you really want to know can just download this program
Good Lucky!!!!!!

0 komentar:

Posting Komentar

1. Do not forget to comment
2. and comments are both good, yes
3. and hopefully your comments useful to us all

 

Copyright © 2010 Smk Telkom Surabaya