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

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

本帖最后由 yyz219 于 2021-12-31 13:38 编辑
  1. 完美解决了
  2. 查看编码.vbs
  3. Set objArgs = Wscript.Arguments
  4. if objArgs.Count>0 Then
  5.         Set objShell = CreateObject("Wscript.Shell")
  6.         commond="D:\记事本Notepad3\Notepad3.exe "+objArgs(0)
  7.         objShell.Run commond
  8. end if
  9. WScript.Sleep(500)                                                        '【延时500毫秒】
  10. wscript.createobject("wscript.shell").sendkeys "%{F}"       '%【按Alt+F】%
  11. wscript.createobject("wscript.shell").sendkeys "{E}"         '%【按   E 】%
  12. wscript.createobject("wscript.shell").sendkeys "{S}"         '%【按   S 】%
复制代码
我是小白,希望老师多多帮助

返回列表