求助：帮我看一下内网问题

花落莫相离

启动客户端，有时候会把服务端的文件清空，找了半天也没发现问题在哪，求大神看一下，我只知道问题出现在内网通讯上，找不出具体问题出在哪{:soso_e118:}

服务端代码

1. 功能 发送日程()
   
2. //____________________发送端代码:__________________
   
3. 网络初始化()
   
4. 变量 套接字句柄=网络套接字(1)
   
5. 网络绑定(套接字句柄,8000)
   
6. 网络**(套接字句柄,10)
   
7. 变量 rIP=0,计数=0
   
8. 变量 接收缓存
   
9. 循环(真)
   
10. 变量 套接字句柄1=网络接受(套接字句柄,rIP)
    
11. 网络接收(套接字句柄1,接收缓存)
    
12. 调试输出(接收缓存)
    
13. 选择(接收缓存)
    
14. 条件 "更新"
    
15. 文件删除("d:\\进场安排.txt")
    
16. 等待(300)
    
17. 网络接收文件(套接字句柄1,"d:\\进场安排.txt")
    
18. 等待(50)
    
19. 更新()
    
20. 条件 "发送"
    
21. 变量 返回值=网络发送文件(套接字句柄1,"d:/进场安排.txt")
    
22. 如果(0!=返回值)
    
23. 消息框("发送文件失败")
    
24. 结束
    
25. 条件 "备份"
    
26. 备份()
    
27. 结束
    
28. 网络关闭套接字(套接字句柄1)
    
29. 结束
    
30. 网络关闭套接字(套接字句柄)
    
31. 网络关闭()
    
32. 结束

复制代码

1. 
   
2. <P>//==============================客户端代码
   
3. <P>功能 检查网络环境()
   
4. 变量 ret=文件是否存在("d:/主机IP.ini")
   
5. 如果(ret==1)
   
6. 变量 IP=文件读配置("主机IP","ip","d:\\主机IP.ini")
   
7. 网络初始化()
   
8. 变量 套接字句柄=网络套接字(1)
   
9. 变量 连接状态=网络连接(套接字句柄,IP,8000)
   
10. 调试输出("连接状态="&连接状态)
    
11. 如果(连接状态==1)
    
12. 网络关闭套接字(套接字句柄)
    
13. 网络关闭()
    
14. 等待(50)
    
15. 连接主机(IP)
    
16. 否则
    
17. 文件删除("d:/主机IP.ini")
    
18. 确定主机()
    
19. 结束
    
20. 
    
21. 否则
    
22. 确定主机()
    
23. 结束
    
24. 结束
    
25. 功能 确定主机()
    
26. 控件创建("标签","标签1","",0,0,790,360,"背景颜色:ffffff","",控件获取句柄("表格0"))
    
27. 控件创建("标签","标签2","软件第一次运行需要初始化网络环境,时间可能较长请耐心等待...",250,160,360,20,"背景颜色:ffffff","",控件获取句柄("标签1"))
    
28. 网络初始化()
    
29. 变量 套接字句柄=网络套接字(1)
    
30. 遍历(变量 i = 100; i < 200; i++)
    
31. 变量 连接状态=网络连接(套接字句柄,"192.168.1."&i,8000)
    
32. 如果(连接状态==1)
    
33. 标签设置文本("标签2","网络环境初始化完成")
    
34. 等待(100)
    
35. 文件写配置("主机IP","ip","192.168.1."&i,"d:\\主机IP.ini")
    
36. 网络关闭套接字(套接字句柄)
    
37. 控件销毁("标签1")
    
38. 等待(100)
    
39. 连接主机("192.168.1."&i)
    
40. 跳出
    
41. 结束
    
42. 等待(500)
    
43. 结束
    
44. 网络关闭()
    
45. 结束
    
46. 功能 连接主机(连接IP)
    
47. 网络初始化()
    
48. 变量 套接字句柄=网络套接字(1)
    
49. 变量 连接状态=网络连接(套接字句柄,连接IP,8000)
    
50. 调试输出("连接状态="&连接状态)
    
51. 如果(连接状态==1)
    
52. 网络发送(套接字句柄,"发送")
    
53. 等待(50)
    
54. 变量 返回值=网络接收文件(套接字句柄,"d:\\进场安排.txt")
    
55. 调试输出("返回值="&返回值)
    
56. 如果(返回值==-3)
    
57. 消息框("接收文件失败,请检查局域网是否畅通,或者ip:"&连接IP&"的电脑是否在线"&"\r\n"&"\r\n"&获取错误信息(1))
    
58. 结束
    
59. 网络关闭套接字(套接字句柄)
    
60. 设置表格()
    
61. 结束
    
62. 网络关闭()
    
63. 结束</P>

复制代码

fuxiaojun185

这个是监控器？，没研究过这方面的，难不

花落莫相离

fuxiaojun185 发表于 2015-5-20 23:55
这个是监控器？，没研究过这方面的，难不

这个可不是什么监控器
算是内网共享之类的东西吧，选定一台电脑作为服务端存储数据，通过内网通讯的方式，把数据文件发送给内网里的任一台电脑，并通过客户端不定期对服务端进行数据维护。
这两段代码，就是服务端和客户端内网通讯的代码，不过代码有问题，客户端软件一启动，服务端数据经常会被清空，只是偶尔正常运行，自己是查不出来问题在哪，才发帖求助的

fuxiaojun185

花落莫相离 发表于 2015-5-21 09:01
这个可不是什么监控器
算是内网共享之类的东西吧，选定一台电脑作为服务端存储数据，通过内网通讯的 ...

那也属于监控器那种的，多台机子，一台控制，

花落莫相离

{:soso_e136:}花了一晚上,总算找到了问题所在,小鸟真是伤不起呀{:soso_e109:}

虽然没人回答,还是宣布此求助帖作废{:soso_e113:}