中国DOS联盟

Dim WshShell, oExec

Set WshShell = CreateObject("WScript.Shell")

Set oExec    = WshShell.Exec("%comspec% /c echo %time%")



Function ReadAllFromAny(oExec)



     If Not oExec.StdOut.AtEndOfStream Then

          ReadAllFromAny = oExec.StdOut.ReadAll

          Exit Function

     End If



     If Not oExec.StdErr.AtEndOfStream Then

          ReadAllFromAny = oExec.StdErr.ReadAll

          Exit Function

     End If

     

     ReadAllFromAny = -1

End Function



Dim allInput, tryCount



allInput = ""

tryCount = 0



Do While True



     Dim input

     input = ReadAllFromAny(oExec)



     If -1 = input Then

          If tryCount > 10 And oExec.Status = 1 Then

               Exit Do

          End If

          tryCount = tryCount + 1

          WScript.Sleep 100

     Else

          allInput = allInput & input

          tryCount = 0

     End If

Loop



If oExec.ExitCode <> 0 Then

     WScript.Echo "Warning: Non-zero exit code"

End If



WScript.Echo allInput

Dim WshShell, oExec

Set WshShell = CreateObject("WScript.Shell")

Set oExec    = WshShell.Exec("%comspec% /c dir")

WScript.Echo oExec.StdOut.ReadAll

Originally posted by bd123456789 at 2008-3-11 09:43:
执行结果正确!
以后可以拿来作标准组件了,解决了不少问题!
OK OK

不过,因为VBS水平有限,不知道其中的工作原理?

能看得懂的,帮忙解释一下吗?

是不是利用VBS去读取内存呀?或者其它什么的?