马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
看看你能翻译成中文吗?
留言翻一下试试
空间 对话框
开启服务器线程句柄,发送状态句柄
功能 初始化()
开启服务器线程句柄=线程.开启("对话框.开启服务器","")
发送状态句柄=线程.开启("对话框.发送状态","")
功能结束
服务器套接字句柄
功能 开启服务器()
辅助.等待(3000)
列表框.增加文本("列表框70","服务器已开启","对话框")
网络.初始化() //初始化网络环境
服务器套接字句柄=网络.套接字(2) //创建数据报(UDP)套接字
网络.绑定(服务器套接字句柄,9999) //开启了计算机的9999端口,供外界连接
变量 rPort
变量 接收缓存,rIP,返回昵称
循环(真)
网络.接收来自(服务器套接字句柄,接收缓存,100,rIP,rPort)
如果(字符串.查找字符串(接收缓存,"餮叅糍客户端|")==1)
字符串.分割(接收缓存,"|",返回昵称)
用户=列表框.得到个数("列表框71","对话框")
如果(用户>0)
K=0
遍历(i=0;i<用户;i++)
如果(列表框.获得文本("列表框71",i,"对话框")==返回昵称[1])
接收缓存=""
跳出
否则
K++
如果结束
遍历结束
如果(K<用户)
否则
列表框.增加文本("列表框71",返回昵称[1],"对话框")
接收缓存=""
如果结束
否则
列表框.增加文本("列表框71",返回昵称[1],"对话框")
接收缓存=""
如果结束
否则
如果(接收缓存=="")
否则
如果(字符串.长度(接收缓存)>8)
遍历(i=0;i<字符串.长度(接收缓存)/8;i++)
列表框.增加文本("列表框70",字符串.截取(接收缓存,i*8,i*8+8),"对话框")
遍历结束
如果结束
接收缓存=""
如果结束
如果结束
循环结束
功能结束
功能 发送()
控件.有效("编辑框70",假,"对话框")
遍历(i=0;i<100;i++)
IP="172.168.1."&i
网络.发送到(服务器套接字句柄,编辑框.获得文本("编辑框3","猎人")&":"&编辑框.获得文本("编辑框70","对话框"),IP,9999) //向指定地址端发送一串字符串
遍历结束
控件.有效("编辑框70",真,"对话框")
功能结束
功能 关闭功能()
网络.关闭套接字(服务器套接字句柄)
网络.关闭()
功能结束
功能 发送状态()
辅助.等待(20000)
循环(真)
遍历(i=0;i<100;i++)
IP="172.168.1."&i
网络.发送到(服务器套接字句柄,"饕餮叅糍客户端|"&编辑框.获得文本("编辑框3","猎人"),IP,9999)//向指定服务器发送一串字符串
遍历结束
循环结束
功能结束
功能 按钮70_点击()
对话框.发送()
编辑框.设置文本("编辑框70","","对话框")
功能结束
//退出控制——————————————————————
功能 销毁()
//这里添加你要执行的代码
线程.开启("对话框.关闭对话框","")
功能结束
//点击关闭_执行操作
功能 对话框_关闭()
线程.开启("对话框.关闭对话框","")
功能结束
功能 关闭对话框()
网络.关闭套接字(服务器套接字句柄)
网络.关闭()
线程.关闭(开启服务器线程句柄)
线程.关闭(发送状态句柄)
复选框.选中("复选框15",假,"猎人")
辅助.等待(1000)
控件.关闭窗口("对话框",0)
功能结束
空间结束
//空间结束语句
|
/2 
发表于 2014-9-25 21:25:02
楼主