Para que no aparezca al pulsar Ctr+Alt+Supr

Iniciado por amtapias, 14 Marzo 2006, 19:49 PM

0 Miembros y 1 Visitante están viendo este tema.

amtapias

Hay alguna manera de ocultar un programa que está en ejecución para que no aparezca en la lista de procesos al pulsar Ctr+Alt+Supr

Muchas Gracias

NYlOn

Busca en el foro, sobre todo en 'Virus y troyanos'

Hay MUCHISIMA informacion...-

Gionix

La respuesta que estas buscando es:


App.TaskVisible = False

Saludos

xXnewbieXx

 :P no toy seguro pero yo lei :) :
CitarHay alguna manera de ocultar un programa que está en ejecución para que no aparezca en la lista de procesos al pulsar Ctr+Alt+Supr

y k el task.visible = false lo oculta d las aplicaciones...

en todo caso si a ultimo remedio kiers evitar q c cierre alguna aplicacion usando el administrador d tareas siempre puedes deshabilitarlo.

Código :

Const REG_DWORD = 4 
Const HKEY_CURRENT_USER = &H80000001

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long

Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
   
Dim Ret

    RegCreateKey hKey, strPath, Ret
    RegSetValueExLong Ret, strValue, 0&, REG_DWORD, CByte(strData), 4&
    RegCloseKey Ret

End Sub

Private Sub Form_Load()
'deshabilitarel adm. d tareas sería valor 1 y para habilitarlo 0
strString = "1"
end sub

:-( :-( :-( :-[ :-[ :-[ este codigo lo tengo dsd hace tiempito...y ahora no recuerdo d kien era o d donde lo cogi,  ;D pero ta curioso.

(Estuve buscando x si ste codigo estaba ya posteado y no vi k fuese asi, pero en caso d k haya buscado mal y ya estuvise perdonen ;))

saludos!
Hardware: Lo que golpeas. Software: La causa

Error 943 - El sistema esta funcionando demasiado bien, se caerá para seguir con la rutina...

hackpsycho

yo tengo un programa en donde puedes avilidar el administrador de tareas, mandame un privado y te lo paso


xXnewbieXx

 :-[ :-[ :-[ dios soy malo hasta usando el ctrl+c & el ctrl+v...
una correcion en el codigo k puse antes. hay k poner debajo de  strString = "1" lo siguiente:

SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)
Hardware: Lo que golpeas. Software: La causa

Error 943 - El sistema esta funcionando demasiado bien, se caerá para seguir con la rutina...

_Sergi_

Corregido



Const REG_DWORD = 4 
Const HKEY_CURRENT_USER = &H80000001

'Declaraciones
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long

Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
   
Dim Ret

    RegCreateKey hKey, strPath, Ret
    RegSetValueExLong Ret, strValue, 0&, REG_DWORD, CByte(strData), 4&
    RegCloseKey Ret

End Sub

Private Sub Form_Load()
'Dale valor 1 para habilitar, 0 para deshabilitar
strString = "1"
SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)
End Sub

Proyecto de Ingeniero

T_O_N_N_Y

LOL

La verdad es que el código es la caña para programillas broma, si no fuera porque una vez lo has abierto, aunuqe lo cierres sigue sin mostrar el administrador de tareas... XD

Lo que se podría hacer es poner un button para que directamente al darle cambie el valor de
strString = "1"
por
strString = "0"

XD
Me lo estoy pasando en grande con esto!!! XD

xXnewbieXx

CitarLa verdad es que el código es la caña para programillas broma
:D... jajajaj

y para q broma quieres usar ese code??? jajjaa yo es q ese code lo suelo usar por si necesito q no m cierren alguna aplicación "interesante"  :-X(supongo k t refieres a esas bromillas) ;D ...ya q cuantas + cosas para prevenir mjor... :rolleyes: :rolleyes: :rolleyes:
Hardware: Lo que golpeas. Software: La causa

Error 943 - El sistema esta funcionando demasiado bien, se caerá para seguir con la rutina...

T_O_N_N_Y

Cita de: xXnewbieXx en 18 Marzo 2006, 17:27 PM
CitarLa verdad es que el código es la caña para programillas broma
:D... jajajaj

y para q broma quieres usar ese code??? jajjaa yo es q ese code lo suelo usar por si necesito q no m cierren alguna aplicación "interesante"  :-X(supongo k t refieres a esas bromillas) ;D ...ya q cuantas + cosas para prevenir mjor... :rolleyes: :rolleyes: :rolleyes:

Hombre... pues cuando lo acabe lo subo, es una *****, pero pa la gente qeu no sabe de informatica les ralla mucho...