用官方给的网络程序例子运行怎么容易卡

hsucceed

我用官方给的例子建一个简单的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

一只熊

这玩意是网络套接字 var ClientHandle=netaccept(ServerHandle,rIP)//这里程序会挂起等待,直到有客户端连接到来 到这里的时候程序就挂起了，当然卡了，所以你要用线程执行这段代码，而不是用按钮点击

qq1208711869

安卓的？