[SRC] Mostrar unidades Extraibles ComboBox

[Elemental Code]

Ya resolvi mi problema aunque no pude usar un Drivebox use un ComboBox

Código (vb) [Seleccionar] Expandir

 
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub lista()
    Dim NumDisco As Integer
    Dim letradisco As String
   
    For NumDisco = 0 To 25
        letradisco = Chr(NumDisco + 65) & ":\"
        Letrasola = UCase(Chr(NumDisco + 65))
        Label1.Caption = Letrasola
       
        senal = GetDriveType(letradisco)
       
       
        If senal = 2 Then
           Combo1.AddItem letradisco
        End If
    Next
End Sub


Si quieren cambiar el tipo de unidad que se muestra es asi:

Código (vb) [Seleccionar] Expandir

If senal = 2 Then

1 y 2 =No Instalado
2 = Extraible
3 = Fijo (Disco Duro)
4 = Remoto
5 = CD o DVD
6 = RAMDISK


Codigo Adaptado desde :

Código [Seleccionar] Expandir

http://www.hackhispano.com/foro/showthread.php?t=33390

Hola.

Estaba pensando un programa y necesito que el drivebox muestre solamente unidades extraibles (Pendrive, Tarjetas, etc)

estuve viendo este codigo de Psyke pero no entendi nada :S

http://foro.elhacker.net/analisis_y_diseno_de_malware/src_vb6_usb_vaccination_by_psyke1-t294147.0.html

Espero que me puedan ayudar.


Gracias

[BlackZeroX]

Hay un codigo de karckcrack y mio por hay que muestran las unidades explicitas sin hacer un for desde la A a la Z!¡.

Dulce Infierno Lunar!¡.

[Elemental Code]

Hay un codigo de karckcrack y mio por hay que muestran las unidades explicitas sin hacer un for desde la A a la Z!¡.

Dulce Infierno Lunar!¡.

enserio?
Tnes el link a mano?

Estaria bueno verlo.

[cobein]

http://www.advancevb.com.ar/?s=drives

[Elemental Code]

advance-VB

Siempre me da dolor de cabeza 

No soy tan Pro 

[cobein]

Miraste los ejemplos de Karcrack, son super claros.