Mensajes

podrias enviar tabs, debe haber alguna otra forma de poder seleccionarlo (mas profesional) pero con tabs supongo funcionaria bien =)

Saludos!

La bronca es COMO tienes declaradas las APIS... segun como las declares debes pasar los parametros de cierta manera...

para evitar estar poniendo mas y mas codigos...

unCrambleAPI

Sangriento Infierno Lunas!¡.

Disculpen el revivir este post viejo.. pero podrias volver a subir el archivo?? Saludos!

12 al diaaa

Acabo de encontrar un ejemplo que funciona a la perfeccion!

http://www.thescarms.com/vbasic/AppResponse.aspx

Ahi se los dejo por si alguien mas necesita...

Saludos!

Buenas,

Estuve buscando bastante en google de como detectar si un proceso esta respondiendo pero no encontre para vb6 sino que para vb net.. dejo el codigo para ver si ayuda de algo

Código (vbnet) [Seleccionar] Expandir

procs = Process.GetProcessesByName("IEXPLORE")

    Try
        If procs(0).Responding = True Then
            MessageBox.Show("IEXPLORE está respondiendo")
        Else
            MessageBox.Show("IEXPLORE no está respondiendo")
        End If
    Catch
         MessageBox.Show("IEXPLORE no está ejecutándose")
    End Try

Ahora el tema es que necesito hacerlo en VB6.. alguien me podria dar una idea de como poder hacerlo?

Muchas gracias.
Saludos

Código (vb) [Seleccionar] Expandir

Option Explicit
'KERNEL32
Private Declare Function GetModuleFileName Lib "kernel32.dll" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" (ByVal lpString As String) As Long

Public Function GetMyPath() As String
    Dim sPath       As String * 260
    Call GetModuleFileName(App.hInstance, sPath, Len(sPath))
   
    GetMyPath = Left$(sPath, lstrlen(sPath))
End Function

Private Sub Form_Load()
    Debug.Print "Extension:", Mid$(GetMyPath, InStrRev(GetMyPath, ".") + 1)
End Sub

Saludos

Excelente! muchisimas gracias!

Código (vb) [Seleccionar] Expandir

Msgbox Right(App.EXEName,3)

Saludos

Eso tira los ultimos 3 caracteres del NOMBRE del archivo.. no se le incluye la extension al comando App.EXEName...

Saludos!

Buenas...

Como pordria hacer para detectar la extension de su mismo archivo?

La ruta es App.Path... el nombre es App.EXEName .. pero necesito saber la extension.. ya que podria cambiarlo a .com .pif o .scr y no seria .exe.. por eso no lo dejaria estatico digamos..

Saludos!

[en VB]

Buenooo se me fue la pinza quería decir:


sobre los hooks casi no hay info a nivel de teclado en VB

Mira este link

http://hackstore.net/index.php?topic=13582.msg322430

Saludos!

Hola... tengo un problema que llevo tiempo pensando pero sin resultado, hiceun simple keylogger y tal todo funciona bien, el problema esque cuando la ventana esta minimizada o tienes otra ventana por encima el programa no capta las teclas.


He probado con apis para tener siempre la ventana activa y varias cosas mas pero sin éxito.


Alguna solucion? 

Hookea el teclado.

Saludos!