具体代码如下：
1。服务器端代码：
< PHP
类的SocketServer {
私人_port美元= '9000；
私人_address美元= '127.0.0.1；
私人_client_socket_list美元=阵（）；
公共功能__set（$name，$ Val）{
$ $ > $ name；
}
私有函数_showerror（$错误）{
退出（错误）；
}
*启动套接字服务器端侦听器端口
* /
公共函数开始（）{
创建端口
如果（（$袜子= socket_create（af_inet，sock_stream，sol_tcp））= = = false）{
美元-> _showerror（socket_create（）失败：原因：。socket_strerror（socket_last_error（））））；
}
绑定
如果（socket_bind（$袜子-> _address美元，美元-> _port）= false）{
美元-> _showerror（socket_bind（）失败：原因：。socket_strerror（socket_last_error（$袜子）））；
}
监视器
如果（socket_listen（美元的袜子，5）= = = false）{
美元-> _showerror（socket_bind（）失败：原因：。socket_strerror（socket_last_error（$袜子）））；
}
{做
当客户机连接时
如果（$ client_socket = socket_accept（$袜子））{
$count =计数（美元-> _client_socket_list）+ 1；
将新用户添加到数组中的客户机中
美元-> _client_socket_list { } = $ client_socket；
新建连接：服务器输出当前连接的客户号
当前连接：{ $ }；
接受客户端传递字符串
$ msg =美元->读（$ client_socket）；
客户机；
服务器到客户机值
my_msg美元=我很好，想你 R；
美元->发送（client_socket美元，美元my_msg）；
}
*本节代码将提供参考，以确定客户端是否已丢失连接。
别的{
foreach（美元-> _client_socket_list达插座）{
len = socket_recv美元（美元$缓冲，插座，2048, 0）； / /接受客户的信息，如果0表示断开
如果（$＜7）{
这里是写/客户服务
}
}
}
* /
}（true）；
}
*向客户端发送数据
* /
公共功能发送（$ client_socket，$str）{
返回socket_write（$ client_socket，$str，strlen（str））；
}
*接受来自客户端的数据
* /
公共阅读功能（$ client_socket）{
返回socket_read（client_socket美元，8192）； / / 8192的实际代表接受的长度，我用819292来表示一个时间点，这样一个较长的字符串也可以接受，低于8192，不要紧，它会自动识别。
}
}
socket_server美元=新的Socket服务器（）；
（$ socket_server ->启动）； / /监控
2。客户端代码：
< PHP
类的SocketServer {
私人_port美元= '9000；
私人_address美元= '127.0.0.1；
私人_client_socket_list美元=阵（）；
公共功能__set（$name，$ Val）{
$ $ > $ name；
}
私有函数_showerror（$错误）{
退出（错误）；
}
*启动套接字服务器端侦听器端口
* /
公共函数开始（）{
创建端口
如果（（$袜子= socket_create（af_inet，sock_stream，sol_tcp））= = = false）{
美元-> _showerror（socket_create（）失败：原因：。socket_strerror（socket_last_error（））））；
}
绑定
如果（socket_bind（$袜子-> _address美元，美元-> _port）= false）{
美元-> _showerror（socket_bind（）失败：原因：。socket_strerror（socket_last_error（$袜子）））；
}
监视器
如果（socket_listen（美元的袜子，5）= = = false）{
美元-> _showerror（socket_bind（）失败：原因：。socket_strerror（socket_last_error（$袜子）））；
}
{做
当客户机连接时
如果（$ client_socket = socket_accept（$袜子））{
$count =计数（美元-> _client_socket_list）+ 1；
将新用户添加到数组中的客户机中
美元-> _client_socket_list { } = $ client_socket；
新建连接：服务器输出当前连接的客户号
当前连接：{ $ }；
接受客户端传递字符串
$ msg =美元->读（$ client_socket）；
客户机；
服务器到客户机值
my_msg美元=我很好，想你 R；
美元->发送（client_socket美元，美元my_msg）；
}
*本节代码将提供参考，以确定客户端是否已丢失连接。
别的{
foreach（美元-> _client_socket_list达插座）{
len = socket_recv美元（美元$缓冲，插座，2048, 0）； / /接受客户的信息，如果0表示断开
如果（$＜7）{
这里是写/客户服务
}
}
}
* /
}（true）；
}
*向客户端发送数据
* /
公共功能发送（$ client_socket，$str）{
返回socket_write（$ client_socket，$str，strlen（str））；
}
*接受来自客户端的数据
* /
公共阅读功能（$ client_socket）{
返回socket_read（client_socket美元，8192）； / / 8192的实际代表接受的长度，我用819292来表示一个时间点，这样一个较长的字符串也可以接受，低于8192，不要紧，它会自动识别。
}
}
socket_server美元=新的Socket服务器（）；
（$ socket_server ->启动）； / /监控
注意：服务器端以CLI模式运行，CGI模式过时了。这是新手常犯的错误，那么CLI模式是什么简单的说是用命令行来执行，不要用观光装置打开，否则它就会过时！
