获取电脑硬件信息可破VMP SE WinLicense绑定机器码

写到文件 (取运行目录 () ＋ “\硬件信息.txt”, 到字节集 (编辑框1.内容))
置剪辑板文本 (编辑框1.内容)
信息框 (“已经复制硬件信息,目录也生成一个文件硬件信息.txt和BIOS.REG”, 0, “将硬件信息.txt和BIOS.REG发给我就可以了”, 窗口1)

objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ) ' 创建WMI对象
strServe ＝ “.”
strNamespace ＝ “root\CIMV2”
strWSQL ＝ “Select * from Win32_SoundDevice” ' 查询网卡信息并且网卡速度不等于空
WbemServices ＝ objWbemLocator.对象型方法 (“ConnectServer”, strServe, strNamespace, , , , , , ) ' 连接服务器
wbemObjectSet ＝ WbemServices.对象型方法 (“ExecQuery”, strWSQL, , , ) ' 查询
枚举器.取枚举接口 (wbemObjectSet)
.如果 (wbemObjectSet.是否为空 () ＝ 假)
清除数组 (usbdiskInfo)
.计次循环首 (wbemObjectSet.读数值属性 (“Count”, ), i)
枚举器.枚举 (接口)
SWbemObject ＝ 接口.取对象 (i － 1)
Object ＝ SWbemObject.读对象型属性 (“Properties_”, )
' 本源码来自易语言资源网(www.5A5X.com)
tmpInfo.Name ＝ Object.对象型方法 (“Item”, “Name”).读属性 (“Value”, ).取文本 ()
tmpInfo.Manufacturer ＝ Object.对象型方法 (“Item”, “Manufacturer”).读属性 (“Value”, ).取文本 ()
加入成员 (usbdiskInfo, tmpInfo)
.计次循环尾 ()
返回 (nCount)
.否则
返回 (-1)