|
是说这个吗?这个涉及到网络通信的吗,首先你得保证你有个公网ip地址,才可以通话,用户方作为客户端,你自己的服务器监听客户端信息,并接受信息
拷代码的:
服务端:
网络.初始化() //初始化网络环境
整型 服务器套接字句柄=网络.套接字(1) //创建流式(TCP)套接字
网络.绑定(服务器套接字句柄,9999) //开启了计算机的9999端口,供外界连接
网络.监听(服务器套接字句柄,5) //监听套接字,设置可连接数为5个
字符型 返回IP,发送缓存="客户端,你好,我是服务器",接收缓存
整型 客户端套接字句柄=网络.接受(服务器套接字句柄,返回IP)//这里程序会挂起等待,直到有客户端连接到来
网络.发送(客户端套接字句柄,发送缓存)//向指定客户端发送一串字符串
网络.接收(客户端套接字句柄,接收缓存) //接收从客户端发送的字串
辅助.消息框(接收缓存) //打印从客户端接收的字串
网络.关闭套接字(客户端套接字句柄) //关闭套接字释放资源
网络.关闭套接字(服务器套接字句柄) //关闭套接字释放资源
网络.关闭() //关闭网络环境释放资源
//
自己写的话就不用先发送信息了,直接监听,等客户端有信息过来了才发送
客户端:
网络.初始化() //初始化网络环境
整型 客户端套接字句柄=网络.套接字(1) //创建流式(TCP)套接字
网络.连接(客户端套接字句柄,"127.0.0.1",9999) //这里测试所以连接的是本机
字符型 发送缓存="服务器,你好,我是客户端",接收缓存
网络.接收(客户端套接字句柄,接收缓存) //接收从服务器发送的字串
辅助.消息框(接收缓存) //打印从服务器接收的字串
网络.发送(客户端套接字句柄,发送缓存)//向指定服务器发送一串字符串
网络.关闭套接字(客户端套接字句柄) //关闭套接字释放资源
网络.关闭() //关闭网络环境释放资源
这里自己改改就行了,ip地址换成你的公网IP |
|