在VBS中包含.bat代码

debugcn 发表于 Dev

布莱恩·C

我有这个“ launchprogram.bat”来调用“ myprogram.exe”（真实名称为ppbS.exe）

原始代码launchprogram.bat

call "ppbS.exe"
set ppbPath=ppbS
set pathHold=%path%
set path=%ppbPath%;%path% 
ppbS create "ppbS" ShowPct 1 No Crawl 1 SetCrawlTime 1 300000
ppbS settext 1 "Start myprogram... Be pacient"
second.bat
ppbS shutdown
set path=%pathHold%
set pathHold=
set ppbPath=

注意：“ second.bat”是另一个蝙蝠跑的皮

extra：此版本的“ launchprogram.bat”由Noodles提供

"Cmd /c ""ppbS.exe"" & Dir & set ppbPath=ppbS & set pathHold=%path% & set path=%ppbPath%;%path% & ppbS create ""ppbS"" ShowPct 1 No Crawl 1 SetCrawlTime 1 300000 & ppbS settext 1 ""Start myprogram... Be pacient"" & second.bat & ppbS shutdown"

反正; 我用这个“ start.vbs”来调用“ launchprogram.bat”

On Error Resume Next
mensaje = MsgBox("Start myprogram", vbOKCancel, "myprogram")
If mensaje = vbOK Then
    Script = "launchprogram.bat"
    Set objshell = CreateObject("Wscript.Shell")
    strPath = Wscript.ScriptFullName
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(strPath)
    strFolder = objFSO.GetParentFolderName(objFile)
    NewPath = objFSO.BuildPath(strFolder, Script)
    Set objshell = CreateObject("wscript.shell")
    objshell.Run NewPath, vbHide
Else
    Set objshell = CreateObject("Wscript.shell")
    rmensaje = objshell.popup("Cancel myprogram", 3, "myprogram", 16)
End If

如您所见，它们太多了脚本和太多代码，无法调用一个简单的程序。

要求：

我想删除“ launchprogram.bat”并将其代码放入“ start.vbs”中，以便仅使用一个脚本来调用“ myprogram.exe”

非常感谢

用户名

objshell.run "Cmd /c ""myprogram.exe"" & Dir & set ppbPath=myprogram & set pathHold=%path% & set path=%ppbPath%;%path% & ppbS create ""myprogram"" ShowPct 1 No Crawl 1 SetCrawlTime 1 300000 & ppbS settext 1 ""Start myprogram... Be pacient"" & ppbS shutdown", vbhide

未定义VBHide。如果它是0，则未定义。将其视为0。这是因为在VBScript中常量不可用。幸运的是VBHide恰好是0。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。