如何用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效果
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，不过向命令行发命令一般用的是管道，这个一句话讲不完，仅仅是给你指条路，百度一下匿名管道和命名管道就知道用法了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