vbs 的二个解释程序区别与切换及与BAT互调用。

WScript.exe : 窗口中运行
CScript.exe :命令行中运行

用法:<CScript|WScript> scriptname.extension [option...] [arguments...]
选项:
 //B         批模式:不显示脚本错误及提示信息
 //D         启用 Active Debugging
 //E:engine  使用执行脚本的引擎
 //H:CScript 将默认的脚本宿主改为 CScript.exe
 //H:WScript 将默认的脚本宿主改为 WScript.exe (默认)
 //I         交互模式(默认,与 //B 相对)
 //Job:xxxx  执行一个 WSF 工作
 //Logo      显示徽标(默认)
 //Nologo    不显示徽标:执行时不显示标志
 //S         为该用户保存当前命令行选项
 //T:nn      超时设定秒:允许脚本运行的最长时间
 //X         在调试器中执行脚本
 //U         用 Unicode 表示来自控制台的重定向 I/O

在VBS中调用BAT并隐藏命令窗口

Set ws = CreateObject("Wscript.Shell") 
ws.run "cmd /c filename.bat",vbhide 

在BAT中调用VBS

@echo off
open.vbs
echo aaa
Set ws = CreateObject("Wscript.Shell")
wscript.sleep 5000
ws.run "cmd /c start notepad.exe",vbhide
wscript.sleep 3000
ws.run "cmd /c start iexplore.exe",vbhide

运行BAT得到效果为:5秒后打开notepad.exe 再隔3秒后打开iexplore.exe

取个人桌面路径BAT

For /f "tokens=2,*" %%i in ('reg query "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders" /v "Desktop"') do Set dt=%%j

创建快捷方式VBS

Dim NewTargetPath,NewWorkingDirectory,Strlnk,WshShell,oShellLink
Strlnk = "D:YDB.lnk"           '设置快捷方式。
NewTargetPath = "D:abc"        '设置新目标路径
NewWorkingDirectory = "G:CBM"  '设置新起始位置
set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut(Strlnk)
oShellLink.TargetPath = NewTargetPath
oShellLink.WorkingDirectory = NewWorkingDirectory
oShellLink.Save

一个同时被cmd.exe与wscrpt.exe执行的文件:

:On Error Resume Next 
Sub bat 
echo off & cls 
echo Batching_codez_here_following_vbs_rules & pause 
start wscript -e:vbs "%~f0" 
Exit Sub 
End Sub 
MsgBox "This is vbs" 

:On Error Resume Next

cmd.exe 识别成一段注释 wscript.exe 这样识别, : 在vbs语法里代表分行,然后 On Error Resume Next,也就是让WSH忽略一些错误

start wscript -e:vbs "%~f0"

cmd.exe 识别成:启动 wscript.exe ,其参数是: ① -e:vbs 设定以vbs解析文件自身 ② "%~f0" 指这个批处理本身。

wscript.exe 把这句识别成:调用一个叫 start 的函数,函数参数是 wscript 这个变量,然后用这个函数的结果来 减去 e。接下来是又是一个 : ,分行,然后又是调用一个名叫 vbs 的函数,参数是字符: "%~f0"

这句是最为精巧的,因为它成功的让 vbs 引擎解释了一段批处理,而且没有错误!当然这些 start()、vbs()函数是不存在的,但是会被 cmd.exe 当成命令执行。为什么不用 wscript //e:vbs "%~f0" 来执行呢?vbs解析会出错的,呵呵

这段代码的核心思想已经介绍完毕了。下面,为了让 批处理 以vbs调用其自身后,马上退出,我们需要 exit 或者 goto :eof,但是 goto call exit 在vbs又是一个关键词,所以我们只能用符合 vbs 语法的 exit sub,所以我们在第二句加一个 sub bat,其实 cmd.exe 寻找了一个叫 sub.exe 的命令,但是这个命令是不存在的,cmd.exe 跳过。然后在 6、7 句加一个 exit sub 以及 end sub,让 批处理结束,同时又符合 vbs 的语法

那个 echo off & cls ,批处理的意思就是相当于 @echo off ,但是 vbs 不认 @ 符号,所以改成 echo off & cls , vbs 可以解析为,调用一个叫 echo() 的函数,参数为 off & cls ,也就是两个字符串 off 和 cls 相加

Well,接下来,你可以运行vbs脚本了,效率和真正的vbs一样高!

这段代码的好处是:不用生成临时文件。其实用 echo 或者 more 或者 find 来生成临时vbs很浪费系统资源的,用我写的这段代码,就完全免去了这些麻烦。直接混合编程,以 start wscript -e:vbs "%~f0" 为界限,上面写 批处理,下面写 vbs,并行不悖!

Tty725 说:
欢迎转载,但请注明内容的来源或URL;
[转]”篇章,必须保留原始来源且勿添加本blog指向。
原文地址:https://www.cnblogs.com/Tty725/p/5275182.html