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

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Mensajes
Páginas: [1] 2 3 4 5
1  Programación / .NET (C#, VB.NET, ASP) / Generador de QR sin librería en: 21 Marzo 2021, 20:06 pm
He estado buscando y buscando y no he podido encontrar algún ejemplo de generar un QR sin utilizar una librería, alguien sabe de alguna clase o código que me pueda servir?
2  Programación / .NET (C#, VB.NET, ASP) / Re: Obtener número de serie de un disco físico (no volumen lógico) en: 3 Febrero 2021, 18:28 pm
Buscando me he encontrado un código en vb6, pero me parece que no logró adaptarlo correctamente a vb.net, ya que me genera un error cuando se va a usar la api ZeroMemory

Alguien que tenga alguna idea de que hay que corregir, ya que a mi no se me ocurre nada más

Código
  1. Private Declare Auto Function CreateFile _
  2.        Lib "kernel32" Alias "CreateFileA" (
  3.            ByVal lpFileName As String,
  4.            ByVal dwDesiredAccess As Integer,
  5.            ByVal dwShareMode As Integer,
  6.            ByVal lpSecurityAttributes As Integer,
  7.            ByVal dwCreationDisposition As Integer,
  8.            ByVal dwFlagsAndAttributes As Integer,
  9.            ByVal hTemplateFile As IntPtr
  10.        ) As Integer
  11.  
  12.    Private Declare Auto Function CloseHandle _
  13.        Lib "kernel32" (
  14.            ByVal hObject As IntPtr
  15.        ) As Integer
  16.  
  17.    Private Declare Auto Function DeviceIoControl _
  18.        Lib "kernel32" (
  19.            ByVal hDevice As IntPtr,
  20.            ByVal dwIoControlCode As Integer,
  21.            <MarshalAs(UnmanagedType.AsAny)>
  22.            lpInBuffer As Object,
  23.            ByVal nInBufferSize As Integer,
  24.            <MarshalAs(UnmanagedType.AsAny)>
  25.            lpOutBuffer As Object,
  26.            ByVal nOutBufferSize As Integer,
  27.            lpBytesReturned As Integer,
  28.            ByVal lpOverlapped As Integer
  29.        ) As Integer
  30.  
  31.    Private Declare Auto Sub ZeroMemory _
  32.        Lib "kernel32" Alias "RtlZeroMemory" (
  33.            <MarshalAs(UnmanagedType.AsAny)>
  34.            dest As Object,
  35.            ByVal numBytes As Integer)
  36.  
  37.    'Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Object, Source As Object, ByVal Length As Integer)
  38.    Private Declare Auto Function GetLastError Lib "kernel32" () As Integer
  39.  
  40.    Private Const DFP_RECEIVE_DRIVE_DATA = &H7C088
  41.    Private Const FILE_SHARE_READ = &H1
  42.    Private Const FILE_SHARE_WRITE = &H2
  43.    Private Const GENERIC_READ = &H80000000
  44.    Private Const GENERIC_WRITE = &H40000000
  45.    Private Const OPEN_EXISTING = 3
  46.    Private Const CREATE_NEW = 1
  47.  
  48.    Private Enum HDInfo
  49.        HD_MODEL_NUMBER = 0
  50.        HD_SERIAL_NUMBER = 1
  51.        HD_FIRMWARE_REVISION = 2
  52.    End Enum
  53.  
  54.    Private Structure IDEREGS
  55.        Public bFeaturesReg As Byte
  56.        Public bSectorCountReg As Byte
  57.        Public bSectorNumberReg As Byte
  58.        Public bCylLowReg As Byte
  59.        Public bCylHighReg As Byte
  60.        Public bDriveHeadReg As Byte
  61.        Public bCommandReg As Byte
  62.        Public bReserved As Byte
  63.    End Structure
  64.  
  65.    Private Structure SENDCMDINPARAMS
  66.        Public cBufferSize As Integer
  67.        Public irDriveRegs As IDEREGS
  68.        Public bDriveNumber As Byte
  69.        <VBFixedArray(1, 3)>
  70.        Public bReserved() As Byte
  71.        <VBFixedArray(1, 4)>
  72.        Public dwReserved() As Integer
  73.    End Structure
  74.  
  75.    Private Structure DRIVERSTATUS
  76.        Public bDriveError As Byte
  77.        Public bIDEStatus As Byte
  78.        <VBFixedArray(1, 2)>
  79.        Public bReserved() As Byte
  80.        <VBFixedArray(1, 2)>
  81.        Public dwReserved() As Integer
  82.    End Structure
  83.  
  84.    Private Structure SENDCMDOUTPARAMS
  85.        Public cBufferSize As Integer
  86.        Public DStatus As DRIVERSTATUS
  87.        <VBFixedArray(1, 512)>
  88.        Public bBuffer() As Byte
  89.    End Structure
  90.  
  91.    Private mvarCurrentDrive As Byte
  92.  
  93.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  94.        MsgBox(GetHDDInfo(0, "serial"))
  95.        End
  96.    End Sub
  97.  
  98.    Public Function GetHDDInfo(ByVal Number As Byte, ByVal Cmd As String) As String
  99.        mvarCurrentDrive = Number
  100.  
  101.        Select Case LCase(Cmd)
  102.            Case "model" : GetHDDInfo = CmnGetHDData(HDInfo.HD_MODEL_NUMBER)
  103.            Case "serial" : GetHDDInfo = CmnGetHDData(HDInfo.HD_SERIAL_NUMBER)
  104.            Case "firmware" : GetHDDInfo = CmnGetHDData(HDInfo.HD_FIRMWARE_REVISION)
  105.            Case Else : GetHDDInfo = ""
  106.        End Select
  107.    End Function
  108.  
  109.    Private Function CmnGetHDData(hdi As HDInfo) As String
  110.        Dim Bin As SENDCMDINPARAMS
  111.        Dim Bout As SENDCMDOUTPARAMS
  112.        Dim hdh As Long
  113.        Dim br As Long
  114.        Dim Ix As Long
  115.        Dim hddfr As Long
  116.        Dim hddln As Long
  117.        Dim S As String
  118.  
  119.        Select Case hdi
  120.            Case HDInfo.HD_MODEL_NUMBER
  121.                hddfr = 55
  122.                hddln = 40
  123.            Case HDInfo.HD_SERIAL_NUMBER
  124.                hddfr = 21
  125.                hddln = 20
  126.            Case HDInfo.HD_FIRMWARE_REVISION
  127.                hddfr = 47
  128.                hddln = 8
  129.            Case Else : Err.Raise(10001, "Illegal HD Data type")
  130.        End Select
  131.        hdh = CreateFile("\\.\PhysicalDrive" & mvarCurrentDrive, GENERIC_READ + GENERIC_WRITE, FILE_SHARE_READ + FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)
  132.  
  133.        If hdh = 0 Then Err.Raise(10003, , "Error on CreateFile")
  134.  
  135.        ZeroMemory(Bin, Len(Bin))
  136.        ZeroMemory(Bout, Len(Bout))
  137.  
  138.        With Bin
  139.            .bDriveNumber = mvarCurrentDrive
  140.            .cBufferSize = 512
  141.            With .irDriveRegs
  142.                If (mvarCurrentDrive And 1) Then
  143.                    .bDriveHeadReg = &HB0
  144.                Else
  145.                    .bDriveHeadReg = &HA0
  146.                End If
  147.                .bCommandReg = &HEC
  148.                .bSectorCountReg = 1
  149.                .bSectorNumberReg = 1
  150.            End With
  151.        End With
  152.  
  153.        DeviceIoControl(hdh, DFP_RECEIVE_DRIVE_DATA, Bin, Len(Bin), Bout, Len(Bout), br, 0)
  154.  
  155.        S = ""
  156.        For Ix = hddfr To hddfr + hddln - 1 Step 2
  157.            If Bout.bBuffer(Ix + 1) = 0 Then Exit For
  158.            S &= Chr(Bout.bBuffer(Ix + 1))
  159.            If Bout.bBuffer(Ix) = 0 Then Exit For
  160.            S &= Chr(Bout.bBuffer(Ix))
  161.        Next Ix
  162.  
  163.        CloseHandle(hdh)
  164.        CmnGetHDData = Trim(S)
  165.    End Function
3  Programación / .NET (C#, VB.NET, ASP) / Obtener número de serie de un disco físico (no volumen lógico) en: 3 Febrero 2021, 04:46 am
Alguien me pudiera aclarar como se puede obtener el número de serie de un disco físico, también el modelo del disco.

OJO!!! Que sea usando la API de Windows y en VB
4  Sistemas Operativos / Windows / Re: Papel Tapiz con carpeta de imágenes en: 3 Febrero 2021, 04:28 am
Waooo, nunca se me hubiera ocurrido eso. Pero ese mecanismo solo empeora mi situación, ya que no obtengo la ruta de la imagen original, solo la de la copia que hace windows.

Lo que necesito es la ruta de la imagen original que ahora me parece más complejo de obtener

Gracias
5  Sistemas Operativos / Windows / Re: Papel Tapiz con carpeta de imágenes en: 3 Febrero 2021, 00:32 am
Parece que no me explique bien, yo me refiero a que en el registro de Windows en la clave

HKEY_CURRENT_USER\Control Panel\Desktop

en el valor Wallpaper aparece la ruta completa de la imagen de papel tapiz actual.

El problema es que cuando pongo una carpeta de imágenes para que cambie el papel tapiz cada cierto tiempo lo que aparece en ese valor del registro es

C:\Users\Usuario\AppData\Roaming\Microsoft\Windows\Themes\TranscodedWallpaper

Y de esta manera no puedo obtener la ruta de la imagen actual y quisiera saber si existe algún método para obtener la ruta en este caso

Gracias
6  Sistemas Operativos / Windows / Papel Tapiz con carpeta de imágenes en: 2 Febrero 2021, 21:26 pm
Necesito saber cómo se obtiene la ruta de la imagen de fondo en windows 8.1 y si es posible en windows 10 también

OJO!!!!! cuando esta puesta una carpeta con varias imágenes que van cambiando cada cierto tiempo.
7  Programación / .NET (C#, VB.NET, ASP) / Re: Array de Controles con Eventos en VB.NET en: 20 Enero 2021, 06:50 am
Perfecto, mil gracias, esto resuelve completamente mis dudas.
8  Programación / .NET (C#, VB.NET, ASP) / Array de Controles con Eventos en VB.NET en: 18 Enero 2021, 07:54 am
Hace tiempo que estoy buscando como crear arrays de controles y que estos respondan a eventos en vb.net y no he logrado encontrar algo que me sirva para algo como esto:

Supongamos que tengo un botón que dice buscar y que cada vez que el usuario haga click en el, se cree una etiqueta que diga Buscando y un boton que diga detener y que al hacer click en el botón Detener se elimine el botón y su etiqueta correspondiente

Saludos y gracias
9  Programación / .NET (C#, VB.NET, ASP) / Re: cambiar la pantalla de bloqueo de windows 8 en: 13 Junio 2017, 03:42 am
Lo que estoy buscando realmente es como cambiar la imágen de la pantalla de bloqueo de windows 8.1 desde VB.NET
10  Programación / .NET (C#, VB.NET, ASP) / cambiar la pantalla de bloqueo de windows 8 en: 6 Junio 2017, 18:58 pm
Alguien sabe como se puede cambiar la pantalla de bloqueo de windows 8.1 desde vb.net

gracias
Páginas: [1] 2 3 4 5
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines