动态变更MAC控制台

.计次循环首 (10, i)
ComponentId ＝ 取文本注册项 (4, “SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\000” ＋ 到文本 (i) ＋ “\ComponentId”, )
DriverDesc ＝ 取文本注册项 (4, “SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\000” ＋ 到文本 (i) ＋ “\DriverDesc”, )
NetworkAddress ＝ 取文本注册项 (4, “SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\000” ＋ 到文本 (i) ＋ “\NetworkAddress”, )
.如果真 (NetworkAddress ≠ “”)
NetworkAddress ＝ 取文本中间 (NetworkAddress, 1, 2) ＋ “-” ＋ 取文本中间 (NetworkAddress, 3, 2) ＋ “-” ＋ 取文本中间 (NetworkAddress, 5, 2) ＋ “-” ＋ 取文本中间 (NetworkAddress, 7, 2) ＋ “-” ＋ 取文本中间 (NetworkAddress, 9, 2) ＋ 取文本中间 (NetworkAddress, 11, 2)
标准输出 (, “>原网卡地址为：” ＋ NetworkAddress ＋ #换行符)
.如果真结束
.如果真 (到小写 (取文本左边 (ComponentId, 7)) ＝ 到小写 (“PCI\VEN”))
临时数组 ＝ 分割文本 (ComponentId, “&”, )
硬件表示 ＝ 临时数组 [1]
调试输出 (硬件表示)
网卡id ＝ i
.如果真结束

.计次循环尾 ()
.如果真 (制定网卡地址 ＝ “”)
制定网卡地址 ＝ “00” ＋ 到文本 (取随机数 (11, 99)) ＋ 到文本 (取随机数 (11, 99)) ＋ 到文本 (取随机数 (11, 99)) ＋ 到文本 (取随机数 (11, 99)) ＋ 到文本 (取随机数 (11, 99))
.如果真结束
标准输出 (, “>正在写入新 MAC地址<” ＋ 制定网卡地址 ＋ “>....”)
.如果 (写注册项 (4, “SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\000” ＋ 到文本 (网卡id) ＋ “\networkaddress”, 制定网卡地址) ＝ 真)
设置颜色 (#K_绿)
标准输出 (, “写入成功” ＋ #换行符)
设置颜色 ()
.否则
设置颜色 (#K_红)
标准输出 (, “写入失败” ＋ #换行符)
设置颜色 ()