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 allora Uscire il sommergibile Concluder se Concluder se Oscurare CMD come nuovo Threading.Thread (AddressOf GETCMD) CMD.Start () Concludono il sommergibile Sommergibile riservato GETCMD () CMDprocess fioco come nuovo processo StartInfo fioco come nuovo System.Diagnostics.ProcessStartInfo StartInfo.FileName = “cmd„ StartInfo.RedirectStandardInput = allineano StartInfo.RedirectStandardOutput = allineano StartInfo.UseShellExecute = falso StartInfo.CreateNoWindow = allineano CMDprocess.StartInfo = StartInfo CMDprocess.Start () SR fioco come System.IO.StreamReader = CMDprocess.StandardOutput Interruttore fioco come System.IO.StreamWriter = CMDprocess.StandardInput SW.WriteLine (“ftp - s: „ & strFtpArgs & ““& striscia) SW.WriteLine (“uscita„) strResults = strResults & risultati di ritorni di SR.ReadToEnd 'della finestra di ordine Me.SetText (strResults) SW.Close () SR.Close () Sommergibile dell'estremità SetText secondario riservato (ByVal [testo] come stringa) Se Me.TextBox1.InvokeRequired allora D fioca come nuovo SetTextCallback (AddressOf SetText) Me.Invoke (d, nuovo oggetto () {[testo]}) Altrimenti Me.TextBox1.Text = [testo] Concluder se Concludere il sommergibile Concludere il codice categoria