Public Class Form1 Private Sub CmdTrans_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles CmdTrans.Click Dim psi As New System.Diagnostics.ProcessStartInfo Dim ftpFileName As String psi.FileName = "ftp.exe" psi.RedirectStandardInput = False psi.RedirectStandardOutput = True psi.UseShellExecute = False ftpFileName = "E:/ftp.txt" psi.Arguments = "-s:" & ftpFileName Dim proc As Process proc = Process.Start(psi) 'Wait process proc.WaitForExit() Console.WriteLine(proc.StandardOutput) Console.ReadLine() End Sub End Class

ftp.txt中的内容：

open 192.168.1.110

user dumeifang dumeifang@H_502_9@put E:/ip.html@H_502_9@quit

控制台中的输出：

ftp> open 192.168.1.110@H_502_9@Connected to 192.168.1.110.@H_502_9@220 Serv-U FTP Server v8.2 ready...@H_502_9@User (192.168.1.110:(none)):@H_502_9@530 Invalid user name.@H_502_9@Login Failed.@H_502_9@ftp> user dumeifang dumeifang@H_502_9@331 User name okay,need password.@H_502_9@230 User logged in,proceed.@H_502_9@ftp> put E:/ip.html@H_502_9@200 PORT Command successful.@H_502_9@150 opening ASCII mode data connection for ip.html.@H_502_9@226 Transfer complete. 1,672 bytes transferred. 1.63 KB/sec.@H_502_9@ftp: 发送 1672 字节，用时 0.00Seconds 1672000.00Kbytes/sec.@H_502_9@ftp> quit@H_502_9@221 Goodbye,closing session.

ftp -s:filename是把一些ftp的命令写入filename中，FTP自动运行里面的内容