Лень- самый главный враг программиста. Вот сидел я час назад,сижу я сейчас - и ничего не хочу делать. А надо. Надо писать статью.

  (Через 25 минут) Увы, лень победила. Я лезу в архивы ex_DLC_ с целью найти что-нибудь и нахожу очень интересную вещь - BIOSreader by непомню кто.

  Прога исключительно для ленивых. Если кому-то очень не хочется читать мануал к своему биосу с целью узнать что-нибудь важное, то эта прога - его спасение. Как можно было догадаться по названию- она автоматом выводит инфу, зашитую в биосе.

  Итак, лепим форму и текстбокс.

  Пишем в до боли знакомом окошке :

 
Option Explicit
Private Declare Sub GetMem1 Lib "msvbvm50.dll" (ByVal MemAddress As Long, var As Byte)
' Эта строка показывает, что мы пользуемся библиотекой msvbvm50.dll
' Точнее используем ее часть.
Private Function GetBIOSDate() As String
Dim p As Byte, MemAddr As Long, sB As String
Dim i As Integer
MemAddr = &HFE000 'Адрес серийки в памяти
For i = 0 To 331 ' Цикл
Call GetMem1(MemAddr + i, p)' вызываем GetMem1
If p > 31 And p <= 128 Then ' Ищем читабельные символы. 
sB = sB & Chr$(p)
End If
Next i ' Конец цикла :-)
GetBIOSDate = sB ' Присваиваем
End Function

Private Sub Form_Load()
Text1.Text = GetBIOSDate 'Выводим в текстбокс
End Sub

  Скрины приводить не буду, т.к. я ещё и жуткий параноик. Вдруг ты иностранный шпион.

Written by U1traDIMM 25.11.2001