Mensajes

Pongo el code(yo quiero hacer un screen capture):
Servidor:

Código [Seleccionar] Expandir


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


Cliente:

Código [Seleccionar] Expandir


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


Y nada,0 bytes,antes alemnos me hizo 663 bytes pero ahora 0 y es cierto porque es el valor qeu tiene sdata(1).
No sé que hago mal.
Espero me puedan ayudar.

He probado los 2 codes y no me va,yo lo que quiero es enviar la imagen que capturo,un screen capture pero lo tengo en un timer claro,y me llegan algunos bytes de la imagen no se volveré a probar.

Es una foto peor probaré a partirlo y juntarlo.

Gracias,excellente aporte la de donar el source.
Saludos.

Hola,veran este codigo no me va para hacer lo que quiero,enviar una imagen recibirla,y cargarla en un picture.
Servidor:

Código [Seleccionar] Expandir


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


Cliente:

Código [Seleccionar] Expandir


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")


Aqui debe estar el problema,he probado en vez acces write solo binary y la verdad no se que puede pasar,supongo que todo el code esta bien,lo he hecho yo pero deberia funcionar y no me va.
De antemano muchas gracias.
Saludos.

Mira si esto te sirve: -Aqui-

AppActivate "Conversación" en un timer,con un on error resume next pues eso:

Código [Seleccionar] Expandir


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

Y en un modulo:

Código [Seleccionar] Expandir


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

El timer ponlo el intervalo que quieras,otra cosa,seria bueno que guardase lso caption de las ventanas y comprobase si en x tiempo contestó ya a ese,para no repetir todo el rato por ejemplo si envia 2 mensajes,nosé ahi como veas.
Saludos.

Código [Seleccionar] Expandir


comando >>c:\log.txt

Asi se guarda luego lo abres y lo lees.
Ej:

Código [Seleccionar] Expandir


netstat >>c:\log.txt

Open "c:\log.txt" for input as#1......
El resto ya debes saber(o deberias).
Asi de sencillo.
Saludos.

Gracias!!
Esque es para una notificacion tipo msn(cuando se conecta un contacto).
Y bueno,creo que me sirve pero si hay algo mas sencillo posteenlo.
Gracias a todos.

Como seria eso?