Mensajes

jejeje de nada hombre....

Salu2

oka, me imagino que si, jejejeje gracias por el kode....

Salu2

Hendrix

Muchas gracias, ya estoy cerka de lo que quiero....

Ahora komo se hacria para que me diga si hay alguna palabra del List1 que kontenga la palabra notas (por ejemplo)????

Muchas gracias NYlon!!!!!

Salu2

Hendrix

jejeje ya lo se, no siempre koinciden (aunke en el kav si que koinciden).

Weno, pos no se komo se puede parar un servicio....

Estare pendiente de este post, ya que a mi tambien me interesa la respuesta....

Salu2

xD xD y tu kieres hacer un Centinela para la cam??? xD xD

Weno, te lo expliko, lo que hace este programa es abrir las dos imagenes que kieres mirar si son iguales, las abre en binario.

Luego las kompara, si son iguales te dice: son iguales, y si no lo son te dice: no son iguales...xD

Lo entienes???? es muy facil....

Salu2

Hendrix

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] Expandir

@echo off

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

Código [Seleccionar] Expandir

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] Expandir

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] Expandir

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] Expandir

exit

Sirve para salir del programa.

Espero que lo hayas entendido.

Salu2

Hendrix

Para matar un sistem prueba esto:

net stop "nombredelproceso"

Salu2

Hendrix

Si que se puede, te paso el kode:

Código [Seleccionar] Expandir

Dim a As String
Dim b As String
Dim Rutaimagen As String
Dim Rutaimagen2 As String
Rutaimagen = "C:\image.jpg"
Open Rutaimagen For Binary As #1
a = Space(FileLen(Rutaimagen))
Get #1, , a
Close #1

Open Rutaimagen2 For Binary As #1
b = Space(FileLen(Rutaimagen2))
Get #1, , b
Close #1

If a = b Then
MsgBox "Estas Imagenes son iguales"
Else
MsgBox "Estas imaganes son diferentes"
End If

Espero ek te sirva....

Salu2

Hendrix

Komo te akaba de decir nylon, esto podria ser un Killer, pero tambien se puede hacer kon APIs. Yo konsigo llegar hasta que mata los Archivos, lo que no se hacer despeus es eliminiar los archivos matados, ya que no se var desde donde estan ejekutados.

Salu2

Lo que no se hacer es listar las ventanas....

Gracias por kontestar....

Salu2

Hendrix