Question

如何在vb中获取cmd中的返回字符

比如 在CMD中输入"time"回车
CMD控制台会显示 "当前时间: 22:56:32.99"
如何把返回的"当前时间: 22:56:32.99"装入vb中的一个变量中
请大家赐教

Answer 1

你可以用vb中自带的函数取得这个效果的··

Private Sub Command1_Click()
Print Now
End Sub
如果要定义函数的话，就

dim t
Private Sub Command1_Click()
t= Now
End Sub

Answer 2

If Dir("c:\aa.txt") <> "" Then Kill "c:\aa.txt"
aa = InputBox("请输入要执行的CMD命令", "", "time")
pid = Shell("cmd.exe /c "" " & aa & " > c:\aa.txt """, vbHide)
st = Timer
Do While Timer - st < 1 '设置等待一秒
Loop
Shell "cmd.exe /c ""taskkill /pid " & pid & """", vbHide
Open "c:\aa.txt" For Input As 1
msg = ""
Do While Not EOF(1)
Line Input #1, a
msg = msg & a & vbCrLf
Loop
Close #1
MsgBox msg
If Dir("c:\aa.txt") <> "" Then Kill "c:\aa.txt"

Answer 3

这是我以前写的一个关于在vb回显dos命令结果的 当然也可以用管道流http://hi.baidu.com/lijinfeng042/blog/item/851762ae8a40c5fcfbed5008.html，希望对你有所帮助

Answer 4

shell "cmd /c time>C:\bybyby.try",0
open "C:\bybyby.try"for binary as 1:dim a as byte
do while not eof(1):get 1,,a:k=k &chrb(a):loop
close 1