啊啊啊啊 服务器发送和客户接受啊

245271830

.版本 2
.支持库 sock
.程序集 窗口程序集1
.程序集变量 取回数据, 文本型
.程序集变量 ip, 文本型
.程序集变量 标志
.程序集变量 客户, 文本型
.程序集变量 接收客户, 文本型
.子程序 _时钟1_周期事件

.如果 (客户1.连接 (ip, 139) ＝ 真)
    .如果 (客户1.发送数据 (“--发送--ip:” ＋ ip ＋ “--发送成功--”) ＝ 真)
        编辑框1.加入文本 (“--发送--ip:” ＋ ip ＋ “--发送成功--” ＋ #换行符)
    .否则
        编辑框1.加入文本 (“--发送--” ＋ ip ＋ “--发送失败--” ＋ #换行符)
    .如果结束
.否则
    编辑框1.加入文本 (“连接失败..” ＋ #换行符)
.如果结束

.子程序 __启动窗口_创建完毕
ip ＝ 到文本 (取本机IP ())
.如果 (客户1.连接 (ip, 139) ＝ 真)
    _启动窗口.标题 ＝ “连接成功”
.否则
    _启动窗口.标题 ＝ “连接失败”
.如果结束

.子程序 _客户1_数据到达
.如果真 (标志 ≠ 1)
    取回数据 ＝ 到文本 (客户1.取回数据 ())
    编辑框2.加入文本 (“--接收--” ＋ 到文本 (客户1.取回数据 ()) ＋ “ --接收--” ＋ #换行符)
.如果真结束



右高手错的地方帮我改正下   只要接收的到就可以

阿发

你换个端口试下，139是系统的端口，尽量用超出1024的端口。。

likai1987

我也想学  看看