Серийный номер железа или как ещё привязать к компьютеру? - VB
Формулировка задачи:
При помощи VB6 как сделать привязку программы? По SN материнки, процессора, жёсткого диска, сетевой карты и т.д.
Решение задачи: «Серийный номер железа или как ещё привязать к компьютеру?»
textual
Листинг программы
Private Function GetMACAddress( _ ByRef bData() As Byte) As Boolean Dim bAdapterInfo() As Byte Dim lRet As Long Dim lSize As Long Dim bMACAddress() As Byte Dim lMACAddresSize As Long ' // Get MAC address lSize = &H288 ReDim bAdapterInfo(lSize - 1) lRet = GetAdaptersInfo(bAdapterInfo(0), lSize) If lRet = ERROR_BUFFER_OVERFLOW Then ReDim bAdapterInfo(lSize - 1) lRet = GetAdaptersInfo(bAdapterInfo(0), lSize) End If If lRet = 0 Then GetMem4 bAdapterInfo(&H190), lMACAddresSize If lMACAddresSize > 0 Then ReDim bData(lMACAddresSize - 1) memcpy bData(0), bAdapterInfo(&H194), lMACAddresSize GetMACAddress = True End If End If End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д