Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Task.Factory.StartNew(Sub()
Try
If CmdProcess Is Nothing Then
CmdProcess = New Process()
End If
CmdProcess.StartInfo.FileName = "cmd" ' 命令
'CmdProcess.StartInfo.Arguments = "" ' 参数
CmdProcess.StartInfo.CreateNoWindow = True ' 不创建新窗口
CmdProcess.StartInfo.UseShellExecute = False
CmdProcess.StartInfo.RedirectStandardInput = True ' 重定向输入
CmdProcess.StartInfo.RedirectStandardOutput = True ' 重定向标准输出
CmdProcess.StartInfo.RedirectStandardError = True
CmdProcess.StartInfo.RedirectStandardError = True ' 重定向错误输出
CmdProcess.Start()
CmdProcess.StandardInput.WriteLine("cd\")
CmdProcess.StandardInput.WriteLine("c:")
CmdProcess.StandardInput.WriteLine("cd " & Directorypath("ETH"))
CmdProcess.StandardInput.WriteLine("EthDcrMiner64.exe -epool eth.f2pool.com:8080 -ewal 0x73c94d5387c1ccb97ff9fdfeca0ec16af5aa96ad ")
While True
Dim hhh As String = CmdProcess.StandardOutput.ReadLine
Me.Invoke(Sub()
TextBox1.AppendText(hhh & vbLf)
End Sub)
End While
Catch ex As Exception
End Try
End Sub)
程序中被调用的外部程序在https://pan.baidu.com/s/1nxopIlz。谢谢