Formateador de discos en vb

[Dj_Dexter]

Hola, aqui les dejo mi programilla a vista de todos 

Es un formateador de unidades de disco hecho en vb6, aqui 1 captura:



aqui les dejo el codigo fuente usa el api ShFormatDrive de la dll shel32.dll

Código:

Private Declare Function SHFormatDrive Lib "shell32" _
    (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _
    ByVal options As Long) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
        (ByVal nDrive As String) As Long
Private Sub Command1_Click()
 Dim DriveLetter$, DriveNumber&, DriveType&
    Dim RetVal&, RetFromMsg%
    DriveLetter = UCase(Drive1.Drive)
    DriveNumber = (Asc(DriveLetter) - 65) ' Cambiar la letra a número: A=0
    DriveType = GetDriveType(DriveLetter)
    'If DriveType = 2 Then  'Disquetes, etc
    RetVal = SHFormatDrive(Me.hwnd, DriveNumber, 0&, 0&)

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Resize()
On Error Resume Next
Move (Screen.Width - Width) \ 29, (Screen.Height - Height) \ 29

End Sub

Private Sub Form_Unload(Cancel As Integer)
End

End Sub

Código:

Buenop ahi me dicen como estaba el programa, tengan cuidado al formatear discos fijos con esta utilidad, o particiones, y si tiene fallas, que lo mejore o corre a todo cachete el programas
aqui el link para descargarlo:

Para ver este enlace Registrate o Inicia Sesion

http://www.recursosvisualbasic.com.ar/htm/listado-api/zip/formateador-de-discos-vb.zip

Ya publique este programa en recursos visual basic
Saludos

[sable]

tio es kojonudo pa k engañar a la peña xD 
ers la lexe 
sta to wapo
y tiene poko kodigo
mu bn 
pero pon esto en el kode
private sub form_load()
msgbox "exo por dj_dexter"
jajaja seguro k si ahi algun lammer lo kopia y lo ejekuta direktamente y no save borrarlo luego  y se deprime jajaja

resumen programa kojonudo,lammers ... sin palabras jajejejejej
 
sable dice: adios

[Dj_Dexter]

Bueno hago esop para perjudicar a algun lammer copy paste?

[sable]

sip tu azlo jajaja aunke solo sea por joder y si no k aprendan a programar jajajaja