Mensajes

[dongle]

Saludos.


El dongle lo pensaba asi. Que cuando inicie sección en mi cuenta de Windows XP, se ejecute el mismo programa rapidamente, y este pida una contrasenha y un usuario. Pero que al mismo tiempo revise un archivo X en una memoria USB. De tal manera que aunque se sepa la contrasenha del dongle, si no esta la memoria USB saque rapidamente de la sección.

http://foro.elhacker.net/programacion_visual_basic/seriales_de_pendrives_conectados_src-t331333.0.html

http://es.wikipedia.org/wiki/Bankia


http://es.wikipedia.org/wiki/Rodrigo_Rato


http://es.wikipedia.org/wiki/Fondo_Monetario_Internacional

Recortaría los consejos del FMI ...

[recien me inicio con este tema]

Como decia antes esta en el WDK, buscalo en Google, bajalo y selecciona los "samples" al instalar.

hola
como dice el amigo Eternal Idol  este ejemplo se encuentra en el WDK ,pero si quieres mira este link ,también tiene un ejemplo un poco mas sencillo (creo yo)que el del WDK.


http://support.microsoft.com/kb/257405
o este
http://code.msdn.microsoft.com/windowshardware/WDKRamDisk-c3322885

Gracias nuevamente, recien me inicio con este tema, peden ayudar las "APIs del Setup" para facilitar el trabajo ?


http://translate.google.com.ar/translate?hl=es&sl=en&u=http://msdn.microsoft.com/en-us/library/windows/hardware/ff544717(v%3Dvs.85).aspx&ei=Q4kaT8PTGcPg0QG094jGCw&sa=X&oi=translate&ct=result&resnum=1&sqi=2&ved=0CCIQ7gEwAA&prev=/search%3Fq%3Ddiinstalldriver%26hl%3Des%26biw%3D1024%26bih%3D600%26prmd%3Dimvnsfd

Hola, no pude encuentrar el ejemplo al que se refieren, me pueden facilitar el link, gracias y saludos.

Sí, en adelante será mejor referirse a estas clases de dispositivos como GUID.

estas seguro que no es el serial verdadero?  

Segurísimo !!!


Seriales de Hard Disk conectados (Solo funciona como usuario Administrador ):

Código (vb) [Seleccionar] Expandir



Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Function: SerialHD
' Autor: Adrian Desanti (Dessa)
' Creditos: es una adaptacion a mis necesidades de una clase de Antonio Giuliana
' Agradecimientos: Karcrak (IsAdministrador)
' Requisitos : Windows NT + Administrador
' Rertorno: retorna el serial verdadero de Discos IDE o S-ATA conectados
' Serial verdadero: Es el que figura en la etiqueta del Disco y no cambia al formatear
' Fecha : V.2 Septiembre 2010
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Declare Function CheckTokenMembership Lib "ADVAPI32" (ByVal TokenHandle As Long, ByVal pSidToCheck As Long, ByRef IsMember As Boolean) As Long

Private Declare Function GetVersion Lib "KERNEL32" () As Long
Private Declare Function CreateFile Lib "KERNEL32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "KERNEL32" (ByVal hObject As Long) As Long
Private Declare Function DeviceIoControl Lib "KERNEL32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long
Private Declare Sub ZeroMemory Lib "KERNEL32" Alias "RtlZeroMemory" (dest As Any, ByVal numBytes As Long)

Private Type IDEREGS
   bFeaturesReg As Byte: bSectorCountReg As Byte: bSectorNumberReg As Byte: bCylLowReg As Byte: bCylHighReg As Byte: bDriveHeadReg As Byte: bCommandReg As Byte: bReserved As Byte
End Type
Private Type SENDCMDINPARAMS
   cBufferSize As Long: irDriveRegs As IDEREGS: bDriveNumber As Byte: bReserved(1 To 3) As Byte: dwReserved(1 To 4) As Long
End Type
Private Type DRIVERSTATUS
   bDriveError As Byte: bIDEStatus As Byte: bReserved(1 To 2) As Byte: dwReserved(1 To 2) As Long
End Type
Private Type SENDCMDOUTPARAMS
   cBufferSize As Long: DStatus As DRIVERSTATUS: bBuffer(1 To 512) As Byte
