Written by U1traDIMM 25.11.2001
Лень- самый главный враг программиста. Вот сидел я час назад,сижу я сейчас - и ничего не хочу делать. А надо. Надо писать статью.
(Через 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
|
Скрины приводить не буду, т.к. я ещё и жуткий параноик. Вдруг ты иностранный шпион.
