马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
变量 客户端套接字句柄,IP="192.168.0.250",线程句柄
功能 按钮0_点击()
线程句柄=线程开启("发送接收","")
结束
功能 发送接收()
变量 i=0
if(编辑框获取文本("编辑框0") == "")
列表框增加文本("列表框0","发送信息不能为空!")
返回 真
end
var 文本=编辑框获取文本("编辑框0")
编辑框设置文本("编辑框0","")
列表框增加文本("列表框0","我: "&文本)
网络发送(客户端套接字句柄,"聊天信息: "&文本)
变量 接收到的数据
i=1
循环(真)
if(i == 0)
跳出
end
var 接收缓存
接收缓存 = 网络接收(客户端套接字句柄,接收到的数据)
如果(字符串长度(接收到的数据) > 0)
列表框增加文本("列表框0","服务端信息: "&接收到的数据)
否则
列表框增加文本("列表框0","与服务端通信不畅")
结束
等待(500)
结束
结束
功能 客户端_初始化()
网络初始化()
客户端套接字句柄=网络套接字(1)
变量 成功连接=网络连接(客户端套接字句柄,IP,9888)
如果(成功连接)
列表框增加文本("列表框0","与吧台建立连接成功,现在可以正常聊天了!")
结束
结束
问题 描述: 开启后可以正常和服务端聊天,服务端也能和客户端聊天,可服务端发了消息过后,客户端再发消息就发不出去了,报错为"不正确的列表框名:"列表框0""
但我看过了,列表框0 是正确的名字呀
|