Vba 将多个命令从Visual Basic发送到cmd
所以我有一个包含一系列命令的批处理文件。（约10人）— 我决定为这个工具创建一个简单的gui——只需一个按钮就可以一个接一个地执行命令（当命令A完成时，命令B启动） 问题是我不想使用SendKey方法，我正在寻找一种甚至不会显示命令提示符窗口的方法。有没有办法做到这一点 我显然是初学者，所以欢迎任何帮助：） 多谢各位 这是批处理文件的一部分，我需要将其“翻译”为VBA代码Vba 将多个命令从Visual Basic发送到cmd,vba,cmd,command-line-arguments,Vba,Cmd,Command Line Arguments,所以我有一个包含一系列命令的批处理文件。（约10人）— 我决定为这个工具创建一个简单的gui——只需一个按钮就可以一个接一个地执行命令（当命令A完成时，命令B启动） 问题是我不想使用SendKey方法，我正在寻找一种甚至不会显示命令提示符窗口的方法。有没有办法做到这一点 我显然是初学者，所以欢迎任何帮助：） 多谢各位 这是批处理文件的一部分，我需要将其“翻译”为VBA代码 wevtutil epl Application %temp%\Sysinfo\AppLog.evtx wevtutil e
wevtutil epl Application %temp%\Sysinfo\AppLog.evtx
wevtutil epl System %temp%\Sysinfo\SystemLog.evtx
takeown /f %temp%\Sysinfo /r /d y
icacls %temp%\Sysinfo /grant administrators:F /T
set FILETOZIP=%temp%\Sysinfo
set TEMPDIR=%temp%\Zip
rd /s /q %TEMPDIR%
mkdir %TEMPDIR%
copy %FILETOZIP% %TEMPDIR%
echo Set objArgs = WScript.Arguments > _zipIt.vbs
echo InputFolder = objArgs(0) >> _zipIt.vbs
echo ZipFile = objArgs(1) >> _zipIt.vbs
echo CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" ^& Chr(5) ^& Chr(6) ^& String(18, vbNullChar) >> _zipIt.vbs
echo Set objShell = CreateObject("Shell.Application") >> _zipIt.vbs
echo Set source = objShell.NameSpace(InputFolder).Items >> _zipIt.vbs
echo objShell.NameSpace(ZipFile).CopyHere(source) >> _zipIt.vbs
echo wScript.Sleep 2000 >> _zipIt.vbs
CScript _zipIt.vbs %TEMPDIR% %userprofile%\Desktop\Systeminfo.zip
cmd /c dir&time /t%date /t%type c:\windows\win.ini&echo hello
cmd /c dir&time /t%date /t%type c:\windows\win.ini&echo hello