UDP通讯

事件 主窗口.创建完毕()
    
结束 事件

变量 监听状态 为 逻辑型
变量 监听端口 为 整数型
事件 按钮1.被单击()
    如果 监听状态 = 假 则
        监听端口 = 编辑框1.内容
        数据报1.开始监听(监听端口)
        监听状态 = 真
        弹出提示("UDP开始监听！")
    否则
        数据报1.停止监听()
        监听状态 = 假
        弹出提示("UDP停止监听！")
    结束 如果
结束 事件

事件 按钮2.被单击()
    如果 监听状态 = 真 则
        如果 取文本长度(编辑框2.内容) > 0 则
            数据报1.发送数据(文本到字节(编辑框2.内容,"GBK"),"255.255.255.255",监听端口)
            弹出提示("发送消息成功！")
        否则
            弹出提示("发送消息为空！")
        结束 如果
    否则
        弹出提示("UDP未开启！")
    结束 如果
结束 事件


事件 按钮3.被单击()
    如果 监听状态 = 真 则
        如果 取文本长度(编辑框2.内容) > 0 则
            数据报1.发送数据(文本到字节(编辑框2.内容,"GBK"),编辑框3.内容,监听端口)
            弹出提示("发送消息成功！")
        否则
            弹出提示("发送消息为空！")
        结束 如果
    否则
        弹出提示("UDP未开启！")
    结束 如果
结束 事件

事件 数据报1.收到数据(数据 为 字节型(),IP地址 为 文本型,端口 为 整数型)
    列表框1.添加项目(IP地址 & "::" & 整数到文本(端口) & ": " & 字节到文本(数据,"GBK")) 
结束 事件

变量 启动时间 为 长整数型
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
    如果 键代码 = 返回键 则
        如果 取启动时间() - 启动时间 >2000 则
            弹出提示("再按一次退出程序")
            启动时间 = 取启动时间()
        否则 
            结束程序()
        结束 如果
    结束 如果
结束 事件