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

yyz219

完美解决了
 
查看编码.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 】%COPY