從Visual Basic發送多個命令到cmd

-2

所以我有包含一系列命令的批處理文件。（10） -從Visual Basic發送多個命令到cmd

我已經決定，我想爲這個工具創建簡單的GUI - 只需一個按鈕，將執行命令後，另一個（當命令是否結束命令B開始）

事是我不想使用SendKey方法，我正在尋找一種甚至不會顯示命令提示符窗口的方式。有什麼辦法可以做到這一點？

我明明初學者，所以任何幫助都是歡迎的。

非常感謝！

這是我以某種方式需要「翻譯」到VBA代碼的批處理文件的一部分。

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

來源

2014-02-23 user3343049

CreateObject("Wscript.Shell").Run """" & WScript.Arguments(0) & """", 0, False

上面運行什麼隱藏窗口中的命令行上傳遞。

&方式隔開一行命令

cmd /c dir&time /t%date /t%type c:\windows\win.ini&echo hello

來源

2014-02-26 05:49:14

非常感謝您！ – user3343049

從Visual Basic發送多個命令到cmd

回答

相關問題