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

yyz219

1. 完美解决了
   
2. 
   
3. 查看编码.vbs
   
4. 
   
5. Set objArgs = Wscript.Arguments
   
6. if objArgs.Count>0 Then
   
7.         Set objShell = CreateObject("Wscript.Shell")
   
8.         commond="D:\记事本Notepad3\Notepad3.exe "+objArgs(0)
   
9.         objShell.Run commond
   
10. end if
    
11. 
    
12. WScript.Sleep(500)                                                        '【延时500毫秒】
    
13. wscript.createobject("wscript.shell").sendkeys "%{F}"       '%【按Alt+F】%
    
14. wscript.createobject("wscript.shell").sendkeys "{E}"         '%【按   E 】%
    
15. wscript.createobject("wscript.shell").sendkeys "{S}"         '%【按   S 】%

复制代码