Yo tengo mucha info y practica en este tema, cuando pueda les subo lo que tengo, ahora me voy a dormir porque tengo colegio al otro dia y es tarde! Les prometo que mañana les subo todo lo que tengo y mis programas!

Votenme por favor -> Xeon Web Server - Sancho.Mazorka
http://foro.elhacker.net/index.php/topic,171903.0.html


Sancho.Mazorka   

Pero no es conveniente ponerlo como NTFS, ya que trae conflictos y no se puede extrar segun lo que lei. Por lo menos hasta ahora funciona ese code 


Sancho.Mazorka   

Funciona perfectamente, pero te equivocaste en la asignacion mira:

If totalbytes <> 1457664 And FSName = "FAT" Then Me.Print Drive

A mi me funciono cuando le coloque FAT32

If totalbytes <> 1457664 And FSName = "FAT32" Then Me.Print Drive

Muchas gracias y aprendi algo nuevo, todos los pen drive son FAT32 


Sancho.Mazorka   

Hola gente tengo un problema, necesito distinguir entre una Disketera y un Pen Drive o Data Traveler, pero la unica forma de hacerlo es con esta API que devuelve a las 2 como removible pero quisiera poder diferenciarlos:

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Set the graphic mode to persistent
    Me.AutoRedraw = True
    'Get information about the C:\
    Select Case GetDriveType("C:\")
        Case 2
            Me.Print "Removable"
        Case 3
            Me.Print "Drive Fixed"
        Case Is = 4
            Me.Print "Remote"
        Case Is = 5
            Me.Print "Cd-Rom"
        Case Is = 6
            Me.Print "Ram disk"
        Case Else
            Me.Print "Unrecognized"
    End Select
End Sub
 

Alguien sabe como diferenciar Disketera de Pen Drive ? Lo necesito por favor!


Sancho.Mazorka   

Para mi el diseño esta espectacular, y podrias hacer que al elegir el archivo verifique que extension tiene y hacer todo automaticamente, osea si metes un .VBP que encripete todas las variables, si pones .FRM solo ese formulario, y asi, algo que me parece que queda feo o raro para MI gusto es:
Xor Function Encription
y cambiarlo por:
Xor Encryption


Sancho.Mazorka   

Esta muy bueno, pero si tu lengua nativa es el Español xq haces el programa en Ingles ?  Sera que esta a la "moda" escribir todo en Ingles!?


Sancho.Mazorka   

MsgBox Left(App.Path, 3)

Talvez te sirva, te dice la letra de la unidad que estas usando con ese programa


Sancho.Mazorka   

Me encantaria saber a que le decis vector, y para que queres el vector ???

Sancho.Mazorka   

Es cierto el CSocketMaster tiene algunos bugs, si envias muchos comandos de flood con el cliente/servidor en la PC y los 2 usando el CSocketMaster uno de los 2 se termina bugueando, y con MSWINSCK.OCX no se buguea! Pero para que tarde 2min NUNCA!


Sancho.Mazorka   

Cuando pediste perdon, pudiste aver editado el post y ponerle las etiquetas de code, igualmente buen code!


Sancho.Mazorka