End Type

Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As GUID) As Long
Private Declare Function SetupDiGetClassDevs Lib "setupapi.dll" Alias "SetupDiGetClassDevsA" (ByVal ClassGuid As Long, ByVal Enumerator As Long, ByVal HwndParent As Long, ByVal flags As Long) As Long
Private Declare Function SetupDiEnumDeviceInterfaces Lib "setupapi.dll" (ByVal DeviceInfoSet As Long, ByVal DeviceInfoData As Long, ByRef InterfaceClassGuid As GUID, ByVal MemberIndex As Long, ByRef DeviceInterfaceData As SP_DEVICE_INTERFACE_DATA) As Long
Private Declare Function SetupDiDestroyDeviceInfoList Lib "setupapi.dll" (ByVal DeviceInfoSet As Long) As Long

Private Type GUID
   Data1 As Long: Data2 As Integer: Data3 As Integer: Data4(0 To 7) As Byte
End Type

Private Type SP_DEVICE_INTERFACE_DATA
   cbSize As Long: InterfaceClassGuid As GUID: flags As Long: Reserved As Long
End Type


Private Sub Form_Load()
 
 If (GetVersion And &HFF) > &H5 Then
   If App.LogMode = 0 Then
       MsgBox "En Vista o Seven ejecutar compilado en modo Administrador"
       End
   End If
 End If
 
 
 AutoRedraw = True
 FontBold = True
 Caption = ""
 Print SerialHD()
 
 
 
End Sub

Public Function SerialHD() As String

 If (GetVersion And &HFF) < 5 Then
   SerialHD = "Sistema Operativo No válido"
   Exit Function
 End If
 
 If IsAdministrador = False Then
   SerialHD = "Se requiere usuario Administrador"
   Exit Function
 End If
 
 Dim RetDiskCount  As Long
 
 RetDiskCount = DiskCount()
 
 If RetDiskCount < 0 Then
   SerialHD = "DiskCount No válido"
   Exit Function
 End If
 
 Dim nDisco        As Long
 Dim hdh           As Long
 Dim hddfr         As Byte
 Dim hddln         As Byte
 Dim bin           As SENDCMDINPARAMS
 Dim bout          As SENDCMDOUTPARAMS
 Dim br            As Long
 Dim x             As Byte
 Dim s             As String
   
 For nDisco = 0 To RetDiskCount - 1 ' los ciclos del For serán solo la cantidad de "PhysicalDrive" conectados
   
     hdh = CreateFile("\\.\PhysicalDrive" & nDisco, &H3, &H0, &H0, &H3, &H0, &H0)
 
     If hdh = -1 Then
         If nDisco = 0 Then
             SerialHD = " IDE " & nDisco & " = " & "Error en CreateFile" & vbNewLine
         Else
             SerialHD = SerialHD & " IDE " & nDisco & " = " & "Error en CreateFile" & vbNewLine
         End If
     Else
         hddfr = 21 ' Posicion en el buffer del SerialNumber
         hddln = 20 ' Tamaño resrvado en el buffer para el SerialNumber
         
         Call ZeroMemory(bin, Len(bin))
         Call ZeroMemory(bout, Len(bout))
   
         With bin
             .bDriveNumber = nDisco
             .cBufferSize = 512
           With .irDriveRegs
               If (nDisco And 1) Then
                   .bDriveHeadReg = &HB0
               Else
                   .bDriveHeadReg = &HA0
               End If
               .bCommandReg = &HEC
               .bSectorCountReg = 1
               .bSectorNumberReg = 1
           End With
         End With
 
         'DFP_RECEIVE_DRIVE_DATA = &H7C088
         Call DeviceIoControl(hdh, &H7C088, bin, Len(bin), bout, Len(bout), br, 0)
     
         s = ""
         For x = hddfr To hddfr + hddln - 1 Step 2
             If bout.bBuffer(x + 1) = 0 Then Exit For
             s = s & Chr(bout.bBuffer(x + 1))
             If bout.bBuffer(x) = 0 Then Exit For
             s = s & Chr(bout.bBuffer(x))
         Next x
         Call CloseHandle(hdh)
 
         If Trim$(s) <> "" Then
             SerialHD = SerialHD & " IDE " & nDisco & " = " & Trim$(s) & vbNewLine
         End If
     End If

 Next nDisco

