|

分享源码
界面截图: |
|
是否带模块: |
调用了模块 |
备注说明: |
- |
[e]
.版本 2
.支持库 spec
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 n, 文本型
U盘识别 (“60A44C413B99BE31E99800E1”, n)
调试输出 (n)
.子程序 U盘识别, , , 通过序列号识别到U盘盘符
.参数 序列号, 文本型, , U盘序列号
.参数 盘符, 文本型, , 接收盘符变量
.局部变量 系统信息, 系统信息
.局部变量 路径, 文本型
.局部变量 zc表, zc表操作
.局部变量 列表, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 临时盘符, 文本型
.局部变量 驱动列表, 文本型, , "0"
取系统信息 (系统信息)
驱动列表 = 取驱动器列表 (3)
.如果 (系统信息.操作系统 = “Windows 7”)
路径 = “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\WpdBusEnumRoot\UMB”
.否则
路径 = “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\SWD\WPDBUSENUM”
.如果结束
zc表.枚举子项 (路径, 列表)
.计次循环首 (取数组成员数 (列表), 计次)
.如果真 (寻找文本 (列表 [计次], 序列号, , 假) ≠ -1)
临时盘符 = zc表.取字符串值 (路径 + “\” + 列表 [计次], “FriendlyName”)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果 (取文本长度 (临时盘符) = 3 且 寻找文本 (临时盘符, “:”, , 假) ≠ -1)
.计次循环首 (取数组成员数 (驱动列表), 计次)
.如果真 (驱动列表 [计次] + “\” = 临时盘符)
盘符 = 临时盘符
跳出循环 ()
.如果真结束
.计次循环尾 ()
.否则
.计次循环首 (取数组成员数 (驱动列表), 计次)
.如果真 (取磁盘卷标 (驱动列表 [计次]) = 临时盘符)
盘符 = 驱动列表 [计次] + “\”
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果结束
[/e]
之前提问区 的问题 经过测试的出来的方法 欢迎大家在测试一下 有无BUG
|
-
-
U盘.e
765.47 KB, 下载次数: 121, 下载积分: 精币 -2 枚
评分
-
查看全部评分
|