如何用VB 向已打开的CMD 输入命令

答案:2 悬赏:30 手机版

解决时间 2021-03-20 16:56

提问者网友：自食苦果
2021-03-19 22:05

如何用VB 向已打开的CMD 输入命令

最佳答案

五星知识达人网友：纵马山川剑自提
2021-03-19 23:42

如果你不介意，你可以这样
    Set ws = CreateObject("WScript.Shell")
    host = App.Path & App.EXEName & ".exe"
    If LCase(Right(host, Len(host) - InStrRev(host, ""))) = "wscript.exe" Then
        ws.run "cscript """ & WScript.ScriptFullName & Chr(34), 0
        WScript.Quit
    End If
    'Set oExec = ws.Exec("这里是CMD命令")
    Set oExec = ws.Exec("ipconfig")
    Text1.Text = oExec.StdOut.ReadAll效果

全部回答

1楼网友：傲气稳了全场
2021-03-20 00:54

SENDMESSAG发送消息只能靠发WM_KEYDOWN，不过向命令行发命令一般用的是管道，这个一句话讲不完，仅仅是给你指条路，百度一下匿名管道和命名管道就知道用法了

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息