[已解决]vbs代码，会连续弹出2个对话框。能否放在1个对话框里面，同时显示2个内容？

ygqiang

[已解决]vbs代码，会连续弹出2个对话框。能否放在1个对话框里面，同时显示2个内容？

1. '判断网络是否畅通，当大于500毫秒即判断为超时。
   
2. Set ws = WScript.CreateObject("WScript.Shell")
   
3. TheIP = "192.168.11.118"
   
4. PingSet = " -n 1 -l 1 -w 500 "   
   
5.     TheState = ws.run("ping.exe " & TheIP & PingSet ,0, True)
   
6.     If TheState = 0 Then
   
7.         MsgBox "aa服务器192.168.11.118网络通畅"
   
8.     Else
   
9.         MsgBox "aa服务器192.168.11.118网络不通畅"
   
10.     End If
    
11. 
    
12. TheIP = "10.10.128.13"
    
13. PingSet = " -n 1 -l 1 -w 500 "   
    
14.     TheState = ws.run("ping.exe " & TheIP & PingSet ,0, True)
    
15.     If TheState = 0 Then
    
16.         MsgBox "bb服务器10.10.128.13网络通畅"
    
17.     Else
    
18.         MsgBox "bb服务器10.10.128.13网络不通畅"
    
19.     End If

复制代码

pcl_test

能。那样的判断方式靠谱么？

ygqiang

回复 2# pcl_test
个人需求来说靠谱。如何修改VbS代码？

ygqiang

MsgBox "bb服务器10.10.128.13网络通畅 & aa服务器192.168.11.118网络通畅"

MsgBox "bb服务器10.10.128.13网络不通畅 & aa服务器192.168.11.118网络不通畅"

MsgBox "bb服务器10.10.128.13网络通畅 & aa服务器192.168.11.118网络不通畅"

MsgBox "bb服务器10.10.128.13网络不通畅 & aa服务器192.168.11.118网络通畅"


总共有4个状态，如何修改vbs代码，实现智能判断？

ygqiang

已经解决。

1. '判断网络是否畅通，当大于500毫秒即判断为超时。
   
2. Set ws = WScript.CreateObject("WScript.Shell")
   
3. 
   
4. Fir=""
   
5. Sec=""
   
6. 
   
7. TheIP1 = "192.168.11.118"
   
8. aaserv = "aa服务器"
   
9. 
   
10. 
    
11. TheIP2 = "10.10.128.13"
    
12. bbserv = "bb服务器"
    
13. 
    
14. 
    
15. 
    
16. PingSet = " -n 1 -l 1 -w 500 "   
    
17.     TheState = ws.run("ping.exe " & TheIP1 & PingSet ,0, True)
    
18.     If TheState = 0 Then
    
19.         Fir= aaserv & TheIP1 & "网络通畅"
    
20.     Else
    
21.         Fir= aaserv & TheIP1 & "网络不通畅"
    
22.     End If
    
23. 
    
24. 
    
25. PingSet = " -n 1 -l 1 -w 500 "   
    
26.     TheState = ws.run("ping.exe " & TheIP2 & PingSet ,0, True)
    
27.     If TheState = 0 Then
    
28.         Sec= bbserv & TheIP2 & "网络通畅"
    
29.     Else
    
30.         Sec= bbserv & TheIP2 & "网络不通畅"
    
31.     End If
    
32. 
    
33. 
    
34. 'MsgBox Fir & vblf & Sec
    
35. 
    
36. msg = CreateObject("wscript.shell").popup (Fir & vblf & Sec,"8")
    
37. if msg = vbCancel then
    
38.         wscript.quit   
    
39. end if
    

复制代码

CrLf

http://zhidao.baidu.com/link?url ... Zcfj_IXDZW1PIaC8u1K

9zhmke

if ping("ping.com")<888 then xxxxxxxxxxxxx

1. 
   
2. Function Ping(url) '检查网络Ping值，单位毫秒
   
3.     Set objWMI = GetObject("winmgmts:\\.")
   
4.     Set colPings = objWMI.ExecQuery ("Select * From Win32_PingStatus where Address = '" & url & "'")
   
5.     Ping=9999
   
6.     On error resume next
   
7.         For Each objPing in colPings
   
8.             Ping=objPing.ResponseTime+0
   
9.         Next
   
10.     On error goto 0
    
11. End Function
    

复制代码