局域网操作共享打印机软件例程

.判断循环首 (取反 (已加入 [1] 且 已加入 [2] 且 已加入 [3])) ' 只有三个列表框都填充完毕才结束循环
处理事件 ()
延时 (1)
.如果真 (取启动时间 () － 时间 ＞ #超时)
信息框 (“操作超时，本程序即将结束！请稍后重新运行本程序。”, #信息图标, )
结束 ()
.如果真结束
.判断开始 (取共享文件夹结束 且 已加入 [1] ＝ 假) ' 如果取共享文件夹结束，且共享文件夹没有加入对应的列表框
共享文件夹标签.可视 ＝ 假 ' 显示出下面的编辑框
.变量循环首 (1, 取数组成员数 (共享文件夹), 1, 索引)
共享文件夹列表框.加入项目 (共享文件夹 [索引], )
.变量循环尾 ()
已加入 [1] ＝ 真 ' 置标志，防止重复加入
取共享文件夹时间.标题 ＝ “耗时：” ＋ 到文本 ((取启动时间 () － 时间) ÷ 1000) ＋ “秒”
.判断 (取共享打印机结束 且 已加入 [2] ＝ 假)
共享打印机标签.可视 ＝ 假
.变量循环首 (1, 取数组成员数 (共享打印机), 1, 索引)
共享打印机列表框.加入项目 (共享打印机 [索引], )
.变量循环尾 ()
已加入 [2] ＝ 真
取共享打印机时间.标题 ＝ “耗时：” ＋ 到文本 ((取启动时间 () － 时间) ÷ 1000) ＋ “秒”
.判断 (取主机名结束 且 已加入 [3] ＝ 假)
主机名标签.可视 ＝ 假
.变量循环首 (1, 取数组成员数 (主机名), 1, 索引)
主机名列表框.加入项目 (主机名 [索引], )
.变量循环尾 ()
已加入 [3] ＝ 真
取主机名时间.标题 ＝ “耗时：” ＋ 到文本 ((取启动时间 () － 时间) ÷ 1000) ＋ “秒”

.默认

.判断结束

.判断循环尾 ()
信息框 (“共享文件夹：” ＋ 到文本 (取数组成员数 (共享文件夹)) ＋ “个” ＋ #换行符 ＋ “共享打印机：” ＋ 到文本 (取数组成员数 (共享打印机)) ＋ “个” ＋ #换行符 ＋ “主机名：” ＋ 到文本 (取数组成员数 (主机名)) ＋ “个” ＋ #换行符 ＋ “请在取得的项目上单击鼠标右键，进行相应的操作！”, #信息图标, “用时：” ＋ 到文本 (取启动时间 () － 时间))