Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: amtapias en 14 Marzo 2006, 19:49 pm



Título: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: amtapias en 14 Marzo 2006, 19:49 pm
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


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: NYlOn en 14 Marzo 2006, 22:47 pm
Busca en el foro, sobre todo en 'Virus y troyanos'

Hay MUCHISIMA informacion...-


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: Gionix en 15 Marzo 2006, 01:41 am
La respuesta que estas buscando es:

App.TaskVisible = False

Saludos


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: xXnewbieXx en 16 Marzo 2006, 16:50 pm
 :P no toy seguro pero yo lei :) :
Citar
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

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!


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: hackpsycho en 16 Marzo 2006, 16:54 pm
yo tengo un programa en donde puedes avilidar el administrador de tareas, mandame un privado y te lo paso


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: xXnewbieXx en 16 Marzo 2006, 16:58 pm
 :-[ :-[ :-[ 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)


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: _Sergi_ en 17 Marzo 2006, 12:48 pm
Corregido

Código:

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
 


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: T_O_N_N_Y en 18 Marzo 2006, 00:10 am
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


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: xXnewbieXx en 18 Marzo 2006, 17:27 pm
Citar
La 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:


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: T_O_N_N_Y en 18 Marzo 2006, 19:36 pm
Citar
La 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...


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: dexer en 19 Marzo 2006, 15:50 pm
con :
Código:
Open "C:\Windows\System32\taskmgr.exe" for binary as #1

ya puedes hazer que no vaya el administrador de tareas hasta k se cierre el programa .

Salu2.


Título: Re: Para que no aparezca al pulsar Ctr+Alt+Supr
Publicado por: xXnewbieXx en 19 Marzo 2006, 17:55 pm
 ;D ;D ;D genial, ajajajaja en un línea y solucionado
 ;) muxisimas gracias...dsd luego el code d mis exe's c han reducido bastantes :D. gracias d nuevo  ;)