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

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Detectar Product ID y Vendor ID de un Pen Drive
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Detectar Product ID y Vendor ID de un Pen Drive  (Leído 5,080 veces)
Fabricio

Desconectado Desconectado

Mensajes: 115


Ver Perfil
Detectar Product ID y Vendor ID de un Pen Drive
« en: 20 Enero 2009, 16:04 pm »

Hola a todos alguien tiene un codigo para detectar el  Product ID y Vendor ID de un Pen Drive con VB 6 por que lo que encontre en la web no me funca o no lo entiendo (soy bastante nuevo en programacion)
muchas gracias
un saludo


En línea

ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: Detectar Product ID y Vendor ID de un Pen Drive
« Respuesta #1 en: 20 Enero 2009, 18:54 pm »

Hola a todos alguien tiene un codigo para detectar el  Product ID y Vendor ID de un Pen Drive con VB 6 por que lo que encontre en la web no me funca o no lo entiendo (soy bastante nuevo en programacion)
muchas gracias
un saludo

Postea que encontraste...


En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
Fabricio

Desconectado Desconectado

Mensajes: 115


Ver Perfil
Re: Detectar Product ID y Vendor ID de un Pen Drive
« Respuesta #2 en: 21 Enero 2009, 12:35 pm »

ya lo subo un saludo
En línea

Fabricio

Desconectado Desconectado

Mensajes: 115


Ver Perfil
Re: Detectar Product ID y Vendor ID de un Pen Drive
« Respuesta #3 en: 21 Enero 2009, 12:40 pm »

el codigo que arme costa de un modulo y dos frm

en el frm va esto

