自动取U盘特征码修改版

全_USB_GUID ＝ { 16, 191, 220, 165, 48, 101, 210, 17, 144, 31, 0, 192, 79, 185, 81, 237 }
整_设备信息句柄 ＝ 打开USB类设备信息 ()
.如果真 (整_设备信息句柄 ＝ -1)
信息框 (“打开设备失败!”, #错误图标, )
返回 ()
.如果真结束
.判断循环首 (取下一个U盘 (整_设备信息句柄, 整_索引, 设备信息数据))
取硬件信息_序列号 (整_设备信息句柄, 设备信息数据, 取硬件信息_序列)
序列号数组 [i] ＝ 取硬件信息_序列
i ＝ i ＋ 1
.判断循环尾 ()
关闭USB类设备信息 (整_设备信息句柄)
.计次循环首 (取数组成员数 (序列号数组), j)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “第” ＋ 到文本 (j) ＋ “个U盘的序列号为：” ＋ 序列号数组 [j] ＋ #换行符
.计次循环尾 ()