批处理之家 - Powered by Discuz! Board

标题: [问题求助] 【已解决】求vbs，文件拖到vbs快捷方式图标，用D:\记事本Notepad3\Notepad3.exe打开 [打印本页]

作者: yyz219 时间: 2021-12-31 09:12 标题: 【已解决】求vbs，文件拖到vbs快捷方式图标，用D:\记事本Notepad3\Notepad3.exe打开

本帖最后由 yyz219 于 2021-12-31 13:38 编辑

完美解决了

查看编码.vbs

Set objArgs = Wscript.Arguments
if objArgs.Count>0 Then
        Set objShell = CreateObject("Wscript.Shell")
        commond="D:\记事本Notepad3\Notepad3.exe "+objArgs(0)
        objShell.Run commond
end if

WScript.Sleep(500)                                                        '【延时500毫秒】
wscript.createobject("wscript.shell").sendkeys "%{F}"       '%【按Alt+F】%
wscript.createobject("wscript.shell").sendkeys "{E}"         '%【按   E 】%
wscript.createobject("wscript.shell").sendkeys "{S}"         '%【按   S 】%
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2