马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
- 本来空间 测试
- //默认空间
- 变量 服务器句柄,服务器套接字句柄
- 功能 初始化()//初始化设置托盘
- //这里添加你要执行的代码
- 辅助.设置托盘("FireAndIceLove",false)
- 功能结束
- 功能 标签0_点击()//清空消息
- //这里添加你要执行的代码
- 标签.设置文本("标签0"," -消息日志清空-")
- 功能结束
- 功能 标签1_点击()
- //这里添加你要执行的代码
- 标签.设置文本("标签1"," -消息日志清空-")
- 功能结束
- 功能 服务器()//创建一个服务器
- 网络.初始化() //初始化网络环境
- 服务器套接字句柄=网络.套接字(1)
- 网络.绑定(服务器套接字句柄,65530)
- 网络.监听(服务器套接字句柄,1)
- 变量 返回IP,接收缓存,发送缓存 = "FireAndIceLove"
- 循环(true) //循环接受处理连接
- 客户端套接字句柄=网络.接受(服务器套接字句柄,返回IP)
- 网络.接收(客户端套接字句柄,接收缓存)
- 标签.设置文本("标签1",接收缓存&"|"&返回IP)
- 网络.发送(客户端套接字句柄,发送缓存)
- 网络.关闭套接字(客户端套接字句柄)
- 循环结束
- 功能结束
- 功能 客户端()//发送数据出去
- 网络.初始化() //初始化网络环境
- 客户端套接字句柄=网络.套接字(1)
- 变量 连接 = 网络.连接(客户端套接字句柄,"222.197.170.75",65530)
- if(连接 == 0)
- 连接 = "连接失败..."
- else
- 连接 = "连接成功..."
- endif
- 变量 发送缓存 = "FireAndIce",接收缓存
- 网络.发送(客户端套接字句柄,发送缓存)
- 网络.接收(客户端套接字句柄,接收缓存)
- 标签.设置文本("标签0",接收缓存&"|"&连接)
- 网络.关闭套接字(客户端套接字句柄)
- 网络.关闭()
- 功能结束
- 功能 按钮0_点击()//开启服务器
- //这里添加你要执行的代码
- 选择(按钮.获得文本("按钮0"))
- 条件 "- 开启 -":
- 服务器句柄 = 线程.开启("测试.服务器","")
- 标签.设置文本("标签1","服务器开启...")
- 按钮.设置文本("按钮0","- 关闭 -")
- 条件 "- 关闭 -":
- 网络.关闭套接字(服务器套接字句柄) //关闭套接字释放资源
- 网络.关闭() //关闭网络环境释放资源
- 线程.关闭(服务器句柄)
- 标签.设置文本("标签1","服务器关闭...")
- 按钮.设置文本("按钮0","- 开启 -")
- 选择结束
- 功能结束
- 功能 按钮1_点击()
- //这里添加你要执行的代码
- 线程.开启("测试.客户端","")
- 功能结束
- 空间结束
- //空间结束语句
复制代码
小弟智商就不高,最近恋爱又降低了一大半,遇到些问题...
目的:连接远端服务器发送一串数据
问题:只能连接内网的...(127.0.0.1或者本机的192.168.1.X),想连接外网的IP,通过ip.qq.com获取的那个
环境:Windows7,局域无线
代码如上:
|