传递VB参数批处理文件

Question

我试图进行下一个批处理文件：

route ADD 131.1.0.0 MASK 255.255.0.0 191.168.0.136 
pause 

不过，我想使IP通过一个Visual Basic应用地址变量。

现在我想未来：

Public Class Form1 
    Dim a 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     a = (TextBox1.Text) 

    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim objWshShell 
     objWshShell = CreateObject("Wscript.Shell") 
     objWshShell.run(Chr(34) & "C:\NAT\RouteHCM.bat" & Chr(34) & a, 1) 

    End Sub 
End Class 

我怎么可以添加更多的变量，是有可能使这个批处理脚本（Visual Basic中直接添加路由）？

Answer 1

这样：

• 假设你有形式TextBox1中，TextBox2中，TextBox3

• 用以下替换整个类：

Imports System.Diagnostics 

Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     With New Process() 
      .StartInfo.UseShellExecute = False 
      .StartInfo.FileName = "route" 
      .StartInfo.Arguments = String.Format("-p add {0} mask {1} {2}", 
               TextBox1.Text, 
               TextBox2.Text, 
               TextBox3.Text) 
      .StartInfo.RedirectStandardOutput = True 
      .StartInfo.StandardOutputEncoding = Text.Encoding.ASCII 
      .Start() 
     End With 
    End Sub 
End Class 

如果您检查帮助String.Format(),Process或StartInfo，你会明白的。 （我也从那里学习东西。）