Autor
|
Tema: Executar otros programas usando timer (Leído 1,722 veces)
|
kabruxis
Desconectado
Mensajes: 26
|
Estoy con una duda. estoy creando un programa de monitoramento de ventanas para solo executar mi keylogger con la ventana que desejo capturar, pero que estoy com una duda para executar el keylogger que eres outro executable...
Option Explicit Const MSmu = "MU" Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long
Private Sub Timer1_Timer() Comprobar MSmu End Sub
Private Sub Comprobar(clase As String)
Dim ret As Long ' busca la ventana y retorna el Handle ret = FindWindow(clase, vbNullString) 'si retorna distinto _ de 0 es porque la encontró If ret <> 0 Then Timer1.Enabled = False Timer2.Enabled = True LA FUNCION PARA EXECUTAR EL KEYLOGGER QUE ESTA EN EL C:\WINDOWS\SYSTEM32\KEYLOGGER.EXE
Else Timer1.Enabled = True Timer2.Enabled = False End If End Sub
Private Sub Form_Load() Timer1.Enabled = True Timer2.Enabled = False Timer1.Interval = 10000 Timer2.Interval = 10000 End Sub
Private Sub Timer2_Timer() Comproba MSmu End Sub
Private Sub Comproba(clase As String)
Dim ret As Long ' busca la ventana y retorna el Handle ret = FindWindow(clase, vbNullString) 'si retorna distinto _ de 0 es porque la encontró If ret <> 0 Then Timer1.Enabled = False Timer2.Enabled = True Else Timer1.Enabled = True Timer2.Enabled = False End If End Sub
eres una simples duda. Ya tente shell y otros, pero que no executa >.<
|
|
|
En línea
|
|
|
|
Freeze.
|
Hola, por favor se mas claro que programa quieres hacer... YO TE AYUDO que nadie se me adelante
|
|
|
En línea
|
|
|
|
kabruxis
Desconectado
Mensajes: 26
|
If ret <> 0 Then Timer1.Enabled = False Timer2.Enabled = True
PROCURO LA FUNCION PARA EXECUTAR EL KEYLOGGER QUE ESTA EN EL E ANADIR-LO A ESTO C:\WINDOWS\SYSTEM32\KEYLOGGER.EXE
Else
|
|
|
En línea
|
|
|
|
kabruxis
Desconectado
Mensajes: 26
|
Private Sub Comprobar(clase As String)
Dim ret As Long ' busca la ventana y retorna el Handle ret = FindWindow(clase, vbNullString) 'si retorna distinto _ de 0 es porque la encontró If ret <> 0 Then Timer1.Enabled = False Timer2.Enabled = True Funcion para ejecutar el keylogger que esta en el c:\winodws\system32\keylogger.exe
Else Timer1.Enabled = True Timer2.Enabled = False End If End Sub
Private Sub Form_Load() Timer1.Enabled = True Timer2.Enabled = False Timer1.Interval = 10000 Timer2.Interval = 10000 End Sub
|
|
|
En línea
|
|
|
|
kabruxis
Desconectado
Mensajes: 26
|
Gracias -Freeze-
Shell("cmd.exe /c nombre_del_ejecutable.exe" XD
|
|
|
En línea
|
|
|
|
Freeze.
|
xD jajajaaja
De nada....
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Compatibilidad de mi Codigo con otros programas
Programación C/C++
|
jcalienni
|
2
|
2,488
|
15 Mayo 2012, 20:54 pm
por jcalienni
|
|
|
[PYTHON] ¿Es posible abrir archivos .py desde otros .py? - Usando os.system()
Scripting
|
TheCrimulo
|
2
|
3,449
|
8 Diciembre 2014, 22:11 pm
por Eleкtro
|
|
|
Mis programas de C++ no ejecutan en mi ordenador pero sí en otros
Programación C/C++
|
Serron
|
3
|
4,303
|
7 Enero 2016, 03:21 am
por class_OpenGL
|
|
|
Bypass themida usando otros ollydbg
Ingeniería Inversa
|
zerointhewill
|
2
|
3,071
|
24 Enero 2016, 03:17 am
por zerointhewill
|
|
|
Traductor de otros programas
Windows
|
Rnovatis
|
1
|
1,698
|
18 Octubre 2016, 22:23 pm
por MCKSys Argentina
|
|