elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problemas con funciones, no cumplen lo especifico...
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problemas con funciones, no cumplen lo especifico...  (Leído 1,469 veces)
|SMT|

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Problemas con funciones, no cumplen lo especifico...
« en: 19 Octubre 2013, 01:37 am »

Saludos, bueno mi problema es el siguiente tengo dos funciones las cuales al llamarlas tal cual como están no ejecutan lo deseado, pero, al agregar un Msgbox a la secuencia la misma si ejecuta los mismos...
E llegado a pensar que es por la "velocidad" en la cual se procesa los comandos (o eso creo) que no le da tiempo de procesarlas, intente usar DoEvents y otra funcion pero obtuve el mismo resultado que al comienzo un error, solo pude solventarlo con un Msgbox.

Mi aplicacion tiene que estar en "modo hide" por ende no puedo permitir ningun Msgbox y si lo usara al usarlo y la persona no darle "aceptar" o cierre el Msgbox el programa no sigue, que puedo hacer en este caso?

Funciones:

Código:
Public Function DCCSendFile(ByVal fPath As String) As Boolean
Dim FileSize As Long
Dim DataSend As Long
Dim buffer As String
Dim Bsize As Long
    Bsize = 1024
    
Open fPath For Binary Access Read As #1
    FileSize = LOF(1)
    Do Until EOF(1)
    'DoEvents
        If FileSize - Loc(1) <= Bsize Then
            Bsize = FileSize - Loc(1)
        End If
        If Bsize = 0 Then
            Exit Do
        End If
        
        DataSend = DataSend + Bsize
        buffer = Space$(Bsize)
        Get #1, , buffer
        'DoEvents
        wsfile.SendData buffer
    Loop
    MsgBox ("LISTO") ' Al quitar este Msgbox la funcion no guarda bien la imagen.
    DoEvents
    IRC_SendMessage "...", "DataSend: " & DataSend & " FileSize: " & FileLen(fPath) & " FileLOF: " & LOF(1)
    DoEvents
Close #1
wsfile.Close
DCCSendFile = True
End Function

Código:
Public Function m_SavePicture(ByVal Path As String) As Boolean
    Clipboard.Clear
      
    Call keybd_event(44, 1, 0&, 0&)
      
    ' DoEvents ' No hace diferencia

    MsgBox ("...") ' Al quitar este la funcion no procesa la captura
    If Clipboard.GetFormat(vbCFBitmap) Then
        SavePicture Clipboard.GetData(vbCFBitmap), Path
        m_SavePicture = True
    Else
        m_SavePicture = False
    End If
End Function

Saludos, Gracias..


« Última modificación: 19 Octubre 2013, 01:40 am por |SMT| » En línea

burbu_1

Desconectado Desconectado

Mensajes: 159


hamen gaoz


Ver Perfil
Re: Problemas con funciones, no cumplen lo especifico...
« Respuesta #1 en: 19 Octubre 2013, 16:25 pm »

entiendo que se trata de una aplicación cliente-servidor que envía un archivo....

si es así, yo tuve la misma comida de tarro y es por lo que piensas. Tu aplicación envía tan rápido los paquetes, que acaba petando de información el socket..... y lo que manda mientras está lleno.... se pierde  :o :o :o

una solución es que una vez recibido un paquete, el remoto pida el siguiente...... es más lento pero no falla  ;D

tambien hay alguna api para que windows se ocupe de todo.....
http://msdn.microsoft.com/en-us/library/windows/desktop/ms740565%28v=vs.85%29.aspx

disculpa si lo que te dije no tiene nada que ver con tu duda.... :D

saludos


En línea

|SMT|

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Re: Problemas con funciones, no cumplen lo especifico...
« Respuesta #2 en: 19 Octubre 2013, 18:43 pm »

entiendo que se trata de una aplicación cliente-servidor que envía un archivo....

si es así, yo tuve la misma comida de tarro y es por lo que piensas. Tu aplicación envía tan rápido los paquetes, que acaba petando de información el socket..... y lo que manda mientras está lleno.... se pierde  :o :o :o

una solución es que una vez recibido un paquete, el remoto pida el siguiente...... es más lento pero no falla  ;D

tambien hay alguna api para que windows se ocupe de todo.....
http://msdn.microsoft.com/en-us/library/windows/desktop/ms740565%28v=vs.85%29.aspx

disculpa si lo que te dije no tiene nada que ver con tu duda.... :D

saludos

Dudo que pueda ya que trabaja con canales IRC no con aplicaciones hechas por mi (El server solamente)... Vere que efecto tiene esa API pero el problema sigue siendo igual con la funcion de capturar la pantalla...
Esperare otra respuesta a ver!
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problemas con las funciones printf y exit en Dev C++ « 1 2 »
Programación C/C++
kichan 10 23,301 Último mensaje 16 Abril 2012, 21:31 pm
por urielseptim007
Problemas al capturar paquetes de un canal específico
Hacking Wireless
pasteles 0 2,653 Último mensaje 17 Agosto 2010, 14:33 pm
por pasteles
Se cumplen 15 años del nacimiento de Hotmail
Noticias
wolfbcn 2 2,987 Último mensaje 6 Julio 2011, 03:12 am
por Jirp96
Problemas C de funciones , recursividad
Programación C/C++
Ateius 5 3,669 Último mensaje 4 Marzo 2012, 13:50 pm
por Xandrete
Hoy se cumplen 27 años del lanzamiento de Windows 1.0
Noticias
wolfbcn 0 1,261 Último mensaje 21 Noviembre 2012, 01:11 am
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines