易语言读取电脑串号

易语言读取电脑串号

在易语言中，可以通过调用 Windows API 来获取电脑的串号（如计算机的 UUID）。下面是一个简单的示例，演示如何使用易语言读取电脑的 UUID。

.版本 2
.支持库 shell32

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
    .局部变量 uuid, 文本型
    uuid ＝ 读取电脑串号()
    如果 (uuid ！= "")  // 如果成功读取到串号
        信息框("电脑串号: " + uuid, 0, "串号")
    否则
        信息框("无法读取电脑串号", 0, "错误")

.子程序 读取电脑串号, 文本型
    .局部变量 wmi服务, 整数型
    .局部变量 结果, 文本型
    .局部变量 查询, 文本型
    .局部变量 记录集, 整数型

    wmi服务 ＝ 创建对象("WbemScripting.SWbemLocator")
    结果 ＝ ""

    如果 (wmi服务)
        记录集 ＝ wmi服务.ConnectServer("localhost", "root\CIMV2").ExecQuery("SELECT UUID FROM Win32_ComputerSystemProduct")
        如果 (记录集)
            .局部变量 记录, 整数型
            记录 ＝ 记录集.GetEnumerator()
            如果 (记录.MoveNext())
                结果 ＝ 记录.Current.UUID
            结束
        结束
    结束

    返回 结果

说明：

1. WMI：该代码使用了 Windows Management Instrumentation (WMI) 来查询电脑的 UUID。
2. 创建对象：通过创建 WbemScripting.SWbemLocator 的对象来连接到 WMI 服务。
3. 查询：执行 WMI 查询以获取 Win32_ComputerSystemProduct 类中的 UUID。
4. 返回结果：如果成功获取到 UUID，则返回该值；否则返回空字符串。

请注意，执行此代码需要相应的权限，确保你有权限访问 WMI 服务。希望这个示例对你有帮助！

易语言读取电脑串号

在易语言中，可以通过调用 Windows Management Instrumentation (WMI) 来读取电脑的串号（UUID）。通过创建 WbemScripting.SWbemLocator 对象并连接到 WMI 服务，可以执行查询以获取 Win32_ComputerSystemProduct 类中的 UUID。成功读取后，可以将其显示在信息框中，若未能读取，则提示错误。确保在执行此操作时具备相应的权限。