Imprimir Página - [SRC] Mostrar unidades Extraibles ComboBox

Programación => Programación Visual Basic => Mensaje iniciado por: Elemental Code en 5 Junio 2010, 16:37 pm

Título: [SRC] Mostrar unidades Extraibles ComboBox
Publicado por: Elemental Code en 5 Junio 2010, 16:37 pm

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

Código

 
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

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:

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

Cita de: Post Original en el que preguntaba como hacer

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.

;D ;D ;D
Gracias

Título: Re: [SRC] Mostrar unidades Extraibles ComboBox
Publicado por: BlackZeroX en 5 Junio 2010, 19:11 pm

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!¡.

Título: Re: [SRC] Mostrar unidades Extraibles ComboBox
Publicado por: Elemental Code en 5 Junio 2010, 19:19 pm

Cita de: BlackZeroX▓▓▒▒░░ en 5 Junio 2010, 19:11 pm

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.

Título: Re: [SRC] Mostrar unidades Extraibles ComboBox
Publicado por: cobein en 5 Junio 2010, 20:38 pm

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

Título: Re: [SRC] Mostrar unidades Extraibles ComboBox
Publicado por: Elemental Code en 5 Junio 2010, 20:49 pm

advance-VB

Siempre me da dolor de cabeza :-( :-(

No soy tan Pro :-[ :-[ :-[

Título: Re: [SRC] Mostrar unidades Extraibles ComboBox
Publicado por: cobein en 6 Junio 2010, 07:07 am

Miraste los ejemplos de Karcrack, son super claros.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Elemental Code en 5 Junio 2010, 16:37 pm