Código
  1. Option Explicit
  2.  
  3. Dim matriz_Volume(1 To 26, 1 To 26) As String
  4. Dim matriz_ESN(1 To 26) As String
  5.  
  6.  
  7.  
  8. Private Sub cmdExtraer_Click()
  9.  
  10. If lst1.ListIndex > -1 Then
  11.  
  12.    EjectDevice (lst1.List(lst1.ListIndex))
  13.    lst1.RemoveItem (lst1.ListIndex)
  14.    lst1.Refresh
  15. Else
  16.    MsgBox "No hay dispositivos USB instalados"
  17. End If
  18.  
  19.  
  20. End Sub
  21.  
  22. Private Sub Form_Load()
  23.    'LocalDrives
  24.    'HookForm Me.hwnd
  25.    'Dame_Unidad_USB
  26.    'Numero_de_Serie
  27.    'Mostrar
  28.  
  29. End Sub
  30.  
  31.  
  32. Private Sub Form_Unload(Cancel As Integer)
  33.    UnHookForm Me.hwnd
  34. End Sub
  35.  
  36.  
  37. Private Sub cmdDetectar_Click()
  38.  
  39. Call Dame_Unidad_USB
  40. Call Numero_de_Serie
  41. Call Mostrar
  42.  
  43. End Sub
  44.  
  45.  
  46. Public Sub Numero_de_Serie()
  47.  
  48.    Dim Disco As Object
  49.    Dim cadena As String
  50.    Dim largo As Integer
  51.    Dim contador As Integer
  52.    Dim i As Integer
  53.    Dim posicion As Integer
  54.    Dim resultado As String
  55.    Dim largo_Res As Integer
  56.    Dim contador2 As Integer
  57.    Dim j As Integer
  58.    Dim posicion2 As Integer
  59.    Dim ESN As String
  60.    Dim k As Integer
  61.  
  62.    k = 1
  63. With GetObject("WinMgmts:")
  64.  
  65.    For Each Disco In .InstancesOf("Win32_DiskDrive") ' 3 objetos 2 usb + ide
  66.  
  67.        If Disco.InterfaceType = "USB" Then ' detecto si son usb
  68.  
  69.            cadena = Disco.PNPDeviceID 'tiene embebido el ESN
  70.  
  71.  
  72.            largo = Len(cadena)
  73.            contador = 0
  74.  
  75.            For i = largo To 1 Step -1
  76.  
  77.                posicion = InStr(i, cadena, "\")
  78.                contador = contador + 1
  79.  
  80.                If posicion > 0 Then
  81.                    resultado = Right(cadena, contador - 1)
  82.                    Exit For
  83.  
  84.                End If
  85.            Next
  86.  
  87.            largo_Res = Len(resultado)
  88.            contador2 = 0
  89.  
  90.            For j = largo_Res To 1 Step -1
  91.                posicion2 = InStr(j, resultado, "&")
  92.                contador2 = contador2 + 1
  93.  
  94.                If posicion2 > 0 Then
  95.                    ESN = Left(resultado, largo_Res - contador2)     'resultado2 = Left(resultado, largo_Res - contador2)
  96.                    matriz_ESN(k) = ESN
  97.                    k = k + 1
  98.                    'lst1.AddItem ESN
  99.                    Exit For
  100.                End If
  101.  
  102.            Next
  103.  
  104.    End If ' cierra el primer if el q detecta usb
  105.  
  106.    Next ' cierra el for q recorre los objetos
  107.  
  108. End With
  109.  
  110. End Sub
  111.  
  112.  
  113.  
  114. Public Sub Dame_Unidad_USB()
  115.  
  116.    Dim NumDisco As Integer
  117.    Dim StrDisco As String
  118.    Dim ret As Long
  119.    Dim letra_Unidad As String
  120.    Dim numero_Volume As Long
  121.    Dim bandera As Boolean
  122.    'Dim matriz_Volume(0 To 25, 0 To 25) As String
  123.    Dim i As Integer
  124.  
  125.  
  126.    lst1.Clear
  127.  
  128.    bandera = False
  129.    i = 1
  130.  
  131.    For NumDisco = 0 To 25
  132.  
  133.        StrDisco = Chr(NumDisco + 65) & ":\"   'convierte  a char c/numero del bucle esta es la letra a verificar
  134.        If NumDisco = 0 Then
  135.            ret = GetDriveType(StrDisco)
  136.        ElseIf NumDisco > 0 And GetDriveType(StrDisco) = 2 Then ' si pasa x este if se detecto un USB
  137.            ret = 7
  138.  
  139.            letra_Unidad = StrDisco
  140.            numero_Volume = GetVolumeNumber(StrDisco)    'obtengo el numero de volumen         'lESNUnidad = GetVolumeNumber(StrDisco)
  141.            matriz_Volume(i, 1) = letra_Unidad
  142.            matriz_Volume(i, 2) = Hex(numero_Volume)
  143.            i = i + 1
  144.            'MsgBox matriz_Volume(1, 1) & matriz_Volume(1, 2)
  145.            'lst1.AddItem matriz_Volume(i, 1) & matriz_Volume(i, 2) & matriz_Volume(i, 3)
  146.            'lst1.AddItem letra_Unidad & " " & Hex(numero_Volume)
  147.  
  148.            bandera = True
  149.        ElseIf NumDisco > 0 And GetDriveType(StrDisco) <> 2 Then
  150.            ret = GetDriveType(StrDisco)
  151.        End If
  152.    Next
  153.  
  154.    If bandera = False Then
  155.        MsgBox "No hay dispositivos USB instalados"
  156.    End If
  157.  
  158.  
  159. End Sub
  160.  
  161. Public Sub Mostrar()
  162. Dim i As Integer
  163. For i = 1 To 26
  164.    lst1.AddItem matriz_Volume(i, 1) & " " & matriz_ESN(i) & " " & matriz_Volume(i, 2)
  165. Next
  166. End Sub
  167.  
  168.  
  169. Function GetVolumeNumber(strDrive As String) As Long ' obtengo el numero de volumen de la letra q le paso
  170.  
  171. Dim SerialNum As Long
  172. Dim res As Long
  173. Dim Temp1 As String
  174. Dim Temp2 As String
  175.  
  176. Temp1 = String$(255, Chr$(0))
  177. Temp2 = String$(255, Chr$(0))
  178.  
  179. res = GetVolumeInformation(strDrive, Temp1, _
  180. Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
  181. GetVolumeNumber = SerialNum
  182.  
  183.  
  184. End Function

en el modulo Module 1 va este codigo

Código
  1. Option Explicit
  2.  
  3. Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
  4.  
  5. 'Declare Function GetSerialNumber Lib "kernel32.dll" (ByVal sDrive As String) As Long
  6.  
  7. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  8. Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  9. Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
  10.  
  11. Public Declare Function GetLogicalDrives Lib "kernel32" () As Long
  12. Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
  13.  
  14. Public Type DEV_BROADCAST_HDR
  15.    dbch_size As Long
  16.    dbch_devicetype As Long
  17.    dbch_reserved As Long
  18. End Type
  19.  
  20. Public Const GWL_WNDPROC = -4
  21. Public Const WM_DEVICECHANGE As Long = 537              'Cambios en un dispositivo
  22. Public Const DBT_DEVICEARRIVAL As Long = 32768          'Cuando se conecta uno nuevo
  23. Public Const DBT_DEVICEREMOVECOMPLETE As Long = 32772   'Cuando se desconecta uno
  24. Public Const DBT_DEVTYP_VOLUME As Integer = 2           'Logical volume, cualquier unidad de almacenamiento nueva.
  25.  
  26. Dim PrevProc As Long
  27. Dim lArray() As String
  28.  
  29. Public Sub HookForm(hwnd As Long)
  30.    PrevProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
  31. End Sub
  32.  
  33. Public Sub UnHookForm(hwnd As Long)
  34.    SetWindowLong hwnd, GWL_WNDPROC, PrevProc
  35. End Sub
  36.  
  37. Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  38.    WindowProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
  39.    If uMsg = WM_DEVICECHANGE Then
  40.        If wParam = DBT_DEVICEARRIVAL Then
  41.            Dim dev As DEV_BROADCAST_HDR
  42.            CopyMemory dev, ByVal lParam, 12
  43.            If dev.dbch_devicetype = DBT_DEVTYP_VOLUME Then
  44.                'Mostramos la letra de la ultima unidad de almacenamiento conectada
  45.                'MsgBox USBConected
  46.                Form1.lst1.Clear
  47.                Call Detectar
  48.  
  49.            End If
  50.        ElseIf wParam = DBT_DEVICEREMOVECOMPLETE Then
  51.            'Si se desconecta alguno volvemos ha hacer toda la lista.
  52.            'LocalDrives
  53.            Call Remover
  54.  
  55.        End If
  56.    End If
  57. End Function
  58.  
  59. Public Function USBConected() As String
  60.    Dim hVolume As Long, i As Integer, b As Integer, find As Boolean
  61.    hVolume = GetLogicalDrives()
  62.    For i = 0 To 25
  63.        If (hVolume And 2 ^ i) <> 0 Then
  64.            For b = 0 To UBound(lArray)
  65.                If lArray(b) = Chr(i + 65) Then find = True: Exit For
  66.            Next b
  67.            If find = False Then
  68.                ReDim Preserve lArray(UBound(lArray) + 1)
  69.                lArray(UBound(lArray)) = Chr(i + 65)
  70.                USBConected = Chr(i + 65) & ":"
  71.                Exit Function
  72.            End If
  73.        End If
  74.        find = False
  75.    Next i
  76. End Function
  77.  
  78. Public Sub LocalDrives()
  79.    Dim hVolume As Long, count As Integer, i As Integer
  80.    Erase lArray
  81.    count = 0
  82.    hVolume = GetLogicalDrives()
  83.    For i = 0 To 25
  84.        If (hVolume And 2 ^ i) <> 0 Then
  85.            ReDim Preserve lArray(count)
  86.            lArray(count) = Chr(i + 65)
  87.            count = count + 1
  88.        End If
  89.    Next i
  90. End Sub
  91.  
  92. Public Sub Remover()
  93. If Form1.lst1.ListIndex > -1 Then
  94.  
  95.    EjectDevice (Form1.lst1.List(Form1.lst1.ListIndex))
  96.    Form1.lst1.RemoveItem (Form1.lst1.ListIndex)
  97.    Form1.lst1.Refresh
  98. Else
  99.    MsgBox "No hay dispositivos USB instalados"
  100. End If
  101. End Sub
  102.  
  103. Public Sub Detectar()
  104.  
  105.    Dim NumDisco As Integer
  106.    Dim StrDisco As String
  107.    Dim ret As Long
  108.    Dim lESNUnidad As Long
  109.    Dim bandera As Boolean
  110.  
  111.  
  112.    bandera = False
  113.    For NumDisco = 0 To 25
  114.        StrDisco = Chr(NumDisco + 65) & ":\"   ' combierte  a char c/numero del bucle
  115.        If NumDisco = 0 Then
  116.            ret = GetDriveType(StrDisco)
  117.        ElseIf NumDisco > 0 And GetDriveType(StrDisco) = 2 Then ' si pasa x este if se detecto un USB
  118.            ret = 7
  119.            lESNUnidad = GetVolumeNumber(StrDisco)
  120.            Form1.lst1.AddItem StrDisco & " " & Hex(lESNUnidad)
  121.            bandera = True
  122.        ElseIf NumDisco > 0 And GetDriveType(StrDisco) <> 2 Then
  123.            ret = GetDriveType(StrDisco)
  124.        End If
  125.    Next
  126.  
  127.    Form1.lst1.AddItem "--------------------------------------------------"
  128.  
  129.  If bandera = False Then
  130.    Form1.lst1.Clear
  131.    MsgBox "No hay ningun dispositivo USB detectado"
  132.  End If
  133. End Sub
  134.  
  135. Function GetVolumeNumber(strDrive As String) As Long
  136.    Dim SerialNum As Long
  137.    Dim res As Long
  138.    Dim Temp1 As String
  139.    Dim Temp2 As String
  140.  
  141.    Temp1 = String$(255, Chr$(0))
  142.    Temp2 = String$(255, Chr$(0))
  143.  
  144.    res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
  145.    GetVolumeNumber = SerialNum
  146. End Function
  147.  

en el otro modulo llamado modDevEject va este codigo

Código
  1. Option Explicit
  2.  
  3. Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
  4. Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
  5. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  6. Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Any) As Long
  7.  
  8. Private Const HKEY_LOCAL_MACHINE        As Long = &H80000002
  9. Private Const KEY_QUERY_VALUE           As Long = &H1
  10. Private Const KEY_ENUMERATE_SUB_KEYS    As Long = &H8
  11. Private Const KEY_NOTIFY                As Long = &H10
  12. Private Const SYNCHRONIZE               As Long = &H100000
  13. Private Const STANDARD_RIGHTS_READ      As Long = &H20000
  14. Private Const KEY_READ                  As Long = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
  15. Private Const ERROR_SUCCESS             As Long = 0&
  16.  
  17. Private Declare Function CM_Request_Device_EjectA Lib "setupapi.dll" (ByVal hDevice As Long, lVetoType As Long, lpVetoName As Any, ByVal cbVetoName As Long, ByVal dwFlags As Long) As Long
  18. Private Declare Function CM_Locate_DevNodeA Lib "setupapi.dll" (hDevice As Long, lpDeviceName As Any, ByVal dwFlags As Long) As Long
  19. Private Declare Function CM_Get_Device_IDA Lib "setupapi.dll" (ByVal hDevice As Long, ByVal lpIDBuffer As Long, ByVal cbIDBuffer As Long, ByVal dwFlags As Long) As Long
  20. Private Declare Function CM_Get_Device_ID_Size Lib "setupapi.dll" (ByRef lSize As Long, ByVal hDevice As Long, ByVal dwFlags As Long) As Long
  21. Private Declare Function CM_Get_Parent Lib "setupapi.dll" (hParentDevice As Long, ByVal hDevice As Long, ByVal dwFlags As Long) As Long
  22. Private Declare Function CM_Get_Child Lib "setupapi.dll" (hChildDevice As Long, ByVal hDevice As Long, ByVal dwFlags As Long) As Long
  23. Private Declare Function CM_Get_Sibling Lib "setupapi.dll" (hSiblingDevice As Long, ByVal hDevice As Long, ByVal dwFlags As Long) As Long
  24. Private Declare Function CM_Get_DevNode_Status Lib "setupapi.dll" (lStatus As Long, lProblem As Long, ByVal hDevice As Long, ByVal dwFlags As Long) As Long
  25.  
  26. Private Const DN_REMOVABLE      As Long = &H4000
  27. Private Const CR_SUCCESS        As Long = 0
  28.  
  29. Private Const REG_PATH_MOUNT    As String = "SYSTEM\MountedDevices"
  30. Private Const REG_VALUE_DOSDEV  As String = "\DosDevices\"
  31.  
  32. Public Function EjectDevice(ByVal DriveLetter As String) As Boolean
  33.    Dim strDeviceInstance   As String
  34.    Dim btRegData()         As Byte
  35.    Dim hDevice             As Long
  36.    Dim lngStatus           As Long
  37.    Dim lngProblem          As Long
  38.  
  39.    DriveLetter = UCase$(Left$(DriveLetter, 1)) & ":"
  40.  
  41.    If Not HKLMRegBinaryRead(REG_PATH_MOUNT, REG_VALUE_DOSDEV & DriveLetter, btRegData) Then
  42.        Exit Function
  43.    End If
  44.  
  45.    strDeviceInstance = btRegData
  46.    If Not Left$(strDeviceInstance, 4) = "\??\" Then Exit Function
  47.  
  48.    strDeviceInstance = Mid$(strDeviceInstance, 5, InStr(1, strDeviceInstance, "{") - 6)
  49.    strDeviceInstance = Replace$(strDeviceInstance, "#", "\")
  50.  
  51.    If CR_SUCCESS <> CM_Locate_DevNodeA(hDevice, ByVal strDeviceInstance, 0) Then
  52.        Exit Function
  53.    End If
  54.  
  55.    If CR_SUCCESS <> CM_Get_DevNode_Status(lngStatus, lngProblem, hDevice, 0) Then
  56.        Exit Function
  57.    End If
  58.  
  59.    Do While Not (lngStatus And DN_REMOVABLE) > 0
  60.        If CR_SUCCESS <> CM_Get_Parent(hDevice, hDevice, 0) Then Exit Do
  61.        If CR_SUCCESS <> CM_Get_DevNode_Status(lngStatus, lngProblem, hDevice, 0) Then Exit Do
  62.    Loop
  63.  
  64.    If (lngStatus And DN_REMOVABLE) > 0 Then
  65.        EjectDevice = CR_SUCCESS = CM_Request_Device_EjectA(hDevice, 0, ByVal Space$(255), 255, 0)
  66.    End If
  67. End Function
  68.  
  69. Private Function HandleToDeviceID(hDevice As Long) As String
  70.    Dim strDeviceID As String
  71.    Dim cDeviceID   As Long
  72.  
  73.    If CM_Get_Device_ID_Size(cDeviceID, hDevice, 0) = 0 Then
  74.        strDeviceID = Space(cDeviceID)
  75.  
  76.        If CM_Get_Device_IDA(hDevice, StrPtr(strDeviceID), cDeviceID, 0) > 0 Then
  77.            strDeviceID = StrConv(strDeviceID, vbUnicode)
  78.            strDeviceID = Left(strDeviceID, cDeviceID)
  79.        Else
  80.            strDeviceID = ""
  81.        End If
  82.    End If
  83.  
  84.    HandleToDeviceID = strDeviceID
  85. End Function
  86.  
  87. Private Function HKLMRegBinaryRead(ByVal strPath As String, ByVal strValueName As String, btValue() As Byte) As Boolean
  88.    Dim hKey        As Long
  89.    Dim lngDataLen  As Long
  90.    Dim lngResult   As Long
  91.    Dim regType     As Long
  92.    Dim btDataBuf() As Byte
  93.  
  94.    If RegOpenKeyEx(HKEY_LOCAL_MACHINE, strPath, 0, KEY_READ, hKey) = ERROR_SUCCESS Then
  95.        If RegQueryValueEx(hKey, strValueName, 0, regType, ByVal 0&, lngDataLen) = ERROR_SUCCESS Then
  96.            ReDim btDataBuf(lngDataLen - 1) As Byte
  97.            If RegQueryValueEx(hKey, strValueName, 0, regType, btDataBuf(0), lngDataLen) = ERROR_SUCCESS Then
  98.                btValue = btDataBuf
  99.                HKLMRegBinaryRead = True
  100.            End If
  101.        End If
  102.  
  103.        RegCloseKey hKey
  104.    End If
  105. End Function
  106.  

el programa costa de un listbox y dos botones detectar y extraer me muestra la letra de la unidad,el numero de volumen,y el ESN (numero de serie electronico)
el problema es que si inserto 2 Pen Drive la letra de la unidad no coincide con los numeros de serie y de volumen
es decir me muestra F: numero volumen 33 ESN 44
pero 33 y 44 no son los numeros de la unidad F sino de la unidad G:

Alguna idea de como lo puedo solucionar ??????????????
muchas gracias un saludo
« Última modificación: 21 Enero 2009, 18:10 pm por seba123neo » En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Detectar Product ID y Vendor ID de un Pen Drive
« Respuesta #4 en: 21 Enero 2009, 18:14 pm »

@ fabricioAngel

ahi junte todo los codigos en un solo post..porque eran 4 post cuando puede ser uno...y cuando son codigos largos asi usa la etiqueta de codigo para resaltar el codigo sino no se entiende nada...



En línea

Fabricio

Desconectado Desconectado

Mensajes: 115


Ver Perfil
Re: Detectar Product ID y Vendor ID de un Pen Drive
« Respuesta #5 en: 22 Enero 2009, 14:34 pm »

Hola a todos alguien me puede ayudar a obtener el Product ID y el Vendor ID de un Pen Drive con VB 6
 muchas gracias
un saludo
En línea

invisible_hack


Desconectado Desconectado

Mensajes: 978


Invisible_Hack™ Nick Registrado ^^


Ver Perfil WWW
Re: Detectar Product ID y Vendor ID de un Pen Drive
« Respuesta #6 en: 22 Enero 2009, 14:45 pm »

Fabricio ¿no has leido todos los códigos que han puesto en este post?  :rolleyes:
En línea

"Si no visitas mi blog, Chuck te dará una patada giratoria"
Fabricio

Desconectado Desconectado

Mensajes: 115


Ver Perfil
Re: Detectar Product ID y Vendor ID de un Pen Drive
« Respuesta #7 en: 28 Enero 2009, 22:00 pm »

Hola "invisible_hack" los codigos del post ya los tengo los subi yo y seba los ordeno ese codigo obtiene el esn pero yo ahora necesito obtener el product id y el vendor id de un pen drive con VB 6

nuevamente si me podes ayudar gracias
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ayuda con HASP HL BASIC vendor:20003 v3.25
Ingeniería Inversa
miavi 0 2,036 Último mensaje 23 Diciembre 2014, 23:36 pm
por miavi
Libreria vendor mercado pago
Desarrollo Web
_whiteBird 0 1,835 Último mensaje 31 Mayo 2020, 16:18 pm
por _whiteBird
Busco Vendor GUIDE
Foro Libre
TickTack 1 2,496 Último mensaje 26 Mayo 2021, 14:12 pm
por el-brujo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines