VB中的Shell命令

Question

由于某种原因，当我尝试在 VB 的 shell 命令中使用与号时，它们似乎无法正常工作。当我尝试使用＆符号将两个命令链接到同一行时，我收到错误消息：“filenotfoundexception is unhandled file not found”

我要运行的命令是：

 Shell("cd " & TextBox2.Text.ToString & " & adb -s " & TextBox15.Text.ToString & " shell monkey -p " & TextBox1.Text.ToString & " -v 1", AppWinStyle.Hide) 

我尝试将其分解为更简单的形式，但我仍然收到错误：

 Shell("cd C:\ & adb shell monkey -p com.android.system -v 1", AppWinStyle.Hide)

如果我去掉 & 符号并使用：

 shell(adb shell monkey -p com.android.system -v 1", AppWinStyle.Hide)

一切正常。在 vb shell 命令中没有 & 符号吗？

---

*我的编辑

其实我还是有问题。所以我有的是：

    psi.WorkingDirectory = TextBox2.Text.ToString
    psi.FileName = "adb"
    psi.WindowStyle = ProcessWindowStyle.Hidden

然后我有一点代码，然后我分配一个参数并执行该参数：

    psi.Arguments = "-s " & TextBox15.Text.ToString & " shell monkey -p " & TextBox1.Text.ToString & " -v  1"
    Process.Start(psi)

然后我有一点代码，然后我尝试使用不同的参数再次运行该过程：

    psi.Arguments = "-s " & TextBox15.Text.ToString & " shell input keyevent 3"
    Process.Start(psi)

第一个似乎工作，所有后续的都没有。有什么理由不应该工作吗？是否有流程刷新或我缺少的东西？

Answer 1

删除了我的其他答案，找到了一种更简单的方法。

这就是你想要的……

Shell("cmd.exe /c cd C:\ & adb shell monkey -p com.android.system -v 1", AppWinStyle.Hide)

将其插入到您的原始代码中...

Shell("cmd.exe /c cd " & TextBox2.Text.ToString & " & adb -s " & TextBox15.Text.ToString & " shell monkey -p " & TextBox1.Text.ToString & " -v 1", AppWinStyle.Hide) 

我测试了第一个示例，它似乎可以工作。

Answer 2

您是否考虑过使用 Process 对象来启动 ADB 并设置命令行选项

Dim psi As New ProcessStartInfo

psi.WorkingDirectory = "c:\"
psi.Arguments = "shell monkey -p com.android.system -v 1"
psi.FileName = "ADB"
psi.WindowStyle = ProcessWindowStyle.Hidden
return Process.Start(psi)

如果您的 ADB 程序只允许单个实例运行，您可能需要添加以下内容

Dim ps As Process = Process.Start(psi)
ps.WaitForExit()

psi.Arguments = 'new arguments
Process.Start(psi)

Answer 3

Shell 命令需要一个文件名，因此命令行扩展不起作用。

有几个选项：

1) 用 process.start 启动 cmd.exe 并传递参数（我没有测试过，所以不确定它是否可以工作。

2) 在 .cmd 或 .bat 文件中创建您的命令，然后对该文件进行外壳处理（这似乎是最简单的方法）。