привязка ПРОГИ к тачке !!! Помогите плиз!!!
Ребята, вот такой вот квестшон (может кто знает ?) кто-нибудь делал такую функцию(или сабу) на С или VB, которая бы могла из памяти (конкретный адрес - ff000000 и ffff0000) вытаскивать данные о Быосе (там сидит его название, версия и т.п.) ? Короче, вообще, как вытащить из такого типа адресов данные ?
Функция нужна для того, чтобы привязать прогу(в которой будет сидеть эта ф.) к тачке , т.е. чтобы на другой тачке запустить прогу эту уже нельзя было !!!
Или вообще, ребята, может знаете, к чему можно еще привязать прогу и как это сделать (ну вот желательно, к материнке, потому что к серийному номеру винта - не катит !!!) ?
Кстати, пытался юзать АПИшку getMEM1 - все супер, но она не хочет работать в NT !!!
Кто хоть че-нить знает примерно хоть, напишите пожалуйста на мыло [EMAIL]k_n_y_a_z@mail.ru[/EMAIL] , очень надо !!!!
Очень желательно на мыло !!!
Функция нужна для того, чтобы привязать прогу(в которой будет сидеть эта ф.) к тачке , т.е. чтобы на другой тачке запустить прогу эту уже нельзя было !!!
Или вообще, ребята, может знаете, к чему можно еще привязать прогу и как это сделать (ну вот желательно, к материнке, потому что к серийному номеру винта - не катит !!!) ?
Кстати, пытался юзать АПИшку getMEM1 - все супер, но она не хочет работать в NT !!!
Кто хоть че-нить знает примерно хоть, напишите пожалуйста на мыло [EMAIL]k_n_y_a_z@mail.ru[/EMAIL] , очень надо !!!!
Очень желательно на мыло !!!
Аноним
----------------------------------------
Данный пример покажет дату Bios только в Windows 95/98!!!
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
Private Sub Command1_Click()
MsgBox "Дата Bios'а " & GetBIOSDate
End Sub
--------------------------------------
ВАРИАНТ 2
--------------------------------------
Private Type BIOS_DATE
s As String * 8
End Type
Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Public Function BIOS() As String
Dim sDB As BIOS_DATE
CopyMemory sDB, ByVal &HFFFF5, 8&
BIOS = sDB.s
End Function
Private Sub Command1_Click()
MsgBox BIOS
End Sub
Damedad
[EMAIL]damedad@pochtamt.ru[/EMAIL]