Question

我想尝试一下，这不是官方项目。因此，用户添加了网页，并且我们将其命名为％1，代码采用该输出，并且输出为＆＃34; ping％1＆＃34;然后按确认键。

到目前为止我做了什么

Public Class Form3


    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim textvar As String = TextBox1.Text
        Shell("CMD.exe")
        SendKeys.Send("ping") 'textvar') '{ENTER}')

    End Sub
End Class

输出是一个空的cmd窗口或崩溃。关于如何修复它的任何想法？

更新：我也试过

SendKeys.Send("ping") 'textvar')
SendKeys.Send("{ENTER}")

但是输出是3 cmd，其中1个窗口空了另外2个分开＆＃34; ping＆＃34;单词

Answer 1

不要尝试发送击键（可能会出现问题），只需将ping作为CMD的参数调用。

Shell("CMD.EXE /K PING " & textvar)

/K参数在CMD命令完成后保持PING窗口打开。

Answer 2

Dim textvar As String = TextBox1.Text
Dim Command As String
Command = "Ping" & " " & textvar
Shell("cmd /k" & Command, 1, True)

这应该是对的

来自文本框输入的Visual Basic CMD命令

2 个答案: