网络通信-----吐槽一下

milai5201

网络通信的教程好少，帮助文档也是含糊不清
相比易语言的服务器，客户端，数据报，远程服务 功能真的可以说是太匮乏了。
做dll吧 还是不能添加响应事件
能不能加点 响应事件啊  比如说 数据达到 客户离开之类的  
还是现在本来就有这个功能 我不会用呢？
做远程监控，如何判断一个客户离开？

lqxhi

可以利用窗口消息来实现响应事件

超自然

写个心跳包很吃力么?一个函数而已。又不用你忙什么，吃力那了??别说心跳包，网络脚本都搞过，1拖24机，每机6开，轻松搞定

rainshine

milai5201 发表于 2014-10-11 22:33
服务器 客户端，数据报 都是原生的  远程服务是扩展的

……你根本不知道我在说什么 大神

q273814

下面这段VBS是判断局域网在线IP的 你用vbs试下 可以的话就转TC然后到你的总控端那边写进去看看
如果嫌转的麻烦就直接new个ScriptControl的com对象直接调用 看看可不可以

1. strSubNet = "192.168.1."
   
2. Set objFSO= CreateObject("Scripting.FileSystemObject")
   
3. Set objTS = objfso.CreateTextFile("e:\PingResult.txt")
   
4. 
   
5. For i = 1 To 254
   
6. strComputer = strSubNet & i
   
7. blnResult = Ping(strComputer)
   
8. If blnResult = True Then
   
9. objTS.WriteLine "Ping " & strComputer & " success!"
   
10. End If
    
11. Next
    
12. 
    
13. objTS.Close
    
14. WScript.Echo "Done!"
    
15. 
    
16. Function Ping(strComputer)
    
17. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
18. Set colItems = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Address='" & strComputer & "'")
    
19. For Each objItem In colItems
    
20. Select case objItem.StatusCode
    
21. Case 0
    
22. Ping = True
    
23. Case Else
    
24. Ping = False
    
25. End select
    
26. Exit For
    
27. Next
    
28. End Function
    

复制代码

q273814

还有 好像有专门获取局域网用户列表的方法你可以研究下 其实基本上原理都是一样的

q273814

milai5201 发表于 2014-10-11 19:36
可以实现，但是局限性太大了啊，如果同时在线的客户数量比较多，问题随之而来了。一般的小型工作室都有几 ...

不会 就算100台机子10秒钟判断一次 同时有100台机子 仅仅只是发送一个信息而已 影响几乎可以忽略 至于验证码之类的那毕竟要发文件 发文件比直接传几个字符要麻烦的多

milai5201

rainshine 发表于 2014-10-11 22:21
无限循环啊= =易语言的那些都不是原生的

服务器 客户端，数据报 都是原生的  远程服务是扩展的

rainshine

无限循环啊= =易语言的那些都不是原生的

milai5201

一只熊 发表于 2014-10-11 19:38
直接调winsock啊 用tc的这个不行的

是否有相关帖子 给我参考一下啊