client
-----------------------------------------
class talkwnd:wnd{
RegClientGroup();
autowidth=100;
autoheight=100;
bk:=color(#003300);
obj m_pMain;
class richtext:textdoc{
pos=8,8;
autowidth=100,-16;
autoheight=100,-52;
bk:=round(#FFCC66,-4,-4,8,1);
obj m_pScroll=new listscroll;
void OnViewChanged(){
m_pScroll.OnViewChge();
}
void OnAdd(string txt){
addline=txt;
viewoffset=0,50000;
}
}
obj m_pSayText;
class say:text{
src="Say:";
xpos=5;
valign=100,-30;
};
m_pSayText=new say;
class input:edit{
maxnum=80;
xpos=40;
height=16;
autowidth=100,-50;
valign=100,-32;
bk~a:=color(#333399);
bk:=rect(0,#3333CC);
void OnEnter(){
pid.m_pMain.TalkTo(src);
src="";
}
}
class 通讯:socketc{
defcreatewnd=pid;
userinfo="talk","user","dj"+str(rand(100)),"123";
c;
c;
};
obj m_pList=new richtext;
obj m_pEdit=new input;
obj m_pSocketc=new 通讯;
class 其他用户:wnd{
string m_sUserName;
void NetTalk(string talker,string msg){
string txt="\#FFFFCC"+talker+"说:\#FFFF00"+msg;
pid.m_pList.OnAdd(txt);
}
void RemoteCreate(string username,string group){
m_sUserName=username;
string msg;
msg=m_sUserName+"来了";
pid.m_pList.OnAdd(msg);
}
void OnDestroy()
{
string msg;
msg=m_sUserName+"走了";
pid.m_pList.OnAdd(msg);
}
}
class 用户:其他用户{
pid.m_pMain=this;
void TalkTo(string msg){
tos<<OnTalk(m_sUserName,msg);
}
void CreatePlayer(string username){
m_sUserName=username;
}
void OnTestMsg(var v)
{
pid.m_pList.OnAdd(v.type+v.str);
}
void Test(){
var v=(1,2,3,"aaa");
tos<<OnTest(v);
}
}
new CmdBtn("List","pid.m_pMain.Test()");
}
bk:=null;
<talkwnd>;
--------------------------------------------------------
server
----------------------------------------------------------
<wnd>{
obj m_pServer=new sockets;
m_pServer.start=11000;
pid.style='font-size:10px'00,120;
size=pid.size;
RegWebGroup(m_pServer,"talk");
class user:wnd{
string m_sMyname;
void OnTalk(string talker,string msg)
{
tog<<NetTalk(talker,msg);
}
var Create()
{
return ("RemoteCreate",m_sMyname,"talk");
}
void OnWebPlayerCreate(string username,string pass,string address,string extmsg)
{
m_sMyname=username;
RegWebPlayer("用户");
toc<<CreatePlayer(username);
RegWebObj("其他用户","Create");
}
void OnTest(var v)
{
toc<<OnTestMsg(v);
}
}
}
分享到:
相关推荐
FCC 图标
FCC是一门类似于C++的游戏脚本语言,只有业内少数公司使用,但也不排除有编程游戏爱好者想了解,却无法得知其中的东西...好东西,要推广的!
FCC part 18 standard
进行了从体心立方(bcc)到面心立方(fcc)结构的相变的分子动力学模拟。 应用摩尔斯型函数,并确定参数,以使fcc和bcc结构对于理想晶体模型均稳定。 当fcc结构优于bcc结构时,bcc模型转换为fcc。 考虑了基于贝恩和...
FCC标准,FCC标准,FCC标准,国际电器标准FCC标准,
FCC part 15 standard
杰理蓝牙芯片定频测试软件,支持WIN XP WIN7系统。 支持FCC CE KC CCC认证
FCC part 15是美国关于电子电气设备(非ISM应用频段)的电磁兼容及频谱性能相关法规。 本版本为最新版本。
Djigo 4.1.3 - Auto FCC No Update and Firm Check ru route
FCC前端demo合集
最新大疆FCC信号增强补丁.apk
FCC介绍pdf,本资源主要是针对FCC的认证介绍,包含FCC认证流程、FCC认证样机、办理FCC认证需提交的资料、FCC认证收费标准等方面的知识介绍。
FCC全称是Federal Communications Commission,中文为美国联邦通信委员会。于1934年根据Communications Act建立,是美国政府的一个独立机构,直接对国会负责。FCC通过控制无线电广播、电视、电信、卫星和电缆来协调...
5G-FCC标准总结.xlsx
在 FCC Part15 相关条款中,制造厂商或进口销售商可因应不同的装置或 产品类别,选择以 Verification 自我确认 、 DoC 符合性声明 或 Certification FCC ID 认证 其中之一种的 FCC 认可方式。
HASSELBLAD哈苏205FCC使用说明书.PDF
基于BT 模块的FCC 认证资料,能够帮助小白迅速了解产品过FCC的相关测试项目,旨在帮助客户能够应对各种突发现象
IPTV机顶盒,FCC/FEC/RET/SQM原理讲解及实现方法。。。
FCC测试项目2014.pdf
FCC常用的一些KDB,包扩wifi(DTS),蓝牙(Buletooth),就一些问题的FCC的官方答复。