局域网文件传输

.如果 (客户1.连接 (编辑框1.地址, 9000))
.如果真 (通用对话框1.文件名 ＝ “”)
信息框 (“您未选择要传送的文件!”, 0, “提示!”)
.如果真结束
.如果真 (通用对话框1.文件名 ≠ “”)
客户1.发送数据 (“[请求]”)
.如果真结束

.否则
标签3.标题 ＝ “连接失败!”
_启动窗口.标题 ＝ “连接失败!”
信息框 (“连接失败!”, 0, “提示!”)
标签3.标题 ＝ “”
_启动窗口.标题 ＝ “文件传输”