马上注册,结交更多易友,享用更多功能,让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看,没有账号?立即注册
x
服务器例程
事件 按钮1.被单击()
标签1.标题 = "外网IP:" & 取外网IP()
标签2.标题 = "内网IP:" & WIFI管理1.取内网IP()
服务器1.启动服务器(8090) '启动服务器,监听8090端口
结束 事件
事件 服务器1.客户进入(IP地址 为 文本型,端口 为 整数型)
标签3.标题 = "IP:" & IP地址 & " 端口:" & 端口
结束 事件
事件 服务器1.收到数据(数据 为 字节型(),IP地址 为 文本型,端口 为 整数型)
弹出提示("收到数据:" & 字节到文本(数据,"GBK") & "IP" & IP地址 & "端口" & 端口)
服务器1.发送数据(文本到字节("收到信息","GBK"),IP地址,端口)
结束 事件
事件 服务器1.客户离开(IP地址 为 文本型,端口 为 整数型)
弹出提示("客户离开:" & IP地址)
结束 事件
事件 按钮2.被单击()
服务器1.关闭服务器()
结束 事件
客户端例程
事件 按钮_连接.被单击()
客户1.连接服务器(编辑框_ip.内容," 8090",5000) ‘输入服务器外网ip
结束 事件
事件 客户1.连接完毕(连接结果 为 逻辑型)
如果 连接结果=真 则
编辑框_ip.可视 = 假
按钮_连接.可视 = 假
标签1.可视 = 假
弹出提示("连接服务器成功")
保存客户("客户1",客户1)
否则
信息框("提示","连接服务器失败!即将退出!","好吧- 。-")
结束程序()
结束 如果
结束 事件
|
|