客户端(如下代码):
版本
2
程序集
窗口程序集1
子程序
_按钮1_被单击
如果
(客户1连接
(“127001”,
8888))
否则
信息框
(“连接失败”,
0,
)
如果结束
子程序
_按钮2_被单击
客户1发送数据
(发送编辑框内容)
子程序
_客户1_数据到达
接收编辑框内容
=
到文本
(客户1取回数据
())
子程序
__启动窗口_创建完毕
服务器(如下代码):
版本
2
程序集
窗口程序集1
子程序
_服务器1_客户进入
列表框1加入项目
(服务器1取回客户
(),
)
子程序
_服务器1_数据到达
接收编辑框内容
=
到文本
(服务器1取回数据
())
子程序
_按钮2_被单击
服务器1发送数据
(列表框1取项目文本
(列表框1现行选中项),
发送编辑框内容,
)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)