客户端与服务器连接例程

服务器例程
事件 按钮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)
否则
信息框("提示","连接服务器失败！即将退出！","好吧- 。-")
结束程序()
结束  如果
结束 事件

学习一下！十分感谢

学习了，这就去试试

顶一个了

碉堡了!

支持！！！！前排！！！！

前来支持~~~~~~~~~~~~~~~~~~~

谢谢楼主，，，收藏ing

学习一下！十分感谢

碉堡了!