|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我用官方给的例子建一个简单的server端,但是程序容易没反应是什么问题,求高手解答
下面是代码,官方给的,没做改动
function start_click()
netwsastartup() //初始化网络环境
var ServerHandle=netsocket(1) //创建流式(TCP)套接字
netbind(ServerHandle,9999) //开启了计算机的9999端口,供外界连接
netlisten(ServerHandle,5) //**套接字,设置可连接数为5个
var rIP,SendTemp="客户端,你好,我是服务器",rRcvTemp
while(true) //循环接受处理连接
var ClientHandle=netaccept(ServerHandle,rIP)//这里程序会挂起等待,直到有客户端连接到来
netsend(ClientHandle,SendTemp)//向指定客户端发送一串字符串
netrecv(ClientHandle,rRcvTemp) //接收从客户端发送的字串
messagebox(rRcvTemp) //打印从客户端接收的字串
netclosesocket(ClientHandle) //关闭套接字释放资源
if(rRcvTemp=="关闭") //客户端如果发送 关闭 服务器将关闭
messagebox("服务器关闭")
break
end
end
netclosesocket(ServerHandle) //关闭套接字释放资源
netclose() //关闭网络环境释放资源
end
//退出按钮_点击操作
function exit_click()
exit()
end
|
|