如何把下面的代码做成模块呢？

ku888

  

子程序名	返回值类型	公开	备 注
检查磁盘

变量名	类 型	静态	数组	备 注
整_设备信息句柄	整数型
设备信息数据	_设备信息数据
整_索引	整数型
文_U盘本地名	文本型
注册码	文本型
id	整数型
硬盘特征	文本型
取硬件信息_序列	文本型
起始位置	整数型
文本	文本型

编辑框1.内容 ＝ “”
整_设备信息句柄 ＝ 打开USB类设备信息 ()
如果真 (整_设备信息句柄 ＝ -1)
' 信息框 (“打开设备失败!”, #错误图标, , )
返回 ()
判断循环首 (取下一个U盘 (整_设备信息句柄, 整_索引, 设备信息数据))
取硬件信息_序列号 (整_设备信息句柄, 设备信息数据, 取硬件信息_序列, )
' 输出调试文本 (取硬件信息_序列)
编辑框1.加入文本 (取硬件信息_序列 ＋ #换行符 )
判断循环尾 ()
起始位置 ＝ 寻找文本 (编辑框1.内容, “abcdefghijklmn”, , 假)
如果真 (起始位置 ≠ -1)
文本 ＝ 取文本中间 (编辑框1.内容, 起始位置, 取文本长度 (“abcdefghijklmn”))

如果真 (文本 ≠ “abcdefghijklmn”)
结束 ()
' 输出调试文本 (文本)
关闭USB类设备信息 (整_设备信息句柄)

.版本 2<br /> <br /> .子程序 检查磁盘<br /> .局部变量 整_设备信息句柄, 整数型<br /> .局部变量 设备信息数据, _设备信息数据<br /> .局部变量 整_索引, 整数型<br /> .局部变量 文_U盘本地名, 文本型<br /> .局部变量 注册码, 文本型<br /> .局部变量 id, 整数型<br /> .局部变量 硬盘特征, 文本型<br /> .局部变量 取硬件信息_序列, 文本型<br /> .局部变量 起始位置, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 编辑框1.内容 ＝ “”<br /> 整_设备信息句柄 ＝ 打开USB类设备信息 ()<br /> <br /> .如果真 (整_设备信息句柄 ＝ -1)<br />     ' 信息框 (“打开设备失败!”, #错误图标, , )<br />     返回 ()<br /> <br /> .如果真结束<br /> .判断循环首 (取下一个U盘 (整_设备信息句柄, 整_索引, 设备信息数据))<br /> <br />     取硬件信息_序列号 (整_设备信息句柄, 设备信息数据, 取硬件信息_序列, )<br />     ' 输出调试文本 (取硬件信息_序列)<br />     编辑框1.加入文本 (取硬件信息_序列 ＋ #换行符)<br /> .判断循环尾 ()<br /> 起始位置 ＝ 寻找文本 (编辑框1.内容, “abcdefghijklmn”, , 假)<br /> <br /> .如果真 (起始位置 ≠ -1)<br />     文本 ＝ 取文本中间 (编辑框1.内容, 起始位置, 取文本长度 (“abcdefghijklmn”))<br /> .如果真结束<br /> <br /> .如果真 (文本 ≠ “abcdefghijklmn”)<br />     结束 ()<br /> <br /> .如果真结束<br /> ' 输出调试文本 (文本)<br /> 关闭USB类设备信息 (整_设备信息句柄)

杯中水

  

子程序名	返回值类型	公开	备 注
检查磁盘	文本型

变量名	类 型	静态	数组	备 注
整_设备信息句柄	整数型
设备信息数据	_设备信息数据
文_U盘本地名	文本型
取硬件信息_序列	文本型
起始位置	整数型
文本	文本型
数据	文本型

整_设备信息句柄 ＝ 打开USB类设备信息 ()
如果真 (整_设备信息句柄 ＝ -1)
返回 (“打开设备失败”)
判断循环首 (取下一个U盘 (整_设备信息句柄, 整_索引, 设备信息数据))
取硬件信息_序列号 (整_设备信息句柄, 设备信息数据, 取硬件信息_序列, )
文本 ＝ 文本 ＋ 取硬件信息_序列 ＋ #换行符
判断循环尾 ()
起始位置 ＝ 寻找文本 (文本, “abcdefghijklmn”, , 假)
如果真 (起始位置 ≠ -1)
数据 ＝ 取文本中间 (文本, 起始位置, 取文本长度 (“abcdefghijklmn”))
如果真 (数据 ≠ “abcdefghijklmn”)
返回 (“”)
' 输出调试文本 (文本)
关闭USB类设备信息 (整_设备信息句柄)
返回 (数据)

.版本 2<br /> <br /> .子程序 检查磁盘, 文本型, 公开<br /> .局部变量 整_设备信息句柄, 整数型<br /> .局部变量 设备信息数据, _设备信息数据<br /> .局部变量 文_U盘本地名, 文本型<br /> .局部变量 取硬件信息_序列, 文本型<br /> .局部变量 起始位置, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 数据, 文本型<br /> <br /> <br /> 整_设备信息句柄 ＝ 打开USB类设备信息 ()<br /> .如果真 (整_设备信息句柄 ＝ -1)<br />     返回 (“打开设备失败”)<br /> .如果真结束<br /> .判断循环首 (取下一个U盘 (整_设备信息句柄, 整_索引, 设备信息数据))<br />     取硬件信息_序列号 (整_设备信息句柄, 设备信息数据, 取硬件信息_序列, )<br />     文本 ＝ 文本 ＋ 取硬件信息_序列 ＋ #换行符<br /> .判断循环尾 ()<br /> 起始位置 ＝ 寻找文本 (文本, “abcdefghijklmn”, , 假)<br /> .如果真 (起始位置 ≠ -1)<br />     数据 ＝ 取文本中间 (文本, 起始位置, 取文本长度 (“abcdefghijklmn”))<br /> .如果真结束<br /> .如果真 (数据 ≠ “abcdefghijklmn”)<br />     返回 (“”)<br /> .如果真结束<br /> ' 输出调试文本 (文本)<br /> 关闭USB类设备信息 (整_设备信息句柄)<br /> 返回 (数据)

大司命

新建-易语言模块！写入相关代码，设置传参，自定义类型等，公开子程序，编译即可~

Sunfish

......................新建易语言模块

ku888

大司命 发表于 2019-8-4 16:22
新建-易语言模块！写入相关代码，设置传参，自定义类型等，公开子程序，编译即可~

水平有限。。能否帮忙写个？谢谢