懂内网的来看看呀！！！

花落莫相离

1. 
   
2. <P>//=============================服务端======================================
   
3. 变量 服务端句柄=数组(),客户端句柄=数组(),总线程句柄,服务端套接字句柄,客户端套接字句柄
   
4. 变量 线程句柄=数组(),端口数组=数组(),大小=0
   
5. 功能 服务端()
   
6.     变量 客户端IP
   
7.     网络初始化()
   
8.     服务端套接字句柄=网络套接字(1)
   
9.     网络绑定(服务端套接字句柄,9999)
   
10.     网络**(服务端套接字句柄,10)
    
11.     调试输出("服务端开启成功")
    
12.     循环(真)
    
13.         客户端套接字句柄=网络接受(服务端套接字句柄,客户端IP)
    
14.         编辑框设置文本("编辑框0","服务端开启成功"&"\r\n"&"服务端开放端口:9999"&"\r\n"&"[服务端]-12:客户端IP="&客户端IP)
    
15.         如果(客户端套接字句柄>0)
    
16.             大小=大小++
    
17.             调试输出(客户端IP)
    
18.             变量 端口=大小+8000
    
19.             变量 key=大小-1
    
20.             端口数组[key]=端口
    
21.             网络发送(客户端套接字句柄,端口数组[key])
    
22.             编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[服务端]-19:服务端开放端口="&端口)//===================
    
23.             线程句柄[key]=线程开启("接收消息",端口)
    
24.             网络关闭套接字(客户端套接字句柄)
    
25.         结束
    
26.         等待(100)
    
27.     结束
    
28. 结束
    
29. 功能 接收消息(端口)
    
30.     变量 下标=数组值查找(端口数组,端口)
    
31.     变量 个数,接收内容,客户端IP
    
32.     网络初始化()
    
33.     服务端句柄[下标]=网络套接字(1)
    
34.     网络绑定(服务端句柄[下标],端口)
    
35.     网络**(服务端句柄[下标],10)
    
36.     编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[接收信息]-34:服务端句柄["&下标&"]="&服务端句柄[下标])
    
37.     循环(真)
    
38.         客户端句柄[下标]=网络接受(服务端句柄[下标],客户端IP)
    
39.         调试输出("37-客户端句柄"&客户端句柄)
    
40.         调试输出("38-客户端IP"&客户端IP)  
    
41.         变量 b=网络接收(客户端句柄[下标],接收内容)
    
42.         调试输出(接收内容)
    
43.         调试输出(b)
    
44.         编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[接收信息]-42:接收内容="&接收内容)
    
45.         如果(字符串长度(接收内容)>0)
    
46.             调试输出(接收内容)
    
47.             选择(接收内容)
    
48.                 条件 "关闭"
    
49.                 网络关闭套接字(客户端句柄[下标])
    
50.                 网络关闭套接字(服务端句柄[下标])
    
51.                 数组指定位置删除(线程句柄,下标)
    
52.                 数组指定位置删除(端口数组,下标)
    
53.                 数组指定位置删除(服务端句柄,下标)
    
54.                 数组指定位置删除(客户端句柄,下标)
    
55.                 条件 "更新"
    
56.                 网络接收文件(客户端句柄[下标],"e:/xxx.txt")
    
57.                 条件 "发送"
    
58.                                 网络发送文件(客户端句柄[下标],"e:/xxx.txt")
    
59.                 编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[接收信息]-57:文件已发送成功")
    
60.                 条件 "备份"
    
61.                 //                备份()
    
62.                 调试输出("备份")
    
63.             结束
    
64.         结束
    
65.         等待(100)
    
66.     结束
    
67.     编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[接收信息]-65:接收消息完成")
    
68. 结束
    
69. 功能 关闭连接()
    
70.     变量 长度= 数组大小(线程句柄)
    
71.     如果(长度>0)
    
72.         遍历(变量 i=0;i<长度;i++)
    
73.             如果(线程句柄[i]!="")
    
74.                 线程关闭(线程句柄[i])
    
75.             结束
    
76.             如果(服务端句柄[i]!="")
    
77.                 网络关闭套接字(服务端句柄[i])
    
78.             结束
    
79.             如果(客户端句柄[i]!="")
    
80.                 网络关闭套接字(客户端句柄[i])
    
81.             结束
    
82.             等待(50)
    
83.         结束
    
84.         数组清空(线程句柄)
    
85.         数组清空(端口数组)
    
86.         数组清空(服务端句柄)
    
87.         数组清空(客户端句柄)
    
88.         长度=0
    
89.     结束
    
90.     线程关闭(总线程句柄)
    
91.     网络关闭套接字(服务端套接字句柄)
    
92.     网络关闭套接字(客户端套接字句柄)
    
93.     网络关闭()
    
94.     编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[关闭连接]-92:网络已关闭")
    
95. 结束</P>
    
96. <P>功能 退出_点击()
    
97.     关闭连接()
    
98.     退出()
    
99. 结束
    
100. //点击关闭_执行操作
     
101. 功能 网络通讯服务端_关闭()
     
102.     关闭连接()
     
103.     退出()
     
104. 结束</P>
     
105. <P>功能 服务端_初始化()
     
106.     //这里添加你要执行的代码
     
107.     总线程句柄=线程开启("服务端","")
     
108. 结束</P>
     
109. <P> </P>

复制代码

1. 
   
2. <P>//=========================================客户端===================================================</P>
   
3. <P>//=========================================客户端===================================================
   
4. 功能 检查网络环境()
   
5.     变量 ret=文件是否存在("d:/主机IP.ini")
   
