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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Mensajes
Páginas: 1 [2]
11  Programación / Programación Visual Basic / Re: Gadget CPU Meter (Actualizado - Imagenes Originales - Nuevos Skins) en: 16 Julio 2008, 23:43 pm
Muy bien hecho sigue asi


 :laugh: :laugh: :laugh: :laugh: :laugh: :laugh: :laugh: :laugh:
12  Programación / Programación Visual Basic / Re: Mi proyecto en: 16 Julio 2008, 23:38 pm
Tienes Winsock de mas, con uno solo basta para todo
en mi opinion es una sencilla aplicacion Bien Hecho

 :laugh: :laugh: :laugh: :laugh: :laugh: :laugh: :laugh: :laugh:
13  Programación / Programación Visual Basic / Re: [Source] LCD-ScreenTest - Comprueba si tu monitor LCD tiene pixeles muertos !!! en: 21 Junio 2008, 01:31 am
ufffffff que alivio ni un pixel muerto :laugh: :laugh: :laugh:
14  Programación / Programación Visual Basic / Re: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??. en: 20 Junio 2008, 01:41 am
por que no usas el filecopy es mucho mas sencillo
Sintaxiz:
filecopy Archivo origen, archivo destino :laugh: :laugh:
15  Programación / Programación Visual Basic / Re: Detectar pen drive o USB e infectar en: 18 Junio 2008, 01:43 am
Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public Declare Function GetLogicalDrives Lib "kernel32" () As Long

'VARIABLE QUE VA A TOMAR EL MOMBRE DE LA UNIDAD
Public UnidadUSB As String

Public Function GetDriveSerial(ByVal sDrive As String) As Long
    sDrive = UCase(Left$(sDrive, 1)) & ":\"
    Call GetVolumeInformation(sDrive, vbNullString, 0, GetDriveSerial, 0, 0, vbNullString, 0)
    UnidadUSB = sDrive
End Function

Public Function IsConnected(ByVal lID As Long) As Boolean
    Dim LDs As Long, Cnt As Long, sDrives As String
    LDs = GetLogicalDrives
    For Cnt = 0 To 25
        If (LDs And 2 ^ Cnt) <> 0 Then
            sDrives = sDrives + Chr$(65 + Cnt)
            If GetDriveType(Trim(Right(sDrives, 1) & ":\")) = 2 Then
                UnidadUSB = Trim(Right(sDrives, 1) & ":\")
            End If
        End If
    Next Cnt
End Function


hay tienes un modulo para dectectar usb espero que te sirva, saludos
Páginas: 1 [2]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines