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

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
    

复制代码

rainshine

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

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

超自然

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

lqxhi

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