觅风论坛

标题: 客户端与服务器连接例程 [打印本页]

作者: 雪域美女 时间: 2017-3-17 11:27
标题: 客户端与服务器连接例程

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

作者: qq1124824221 时间: 2017-3-23 01:40
学习一下！十分感谢

作者: 呵呵哒 时间: 2017-3-28 15:53
学习了，这就去试试

作者: yu1616 时间: 2017-4-3 06:07
顶一个了

作者: 唉唉唉 时间: 2017-4-8 20:20
碉堡了!

作者: 柠檬 时间: 2017-4-14 10:33
支持！！！！前排！！！！

作者: 123456 时间: 2017-4-14 10:34
前来支持~~~~~~~~~~~~~~~~~~~

作者: 海绵老爹 时间: 2017-4-14 10:34
谢谢楼主，，，收藏ing

作者: 柠檬 时间: 2017-4-14 10:35
学习一下！十分感谢

作者: 中国好叔叔 时间: 2017-4-14 10:36
碉堡了!

作者: 501369613 时间: 2017-4-14 10:36
感觉不错

作者: 无名使者 时间: 2017-4-14 10:43
前来支持~~~~~~~~~~~~~~~~~~~

作者: 莫天浩 时间: 2017-4-14 10:57
看帖子的要发表下看法

作者: 好吧你又赢了 时间: 2017-4-14 11:04
碉堡了!

作者: jackleos 时间: 2017-4-14 12:24
不错！顶LZ

作者: zxcasd123c1 时间: 2017-4-14 13:37
不错哦喜欢嘿嘿

作者: sdf 时间: 2017-4-14 14:50
碉堡了!

作者: 鸟文是帅逼 时间: 2017-4-14 16:03
赞一个!

作者: lllll557 时间: 2017-4-14 17:16
感觉不错

作者: 毛泽东 时间: 2017-4-14 17:32
支持！！！！！！

作者: 小麦555 时间: 2017-4-14 17:47
这个好好支持一下

作者: 哦美国 时间: 2017-4-14 18:03
不错哦喜欢嘿嘿

作者: gwm231 时间: 2017-4-14 18:18
顶起很好的帖

作者: 毛泽东 时间: 2017-4-14 18:34
支持！！！！前排！！！！

作者: 呵呵哒 时间: 2017-4-14 18:34
谢谢楼主的辛苦分享

作者: gwm231 时间: 2017-4-14 18:34
不错哦喜欢嘿嘿

作者: a1031399528a 时间: 2017-4-14 18:34
碉堡了!

作者: asd26297 时间: 2017-4-14 18:35
支持！！！！前排！！！！

作者: q12138 时间: 2017-4-14 18:35
感觉不错

作者: hui861140 时间: 2017-4-14 19:03
嘻嘻不错支持一个

作者: qq2556906318 时间: 2017-4-14 19:32
不错！顶LZ

作者: 星梦无痕 时间: 2017-4-14 20:00
感谢您的无私精神...

作者: 图样图森破丶 时间: 2017-4-14 20:28
顶起很好的帖

作者: 任逍遥 时间: 2017-4-14 20:57
抢楼了，前排第一次啊

作者: qq1354596367 时间: 2017-4-14 20:57
谢谢楼主的辛苦分享

作者: 呵呵哒 时间: 2017-4-14 20:58
很给力。。。。很喜欢

作者: 封偌丶 时间: 2017-4-14 20:59
很不错的哦，支持，加油

作者: haobaba45 时间: 2017-4-14 21:00
抢楼了，前排第一次啊

作者: 封偌丶 时间: 2017-4-14 21:01
前来围观，LZ好样的！

作者: 卧槽你妹 时间: 2017-4-14 21:06
支持！！！！！！

作者: 123456 时间: 2017-4-14 21:12
很给力。。。。很喜欢

作者: pei002 时间: 2017-4-14 21:17
不错不错支持下

作者: 图个简单 时间: 2017-4-14 21:22
学习一下！十分感谢

作者: 无痕 时间: 2017-4-14 21:28
支持一下，期待更多东西

作者: q13129841235 时间: 2017-4-14 21:29
不错不错支持下

作者: luoyunjie 时间: 2017-4-14 21:31
提示: 作者被禁止或删除内容自动屏蔽

作者: 1811581892 时间: 2017-4-14 21:33
赞一个!

作者: q13129841235 时间: 2017-4-14 21:34
支持！！！！前排！！！！

作者: 霸王喝粥 时间: 2017-4-14 21:36
感觉不错

作者: wz19981007 时间: 2017-4-14 21:56
学习了！！！！

作者: 哦美国 时间: 2017-4-14 22:17
很不错的哦，支持，加油

作者: 磊磊 时间: 2017-4-14 22:37
非常不错，感谢分享！

作者: 孤独 时间: 2017-4-14 22:57
前来围观，LZ好样的！

作者: 凌空 时间: 2017-4-14 23:17
感觉不错

作者: 追梦人201352 时间: 2018-11-25 14:55
66666666666666666666666666

作者: 奔放的牛 时间: 2020-6-30 13:09
牛逼克拉斯

作者: cczjw 时间: 2023-11-24 21:01
谢谢无偿贡献！

作者: 912396956@qq 时间: 2024-2-17 18:06
666牛逼666

欢迎光临觅风论坛 (https://www.eyyba.com/)