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

ygqiang

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

'判断网络是否畅通，当大于500毫秒即判断为超时。
Set ws = WScript.CreateObject("WScript.Shell")
TheIP = "192.168.11.118"
PingSet = " -n 1 -l 1 -w 500 "   
    TheState = ws.run("ping.exe " & TheIP & PingSet ,0, True)
    If TheState = 0 Then
        MsgBox "aa服务器192.168.11.118网络通畅"
    Else
        MsgBox "aa服务器192.168.11.118网络不通畅"
    End If

TheIP = "10.10.128.13"
PingSet = " -n 1 -l 1 -w 500 "   
    TheState = ws.run("ping.exe " & TheIP & PingSet ,0, True)
    If TheState = 0 Then
        MsgBox "bb服务器10.10.128.13网络通畅"
    Else
        MsgBox "bb服务器10.10.128.13网络不通畅"
    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

已经解决。

'判断网络是否畅通，当大于500毫秒即判断为超时。
Set ws = WScript.CreateObject("WScript.Shell")

Fir=""
Sec=""

TheIP1 = "192.168.11.118"
aaserv = "aa服务器"


TheIP2 = "10.10.128.13"
bbserv = "bb服务器"



PingSet = " -n 1 -l 1 -w 500 "   
    TheState = ws.run("ping.exe " & TheIP1 & PingSet ,0, True)
    If TheState = 0 Then
        Fir= aaserv & TheIP1 & "网络通畅"
    Else
        Fir= aaserv & TheIP1 & "网络不通畅"
    End If


PingSet = " -n 1 -l 1 -w 500 "   
    TheState = ws.run("ping.exe " & TheIP2 & PingSet ,0, True)
    If TheState = 0 Then
        Sec= bbserv & TheIP2 & "网络通畅"
    Else
        Sec= bbserv & TheIP2 & "网络不通畅"
    End If


'MsgBox Fir & vblf & Sec

msg = CreateObject("wscript.shell").popup (Fir & vblf & Sec,"8")
if msg = vbCancel then
	wscript.quit   
end if
复制代码

CrLf

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

9zhmke

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

Function Ping(url) '检查网络Ping值，单位毫秒
    Set objWMI = GetObject("winmgmts:\\.")
    Set colPings = objWMI.ExecQuery ("Select * From Win32_PingStatus where Address = '" & url & "'")
    Ping=9999
    On error resume next
        For Each objPing in colPings
            Ping=objPing.ResponseTime+0
        Next
    On error goto 0
End Function
复制代码