6.     如果(ret==1)
   
7.         网络初始化()
   
8.         变量 套接字句柄=网络套接字(1)
   
9.         变量 IP=文件读配置("主机IP","ip","d:\\主机IP.ini")
   
10.         变量 连接状态=网络连接(套接字句柄,IP,9999)
    
11.         调试输出("连接状态="&连接状态)
    
12.         编辑框设置文本("编辑框0","客户端成功开启"&"\r\n"&"[检查网络环境]-9:客户端成功连接端口9999")
    
13.         编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[检查网络环境]-10:客户端连接状态="&连接状态)
    
14.         如果(连接状态==1)
    
15.             建立连接(IP)
    
16.         否则
    
17.             文件删除("d:/主机IP.ini")
    
18.             确定主机()
    
19.         结束
    
20.         网络关闭套接字(套接字句柄)
    
21.     否则
    
22.         确定主机()
    
23.     结束
    
24.     线程关闭(线程句柄1)
    
25. 结束
    
26. //127.0.0.1
    
27. 功能 确定主机()
    
28.     控件创建("标签","标签1","",0,0,790,360,"背景颜色:ffffff","",控件获取句柄("编辑框0"))
    
29.     控件创建("标签","标签2","连接中请等待...",250,160,360,20,"背景颜色:ffffff","",控件获取句柄("标签1"))
    
30.     变量 内容=标签获取文本("标签2")
    
31.     网络初始化()
    
32.     变量 套接字句柄=网络套接字(1)
    
33.     遍历(变量 i = 0; i < 50; i++)
    
34.         变量 连接状态=网络连接(套接字句柄,"127.0.0."&i,9999)
    
35.         如果(连接状态==1)
    
36.             标签设置文本("标签2","网络环境初始化完成")
    
37.             等待(100)
    
38.             文件写配置("主机IP","ip","127.0.0."&i,"d:\\主机IP.ini")
    
39.             控件销毁("标签1")
    
40.             等待(100)
    
41.             建立连接("127.0.0."&i)
    
42.             编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[确定主机]-39:服务端主机IP="&"127.0.0."&i)
    
43.             跳出
    
44.         结束
    
45.         等待(500)
    
46.     结束
    
47.     网络关闭套接字(套接字句柄)
    
48.    
    
49. 结束</P>
    
50. <P>功能 读取文件()
    
51.     变量 内容=文件读取内容("d:\\xxx.txt")
    
52.     //    编辑框设置文本("编辑框0",内容)
    
53.     文件关闭("d:/xxx.txt")
    
54. 结束</P>
    
55. <P>变量 客户端套接字句柄,接收到端口=0,线程句柄2,线程句柄1
    
56. 功能 接收消息(连接IP)
    
57.     //这里添加你要执行的代码
    
58.     变量 接收到的内容
    
59.     网络初始化()
    
60.     客户端套接字句柄=网络套接字(1)
    
61.     网络连接(客户端套接字句柄,连接IP,接收到端口)
    
62.     编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[接收消息(连接IP)]-61:客户端接收到端口="&接收到端口&"\r\n"&"新端口连接成功")
    
63.     变量 a=网络发送(客户端套接字句柄,"发送")
    
64.     编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[接收消息(连接IP)]-63:消息发送状态="&a)
    
65.     等待(200)
    
66.     变量 b=网络接收文件(客户端套接字句柄,"d:/xxx.txt")
    
67.     等待(200)
    
68.     //    读取文件()
    
69.     编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[接收消息(连接IP)]-68:文件接收状态="&b)
    
70. 结束
    
71. 功能 建立连接(连接IP)
    
72.     网络初始化()
    
73.     客户端套接字句柄=网络套接字(1)
    
74.     变量 连接状态=网络连接(客户端套接字句柄,连接IP,9999)
    
75.     调试输出("连接IP="&连接IP)
    
76.     如果(连接状态==1)
    
77.         网络接收(客户端套接字句柄,接收到端口)
    
78.         如果(接收到端口>=8000)
    
79.             线程句柄2=线程开启("接收消息",连接IP)
    
80.         结束
    
81.     结束
    
82.     网络关闭套接字(客户端套接字句柄)
    
83.     编辑框设置文本("编辑框0",编辑框获取文本("编辑框0")&"\r\n"&"[接收消息(连接IP)]-82:客户端和主机成功建立连接")
    
84. 结束</P>
    
85. <P>功能 关闭连接()
    
86.     线程关闭(线程句柄2)
    
87.     网络发送(客户端套接字句柄,"关闭")
    
88.     等待(50)
    
89.     网络关闭套接字(客户端套接字句柄)
    
90.     接收到端口=0
    
91.     网络关闭()
    
92. 结束
    
93. //点击关闭_执行操作
    
94. 功能 客户端_关闭()
    
95.     关闭连接()
    
96.     退出()
    
97. 结束
    
98. 功能 客户端_初始化()
    
99.     //这里添加你要执行的代码
    
100.     线程句柄1=线程开启("检查网络环境","")
     
101. 结束</P>
     
102. <P>功能 退出_点击()
     
103.     //这里添加你要执行的代码
     
104.     关闭连接()
     
105.     退出()
     
106. 结束
     
107. </P>

复制代码

这点东西纠结了一个星期,问题解决了,没办法删帖,索性就开源吧{:soso_e113:}
让纠结在内网上的同学有个参考,我是菜鸟,大神可以无视

花落莫相离

补个运行界面,本机运行效果
我这个是用于内网文件传输的,要是用于聊天,得需要自己改一部分内容.