Eliminar

Iniciado por xXnewbieXx, 20 Marzo 2006, 20:05 PM

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

Imprimir
Ir Abajo Páginas1 2
Acciones del Usuario

xXnewbieXx

20 Marzo 2006, 20:05 PM
Hola! :huh: :huh: :huh: hay alguna forma de eliminar una aplicación que esté abierta???

yo hago lo siguiente:

1º) al cargar crea otro exe
2º) abre la copia
3º) c cierra el 1er exe
l4º) la copia verifica el directorio y el nombre y si es = al q está en 1 variable lo cierra...

esto m serviría sino fuese pq si alguien cambia el nombre dl 1er exe ya no m sirve... :(

Si alguien tiene alguna idea o sabe como c podria hacer... :P

saludos!!! ;)

Hardware: Lo que golpeas. Software: La causa

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

UTU

#1
20 Marzo 2006, 21:44 PM
Aver si te sirve, este código lo que hace es que al correr tu programa se copia en el lugar que elijas y se cierra el primer programa.
En pocas palabras el programa siempre se ejecuta en la dirección.

Código:

Citar'-Correr Archivo-------------------------------------------------------------------------
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'----------------------------------------------------------------------------------------------
Dim NuevaDireccionEjecutar As String
Dim DireccionEjecutado As String
Dim CorrerExe As Long

'-Crea otro .exe en otro lado ------------------------------------------------------------------
On Error Resume Next
'-Dirección Donde se Esta Ejecutando
DireccionEjecutado = App.Path & "\" & App.EXEName & ".exe"
'-Dirección Donde Se Copiara Para Ejecutar (aca pones donde se copiara)
NuevaDireccionEjecutar = "C:\WINDOWS\SYSTEM\Nuevo.exe"
'-Copiando Se al Lugar Donde Se ejecutara
FileCopy DireccionEjecutado, NuevaDireccionEjecutar
'---------------------------------------------------------------------------------------------

'-----Para Que se ejecute Siempre  el Nuevo Archivo------------------------------
If DireccionEjecutado = NuevaDireccionEjecutar Then
'Correr este Normalmente
Else
'Cerrar este .Exe y Ejecutar el Nuevo .Exe"
CorrerExe = ShellExecute(Me.hwnd, "Open", NuevaDireccionEjecutar, "", "", 1)
End
End If
'---------------------------------------------------------------------------------------------

Prison Break desde Google Earth pone las coordenadas:  41 32 48.24 N 88 04 22.86 W

Hendrix

#2
20 Marzo 2006, 21:54 PM
Te dare un ejemplo "casero" pero que deja 0 huellas....

Open "C:\destroy.bat" For Output As #1
Print #1, "@echo off"
Print #1, "ping 127.0.0.1 -n 2" ' <--- Esto espera 2 segundos
Print #1, "del /s /q " & App.Path & "\" & App.EXEName & ".exe"
Print #1, "del /s /q %0" '<-- se autoelimina el .bat
Print #1, "exit"
Close #1
Shell ("C:\destroy.bat"), vbHide
End

Asi no kedaria ni rastro del programa... ;) ;)

Salu2

Hendrix

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

xXnewbieXx

#3
21 Marzo 2006, 16:51 PM
gracias UTU pero es muy similar al q hice :( y en el d punk rock tengo 1 duda...veo q pones .bat (perdonen mi ignoracia :-[) pero he visto eso en algunos post y aun no entiendo q es .bat :rolleyes:
...si m pudieran explikar :rolleyes: :P
Hardware: Lo que golpeas. Software: La causa

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

Hendrix

#4
21 Marzo 2006, 17:19 PM
Un .bat es un archivo por Lotes, lo que ahce es trabajar kon el MS-dos. Un archivo .bat se kompono por komandos de MS-DoS, a mi el lenguaje .bat me gusta mucho, se pueden hacer kosas interesantes kon el.

Si no entiendes el kode te lo puedo explikar todo.... ;) ;) ;)

Salu2

Hendrix

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

xXnewbieXx

#5
21 Marzo 2006, 19:18 PM
 :P pues si no t importa t lo agradeceria Punk-rock
Hardware: Lo que golpeas. Software: La causa

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

Hendrix

#6
21 Marzo 2006, 19:55 PM
Wamos a ver, esto es el kode del .bat:

@echo off
ping 127.0.0.1 -n 2
del /s /q C:\worm.exe
del /s /q %0
exit

Weno, ahora te lo expliko line a alinea:

Código [Seleccionar]
@echo off

Lo que hace esto es que no salga la "introduccion" por la pantalla.

Código [Seleccionar]
ping 127.0.0.1 -n 2

Si vas al MS-DOS y pones esto: ping /? te saldra la ayuda sobre este komando.

el -n 2 actia komo un "timer", que lo que hace es que envie pings kada segundo hasta llegar a 2 (exactamente no es asi, pero para que lo entiendas.

Utilizo esto para que la aplikacion le de tiempo a cerrarse.

Código [Seleccionar]
del /s /q C:\worm.exe

Lo que hace esto es eliminar nuestro Worm. lo de /s /q es para que no pida konfirmacion y lo borre directamente.

Código [Seleccionar]
del /s /q %0

Lo que hace esto es eliminar el propio .bat, los .bats tienen una kualidad, y es que ellos mismos si se pueden borrar.

Código [Seleccionar]
exit

Sirve para salir del programa.

Espero que lo hayas entendido.

Salu2

Hendrix

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

xXnewbieXx

#7
21 Marzo 2006, 20:48 PM
 ;D ;D ;D ahora si ksi, muxisimas gracias  ;) ;) ;)
Hardware: Lo que golpeas. Software: La causa

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

Hendrix

#8
21 Marzo 2006, 20:54 PM
jejeje de nada hombre.... ;) ;) ;)

Salu2

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

hackpsycho

#9
23 Marzo 2006, 05:30 AM
entonces con lo que dijo Hendrix, si se pude cerrar una aplicacion en el administrador de tareas???
o que esta en aplicacion?

Imprimir
Ir Arriba Páginas1 2
Acciones del Usuario