从Visual运行SETX

Question

目前，我正在用VisualBasic2010Professional开发一个程序。当按下按钮时，我需要运行以下命令.

Shell(CMD.exe)
        SendKeys.Send("SETX CCDeviceID " & DeviceID & "")
        SendKeys.Send()
        SendKeys.Send("{ENTER}")
        SendKeys.Send("exit")
        SendKeys.Send("{ENTER}")
        Shell("C:\Python27\python C:\FusionTechnology\stage1.py")
        SendKeys.Send("{ENTER}")
        SendKeys.Send("exit")

这是可行的，但是python脚本在SETX命令完成之前就开始运行了。对于如何在执行下一个命令之前等待SETX运行和完成，有什么想法吗？

谢谢!

Answer 1

我会使用System.Diagnostics.Process类，类似于这样；

Dim vProcess As Diagnostics.Process
vProcess = Process.Start("SETX.exe", "CCDeviceID " & DeviceID)
vProcess.WaitForExit()

vProcess = Process.Start("C:\Python27\python", "C:\FusionTechnology\stage1.py")

一次用shell中的命令来保存混乱！