[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
tf2713

Rank: 1

帖子
5 
积分
18 
技术
0  
捐助
0  
注册时间
2019-9-1 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2020-12-4 20:17 | 只看该作者

[其他] 批处理调用vbs的语法问题：执行快捷方式模拟按键

大家好，我想生成一个执行按键模拟收入的快捷方式，即执行快捷方式后会模拟按键
快捷方式目标为
mshta.exe VBScript:CreateObject("WScript.Shell").SendKeys("^%{LEFT}")(window.close)

用vbs写的为
Set a=WScript.CreateObject("WScript.Shell")
set b=a.CreateShortcut(a.CurrentDirectory & "\上首.lnk")
b.TargetPath="mshta.exe"
b.Arguments="VBScript:CreateObject(""WScript.Shell"").SendKeys(""^{LEFT}"")(window.close)"
b.IconLocation=a.CurrentDirectory & "\Pintf.exe,3"
b.WorkingDirectory=a.CurrentDirectory
b.Save

但因为我还要执行后续的操作，需要把vbs转批处理
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\上首.lnk""):b.TargetPath=""mshta.exe"":b.IconLocation=""%~dp0Pintf.exe,3"":b.Save:close")
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\上首.lnk""):b.Arguments=""VBScript:CreateObject(""WScript.Shell"").SendKeys(""^{LEFT}"")(window.close)"":b.Save:close")

批处理中，VBScript:CreateObject(""WScript.Shell"").SendKeys(""^%{RIGHT}"")(window.close") 直接这样写会报错，估计是语法格式问题，请高手帮忙修改下，让批处理执行会可以创建快捷方式，且目标为
C:\Windows\system32\mshta.exe VBScript:CreateObject("WScript.Shell").SendKeys("^{LEFT}")(window.close)



注意：我是需要是批处理
收藏 分享

tf2713

Rank: 1

帖子
5 
积分
18 
技术
0  
捐助
0  
注册时间
2019-9-1 
2楼
发表于 2020-12-4 20:26 | 只看该作者
解决了，是双引号问题，两个"等于一个"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\下首.lnk""):b.Arguments=""VBScript:CreateObject(""""WScript.Shell"""").SendKeys(""""RIGHT}"""")(window.close)"":b.Save:close")

TOP

返回列表