易语言修改网卡MAC地址模块源码

系统结构:ListAdapters,修改MAC地址,取本机所有网卡信息,取随机MAC地址,取结构数据尺寸,RtlFreeAnsiString,RtlUnicodeStringToAnsiString,取字节集变量地址_,SetupDiGetClassDevs,SetupDiEnumDeviceInfo,SetupDiGetDeviceRegistryProperty,SetupDiGetDeviceInstanceId,GetLastError,RegOpenKey,RegCloseKey,RegFlushKey,RegSetValueEx,RegQueryValueEx,SetupDiDestroyDeviceInfoList,GetAdaptersInfo,SetupDiSetClassInstallParams,SetupDiChangeState,取结构数据尺寸2,取结构数据尺寸3,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ ListAdapters
           |  |
           |  |------ 修改MAC地址
           |  |
           |  |------ 取本机所有网卡信息
           |  |
           |  |------ 取随机MAC地址
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取结构数据尺寸
           |  |
           |  |---[dll]------   RtlFreeAnsiString
           |  |
           |  |---[dll]------   RtlUnicodeStringToAnsiString
           |  |
           |  |---[dll]------   取字节集变量地址_
           |  |
           |  |---[dll]------   SetupDiGetClassDevs
           |  |
           |  |---[dll]------   SetupDiEnumDeviceInfo
           |  |
           |  |---[dll]------   SetupDiGetDeviceRegistryProperty
           |  |
           |  |---[dll]------   SetupDiGetDeviceInstanceId
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   RegOpenKey
           |  |
           |  |---[dll]------   RegCloseKey
           |  |
           |  |---[dll]------   RegFlushKey
           |  |
           |  |---[dll]------   RegSetValueEx
           |  |
           |  |---[dll]------   RegQueryValueEx
           |  |
           |  |---[dll]------   SetupDiDestroyDeviceInfoList
           |  |
           |  |---[dll]------   GetAdaptersInfo
           |  |
           |  |---[dll]------   SetupDiSetClassInstallParams
           |  |
           |  |---[dll]------   SetupDiChangeState
           |  |
           |  |---[dll]------   取结构数据尺寸2
           |  |
           |  |---[dll]------   取结构数据尺寸3

调用的DLL命令:

.DLL命令 取结构数据尺寸, 整数型, , "LocalSize"
    .参数 结构数据, SP_DEVINFO_DATA

.DLL命令 RtlFreeAnsiString, 整数型, "ntdll.dll", "RtlFreeUnicodeString"
    .参数 AnsiString, PANSI_STRING

.DLL命令 RtlUnicodeStringToAnsiString, 整数型, "ntdll.dll", "RtlUnicodeStringToAnsiString"
    .参数 DestinationString, PANSI_STRING
    .参数 SourceString, PUNICODE_STRING
    .参数 AllocateDestinationString, 逻辑型

.DLL命令 取字节集变量地址_, 整数型, "kernel32.dll", "lstrcpyn", , ,
    .参数 数据1, 字节集, 传址, lpString1
    .参数 数据2, 字节集, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength

.DLL命令 SetupDiGetClassDevs, 整数型, "setupapi.dll", "SetupDiGetClassDevsA"
    .参数 ClassDriver
    .参数 Enumerator, 文本型
    .参数 hwndParent, 整数型
    .参数 Flags, 整数型

.DLL命令 SetupDiEnumDeviceInfo, 整数型, "setupapi.dll"
    .参数 DeviceInfoSet, 整数型
    .参数 MemberIndex, 整数型
    .参数 DeviceInfoData, SP_DEVINFO_DATA, 传址

.DLL命令 SetupDiGetDeviceRegistryProperty, 整数型, "setupapi.dll", "SetupDiGetDeviceRegistryPropertyA"
    .参数 DeviceInfoSet, 整数型
    .参数 DeviceInfoData, SP_DEVINFO_DATA, 传址
    .参数 Property, 整数型
    .参数 PropertyRegDataType, 整数型, 传址
    .参数 PropertyBuffer, 文本型
    .参数 PropertyBufferSize, 整数型
    .参数 RequiredSize, 整数型, 传址

