如何用if exist 后面跟mshta VBScript:Execute

kidzgy

1. if exist "C:\Program Files\RustDesk\RustDesk.exe" (
   
2. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\RustDesk.lnk""):b.TargetPath=""C:\Program Files\RustDesk\RustDesk.exe"":b.WorkingDirectory=""C:\Program Files\RustDesk"":b.Arguments=""--tray"":b.Save:close")
   
3. )

复制代码

单独运行mshta创建快捷方式是没有问题的，但是我想添加一个if的条件语句，于是就弹出上面的脚本错误，不知该如何解决呢？

aloha20200628

回复 1# kidzgy

规避 cmd 对 if ... () 语块中的双引号和括号的特殊解析要求，改为如下句式即可...

1. 
   
2. @echo off & if not exist "C:\Program Files\RustDesk\RustDesk.exe" exit/b
   
3. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\RustDesk.lnk""):b.TargetPath=""C:\Program Files\RustDesk\RustDesk.exe"":b.WorkingDirectory=""C:\Program Files\RustDesk"":b.Arguments=""--tray"":b.Save:close")
   

复制代码

kidzgy

回复 2# aloha20200628


    感谢解答！实际上，在创建快捷方式后，我后面还有其他代码要执行，你这种情况是适合将创建快捷方式放到最后一行执行。

还是得用回call，才能解决上面的冲突了。

1. if exist "C:\Program Files\RustDesk\RustDesk.exe" call :lnk
   
2. pause
   
3. 
   
4. :lnk
   
5. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\RustDesk.lnk""):b.TargetPath=""C:\Program Files\RustDesk\RustDesk.exe"":b.WorkingDirectory=""C:\Program Files\RustDesk"":b.Arguments=""--tray"":b.Save:close")
   
6. goto :eof

复制代码

aloha20200628

回复 3# kidzgy

二楼代码只是针对一楼的示例代码，不一定仅适用于 ‘最后一行’ 的特定实况... 总之能帮助楼主解决问题就是好事

buyiyang

在倒数第二个右括号前加一个脱字符:b.Save:close"^)

kidzgy

回复 5# buyiyang


    能生效了！好神奇，为什么唯独在最后一个括号才需要加^

aloha20200628

回复 1# kidzgy

若采用 mshta 网页代码的句式即可顺利载入一楼 vbs 核心代码，不必再费周折应付 cmd 对 if ... () 复合语块中双引号和括号的特殊解析要求了...

1. 
   
2. if exist "C:\Program Files\RustDesk\RustDesk.exe" (
   
3.   mshta vbscript:"<script type=text/vbscript>set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\RustDesk.lnk""):b.TargetPath=""C:\Program Files\RustDesk\RustDesk.exe"":b.WorkingDirectory=""C:\Program Files\RustDesk"":b.Arguments=""--tray"":b.Save:close</script>"
   
4. )
   

复制代码

kidzgy

回复 7# aloha20200628


    感谢解答！长见识了！

77七

1. if exist "C:\Program Files\RustDesk\RustDesk.exe" mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\RustDesk.lnk""):b.TargetPath=""C:\Program Files\RustDesk\RustDesk.exe"":b.WorkingDirectory=""C:\Program Files\RustDesk"":b.Arguments=""--tray"":b.Save:close")

复制代码

1. set vbsline=mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\RustDesk.lnk""):b.TargetPath=""C:\Program Files\RustDesk\RustDesk.exe"":b.WorkingDirectory=""C:\Program Files\RustDesk"":b.Arguments=""--tray"":b.Save:close")
   
2. if exist "C:\Program Files\RustDesk\RustDesk.exe" (
   
3.         call %%vbsline%%
   
4. )

复制代码

1. set vbsline=mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\RustDesk.lnk""):b.TargetPath=""C:\Program Files\RustDesk\RustDesk.exe"":b.WorkingDirectory=""C:\Program Files\RustDesk"":b.Arguments=""--tray"":b.Save:close")
   
2. if exist "C:\Program Files\RustDesk\RustDesk.exe" (
   
3.         setlocal enabledelayedexpansion
   
4.         !vbsline!
   
5.         endlocal
   
6. )

复制代码

jiavip

回复 8# kidzgy


    7楼是大牛，应该是网页开发相关领域的。擅长网页开发代码，ASP，JS,VBS,PHP之类的，，