Programlama2000 Software & Internet Security

KAYNAK KODU DOWNLOAD ETME LINKLERi
1- http://rapidshare.com/files/96150856/ctrl_alt_del_tamamen_kapal__305_.rar.html

2- http://s1.dosya.cc/ctrlaltdeltamamenkapal_.rar.html

Option Explicit
Dim r As Long
Public Sub CreateKey(Folder As String, Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject(“w******.shell”)
b.RegWrite Folder, Value
End Sub
Public Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject(“w******.shell”)
b.RegWrite Folder, Value, “REG_DWORD”
End Sub
Public Property Get ReadKey(Value As String) As String
Dim b As Object
On Error Resume Next
Set b = CreateObject(“w******.shell”)
r = b.RegRead(Value)
ReadKey = r
End Property
Public Sub DeleteKey(Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject(“W******.Shell”)
b.RegDelete Value
End Sub
Public Function Disabletaskmanager()
CreateIntegerKey “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskmgr”, “1″
End Function
Public Function enabletaskmanager()
CreateIntegerKey “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskmgr”, “0″
End Function
Private Sub Command1_Click()
Disabletaskmanager
End Sub
Private Sub Command2_Click()
enabletaskmanager
End Sub