|
楼主 |
发表于 2016-6-5 13:10:40
|
显示全部楼层
功能 服务端()
变量 客户端IP,长度
网络.初始化()
服务端套接字句柄=网络.套接字(1)
网络.绑定(服务端套接字句柄,9999)
网络.**(服务端套接字句柄,100)
调试输出("服务端开启成功")
循环(真)
客户端套接字句柄=网络.接受(服务端套接字句柄,客户端IP)
如果(客户端套接字句柄>0)
如果(是否重定义)
线程句柄=数组空间.重定义(线程句柄,真,大小+1)
端口数组=数组空间.重定义(端口数组,真,大小+1)
服务端句柄=数组空间.重定义(服务端句柄,真,大小+1)
客户端句柄=数组空间.重定义(客户端句柄,真,大小+1)
如果结束
调试输出(客户端IP)
端口=大小+8000
端口数组[大小]=端口
网络.发送(客户端套接字句柄,端口数组[大小])//发送端口给客户机
线程句柄[大小]=线程.开启("网络通讯服务端.接收消息",端口)
网络.关闭套接字(客户端套接字句柄)
//端口++
大小++
数组空间.大小(端口数组,长度)
如果(长度!=大小)
大小=长度
如果结束
是否重定义=真
如果结束
辅助.等待(100)
循环结束
服务器端好像不需要写什么ip呀??? |
|