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