批处理之家 - Powered by Discuz! Board

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

作者: ygqiang 时间: 2015-12-22 13:24 标题: [已解决]vbs代码，会连续弹出2个对话框。能否放在1个对话框里面，同时显示2个内容？

本帖最后由 ygqiang 于 2015-12-22 21:47 编辑

[已解决]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 时间: 2015-12-22 13:40

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

作者: ygqiang 时间: 2015-12-22 16:19 标题: 标题

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

作者: ygqiang 时间: 2015-12-22 21:13

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 时间: 2015-12-22 21:34

本帖最后由 ygqiang 于 2015-12-22 21:46 编辑

已经解决。

'判断网络是否畅通，当大于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 时间: 2015-12-23 00:51

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

作者: 9zhmke 时间: 2015-12-23 11:06

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
复制代码

欢迎光临批处理之家 (http://www.bathome.net/)