Visual Basic Foro

En principio no tendria que pasar nada, pero hay varias cosas que no son eficientes, uno lo que comentaba Albertomi de castear datos, ademas de eso tenes que tener en cuenta de un tipo de dato string ocupa mucho mas memoria que un double, el double son 8 bytes y un string en VB son 4 + 4 + 1 * chars + 1.
Todo esto sin tener en cuanta que en muchos casos podrias necesitar hacer calculos con los datos.

Si se puede hacer, pero no directamente, necesitas un driver, por ejemplo WinPcap, USBPcap como usa el wireshark. El problemita con WinPcap es que usa cdecl asi que tenes que usar una clase para llamar a las funciones de la libreria, la verdad hice un ejemplo que postie en HackHound pero dudo que siga ahi.

Hablando de TCP el temita no es simple, porque aparte de lidiar con los adaptadores y demas tenes que intepretar los frames etc. es mucho laburo y es complicado si no la tenes clara con esas cosas. El c0c0 seguramente sabe mas del tema de USB.

C0c0 donde andas?
 

Option Explicit

Private Declare Function PathCleanupSpec Lib "Shell32.dll" (ByVal pszDir As Long, ByVal pszSpec As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

Private Sub Form_Load()
    Dim sFile As String
    sFile = "\asdf*.txt"
    Call PathCleanupSpec(0, StrPtr(sFile))
    Debug.Print Left$(sFile, lstrlen(sFile))
End Sub


Eso lo entiendo wolf_kof, el post trata de cualdo llamas a una funcion con un parametro byref entre parentesis, mira el ejemplo inicial para ver lo que digo.

Ejecuten el codigo y vean lo que pasa...alquien tiene idea de porque hace eso?

Option Explicit

Private Sub Form_Load()
    Dim sVal As String

    sVal = "123123"
    Test (sVal)
    Debug.Print sVal

    sVal = "123123"
    Call Test(sVal)
    Debug.Print sVal

    sVal = "123123"
    Test sVal
    Debug.Print sVal

End Sub

Private Function Test(ByRef sVal As String)
    sVal = "ByRef"
End Function


No se si hay un api para hacer esto, me parece que cuando alguna app usa la camara esta crea un handle (no puedo testearlo aca) pero si es asi podes usar NtQuerySystemInformation y NtQueryObject para enumerarlos y buscar si esta abierto.

Otra es usar el api para la camara.. no tengo una aca asi que no puedo testearlo.

Buenas, tengo una pregunta, necesito pasar parametros a un sub reporte en crystal, alguien me puede guiar?, para pasar paramtros directamente a un reporte no tengo problema pero ni idea de como hacerlo cuando el reporte tiene sub reportes.

basicamente le paso de vb un ID al reporte de crystal, este a su vez tiene varios sub reportes que me gustaria que recibieran ese ID.

Gracias