Question

如何vb打开cmd并运行一个命令

如何vb打开cmd并运行一个命令

Answer 1

你好,可以使用shell命令
举个例子

shell "cmd /c dir",1 '/c表示执行完即关闭窗口
shell "cmd /k dir",1 '/k表示执行完停留
shell "cmd /c dir && pause",1 '多条语句可用&&连接

关于cmd的具体用法可以在命令提示符下敲入cmd/?看看
太多了，只列举一些典型的：
CMD [/A | /U] [/Q] [/D] [/E:ON | /E:OFF] [/F:ON | /F:OFF] [/V:ON | /V:OFF]
[[/S] [/C | /K] string]

/C 执行字符串指定的命令然后终断
/K 执行字符串指定的命令但保留
/S 在 /C 或 /K 后修改字符串处理(见下)
/Q 关闭回应
/D 从注册表中停用执行 AutoRun 命令(见下)
/A 使向内部管道或文件命令的输出成为 ANSI
/U 使向内部管道或文件命令的输出成为 Unicode
/T:fg 设置前景/背景颜色(详细信息，请见 COLOR /?)
/E:ON 启用命令扩展(见下)
/E:OFF 停用命令扩展(见下)
/F:ON 启用文件和目录名称完成字符 (见下)
/F:OFF 停用文件和目录名称完成字符(见下)
/V:ON 将 ! 作为定界符启动延缓环境变量扩展。如: /V:ON 会
允许 !var! 在执行时允许 !var! 扩展变量 var。var 语法
在输入时扩展变量，这与在一个 FOR 循环内不同。
/V:OFF 停用延缓的环境扩展。

Answer 2

Private Sub Form_Load()
Shell "cmd /c msg %username% /time:5 你好，这是一个成功的实验"
end
End Sub

——————————————————
如果需要命令提示符执行完命令后不退出，则可用下面这个：
Private Sub Form_Load()
Shell "cmd /k msg %username% /time:5 你好，这是一个成功的实验"
end
End Sub

下面这个用函数解决：
Private Function cmd(str As String)
str = "cmd /k " & str & Chr(34)
Shell str
End Function

Private Sub Form_Load()
Dim str As String
str = "start c:\&dir c:\"
cmd (str)
End Sub