End Function

Private Function DiskCount() As Long
   
   Dim TGUID   As GUID
   Dim hDev    As Long
   
   Call IIDFromString(StrPtr("{53f56307-b6bf-11d0-94f2-00a0c91efb8b}"), TGUID)
   
   '&H12 ===> DIGCF_PRESENT = &H10 Or DIGCF_DEVICEINTERFACE = &H2
   hDev = SetupDiGetClassDevs(VarPtr(TGUID), &H0, &H0, &H12)
   
   If hDev = -1 Then
     DiskCount = -1
     Exit Function
   End If
   
   Dim Cnt As Long
   Dim DTA  As SP_DEVICE_INTERFACE_DATA
   DTA.cbSize = Len(DTA)
   
   While Not (SetupDiEnumDeviceInterfaces(hDev, &H0, TGUID, Cnt, DTA) = &H0)
       Cnt = Cnt + 1
   Wend
 
   Call SetupDiDestroyDeviceInfoList(hDev)
       
   DiskCount = Cnt

End Function

Private Function IsAdministrador() As Boolean
  Dim SID(1)  As Currency
  SID(0) = 36028797018964.0193@
  SID(1) = 233646220.9056@
  Call CheckTokenMembership(&H0, VarPtr(SID(0)), IsAdministrador)
End Function




[53f56307-b6bf-11d0-94f2-00a0c91efb8b]

Hola Maurice_Lupin , la clase 53f56307-b6bf-11d0-94f2-00a0c91efb8b si detecta los discos Sata 1 y sata 2, todavia no pude probar con Sata 3 pero seguramente tambien los detecta ya que es la misma interface.

Esta clase tambien detecta (o enumera mejor dicho) Discos IDE, ZIP de interface IDE y Dispositivos de almacenamiento USB... por lo tanto deberás filtrar los retornos de acuerdo a lo que quieras listar, por ejemplo en el codigo original solo listé la interface USB

If InStr(UCase$(DTL.strDevicePath), "USB") Then      

http://foro.elhacker.net/programacion_visual_basic/seriales_de_pendrives_conectados_src-t331333.0.html;msg1664147#msg1664147



Nota: Las interfaces "IDE" & Sata no retornan el Serial verdadero por esta vía... A Diferencia de la interface USB que sí se puede obtener con este método


La clase a5dcbf10-6530-11d2-901f-00c04fb951ed solo enumera Dispositivos de almacenamiento USB, por lo tanto no hay que "filtrar retornos"
http://foro.elhacker.net/programacion_visual_basic/seriales_de_pendrives_conectados_src-t331333.0.html;msg1629437#msg1629437

Hola, no sé si entendí bien lo de arrastrar objetos... te dejo un ejemplo (sin optimizar) válido para xp (para W7 tenés q cambiar el nombre de clase "SciCalc" por la q corresponda)

Código [Seleccionar] Expandir




Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Command1_Click()
   
    Shell "calc"
   
    Dim Hndl As Long

    Hndl = FindWindow("SciCalc", vbNullString)
    Hndl = FindWindowEx(Hndl, 0, vbNullString, "1")
   
    Call SetWindowPos(Hndl, vbNull, 1, 1, 35, 28, 0)

End Sub



   ' esto era: Call IIDFromString(StrPtr("{a5dcbf10-6530-11d2-901f-00c04fb951ed}"), TGUID)
   ' pero no encuentro un equivalente en NET de IIDFromString
   ' encontre por ahi que se podia crear un Guid asi, estara bien?

   TGUID = New Guid(strvalue)
   
 

Fijate si esto ayuda

http://bytes.com/topic/visual-basic-net/answers/381152-how-declare-globally-unique-identifier-guid

[VB.Net]

En VB.Net no tengo ni idea de como capturar los mensajes del Form, pero mirá este link, aparentemente es un hook al mouse... tal vez te sirva de ejemplo para AddressOf .

http://support.microsoft.com/kb/319524