Respuesta:
Esta funcion nos devuelve
la fecha de fabricacion.
Option Explicit
Private Declare Sub GetMem1 Lib
"msvbvm50.dll" (ByVal _ MemAddress As
Long, var As Byte)
Private Function GetBIOSDate()
As String
Dim p As Byte, MemAddr As Long, sBios As String
Dim i As Integer
MemAddr = &HFFFF5
For i = 0 To 7
Call GetMem1(MemAddr + i, p)
sBios = sBios & Chr$(p)
Next i
GetBIOSDate = sBios
End Function
´Using
´Text1.Text = GetBiosDate
Respuesta: c&m cmcomputacion@geocities.com
Yo es poco lo que se de Visual Basic. Pero por
lo poco que conozco encuentro razonable que Visual
Basic no pueda detectar cual es el número
de serie de la BIOS, ya que Visual Basic es un
software orientado básicamente a las Bases
de Datos y no a la administración de Hardware
y Software.
A mi parecer la solución debería
ser :
1) Crear un programa en C, C++
o Assembler, que entregue el resultado que tu
deseas en un archivo de text (.txt).
2) Ejecutar desde Visual Basic el programa creado
en punto anterior.
3) Leer con Visual Basic el archivo de texto.
Según lo que he leido, con Visual Basic
5.0 se podría hacer lo que quieres, según
algunos paper´s que he leido es como una
mezcla de C++ y Visual Basic. |
Microsoft explorer 6.0 