Windowsフォームでプログラムを実行し続ける

Question

私はIPアドレスをpingしてsshセクションにログインするための小さなプログラムを作ろうとしています。

私は、それらのいずれかを閉じずにping変更可能なIPアドレスを保持できるようにしたい。

私はsshセクションと同じことをしたいと思います。今すぐcmdを閉じて別のアドレスにpingする必要があります。

Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim ip As String = TextBox1.Text 
     Dim Command As String 
     Command = "putty.exe" & " " & "-ssh" & " " & "user" & "@" & ip & " " & "port" & " " & "-pw" & " " & "Password" 
     Shell($"cmd /K{Command}", 1, True) 

    End Sub 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
     Dim textvar As String = TextBox2.Text 
     Dim Command As String 
     Command = "Ping" & " " & textvar & " " & "-t " 
     Shell("cmd /k" & Command, 1, True) 
    End Sub 
End Class 

Answer 1

私はあなたの問題を助けることはできませんが、あなたのコードを少しきれいにすることができます。

よりもむしろあなただけの間隔で一緒に文字列を入れていない理由を

& " " & 

を使用。
Command = "putty.exe -sh user@" & ip & " port -pw Password" Shell($"cmd /K{Command}", 1, True)

それはまったく同じことを行いますが、できるだけ多くの文字の近くに持っていると私自身の謙虚な意見で簡単に読み込みません。それから、次のようになります。