.DLL命令 SetupDiGetDeviceInstanceId, 整数型, "setupapi.dll", "SetupDiGetDeviceInstanceIdA"
    .参数 DeviceInfoSet, 整数型
    .参数 DeviceInfoData, SP_DEVINFO_DATA, 传址
    .参数 DeviceInstanceId, 文本型
    .参数 DeviceInstanceIdSize, 整数型
    .参数 RequiredSize, 整数型, 传址

.DLL命令 GetLastError, 整数型, "kernel32.dll"

.DLL命令 RegOpenKey, 整数型, "advapi32.dll", "RegOpenKeyA", , 打开一个现有的注册表项  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 一个已打开项的句柄，或指定一个标准项名
    .参数 lpSubKey, 文本型, , 要打开的项名
    .参数 phkResult, 整数型, 传址, 指定一个变量，用于装载（保存）打开注册表项的一个句柄;

.DLL命令 RegCloseKey, 整数型, "advapi32.dll", "RegCloseKey", , 关闭系统注册表中的一个项（或键）  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 要关闭的项;

.DLL命令 RegFlushKey, 整数型, "advapi32.dll", "RegFlushKey", , 写出注册表缓存_, RegFlushKey，零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 标准项名或项句柄, 整数型, , hKey，Long，欲刷新的一个项的句柄，或指定一个标准项名

.DLL命令 RegSetValueEx, 整数型, "advapi32.dll", "RegSetValueExA", , RegSetValue，零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 一个已打开项的句柄，或指定一个标准项名
    .参数 pValueName, 文本型, , 要设置值的名字
    .参数 Reserved, 整数型, , 未用，设为零
    .参数 dwType, 整数型, , 要设置的数量类型
    .参数 lpData, 文本型, 传址, 包含数据的缓冲区中的第一个字节
    .参数 cbData, 整数型, , lpData缓冲区的长度

.DLL命令 RegQueryValueEx, 整数型, "advapi32.dll", "RegQueryValueExA", , 获取一个项的设置值  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 一个已打开项的句柄，或者指定一个标准项名
    .参数 lpValueName, 文本型, , 要获取值的名字
    .参数 lpReserved, 整数型, , 未用，设为零
    .参数 lpType, 整数型, 传址, 用于装载取回数据类型的一个变量
    .参数 lpData, 文本型, 传址, 用于装载指定值的一个缓冲区
    .参数 lpcbData, 整数型, 传址, 用于装载lpData缓冲区长度的一个变量。一旦返回，它会设为实际装载到缓冲区的字节数;

.DLL命令 SetupDiDestroyDeviceInfoList, 整数型, "setupapi.dll"
    .参数 DeviceInfoSet, 整数型

.DLL命令 GetAdaptersInfo, 整数型, "IPHlpApi.dll", "GetAdaptersInfo"
    .参数 IpAdapterInfo, IP_ADAPTER_INFO, 数组, Any
    .参数 pOutBufLen, 整数型, 传址

.DLL命令 SetupDiSetClassInstallParams, 整数型, "setupapi.dll", "SetupDiSetClassInstallParamsA"
    .参数 DeviceInfoSet, 整数型
    .参数 DeviceInfoData, SP_DEVINFO_DATA, 传址
    .参数 ClassInstallParams, SP_PROPCHANGE_PARAMS, 传址
    .参数 ClassInstallParamsSize, 整数型

.DLL命令 SetupDiChangeState, 整数型, "setupapi.dll"
    .参数 DeviceInfoSet, 整数型
    .参数 DeviceInfoData, SP_DEVINFO_DATA, 传址

.DLL命令 取结构数据尺寸2, 整数型, , "LocalSize"
    .参数 结构数据, SP_CLASSINSTALL_HEADER

.DLL命令 取结构数据尺寸3, 整数型, , "LocalSize"
    .参数 结构数据, SP_PROPCHANGE_PARAMS