1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85:
1 del intResult entonces Salir el submarino Terminar si Terminar si Amortiguar CMD como nuevo Threading.Thread (AddressOf GETCMD) CMD.Start () Terminan el submarino Submarino privado GETCMD () CMDprocess dévil como nuevo proceso StartInfo dévil como nuevo System.Diagnostics.ProcessStartInfo StartInfo.FileName = “cmd” StartInfo.RedirectStandardInput = verdad StartInfo.RedirectStandardOutput = verdad StartInfo.UseShellExecute = falso StartInfo.CreateNoWindow = verdad CMDprocess.StartInfo = StartInfo CMDprocess.Start () SENIOR dévil como System.IO.StreamReader = CMDprocess.StandardOutput Interruptor dévil como System.IO.StreamWriter = CMDprocess.StandardInput SW.WriteLine (“ftp - s: ” y strFtpArgs y ““y tira) SW.WriteLine (“salida”) strResults = strResults y resultados de las vueltas de SR.ReadToEnd 'de la ventana del comando Me.SetText (strResults) SW.Close () SR.Close () Submarino del extremo SetText secundario privado (ByVal [texto] como secuencia) Si Me.TextBox1.InvokeRequired entonces D dévil como nuevo SetTextCallback (AddressOf SetText) Me.Invoke (d, nuevo objeto () {[texto]}) Me.TextBox1.Text = [texto] Terminar si Terminar el submarino Terminar la clase