本帖最后由 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 】%
复制代码
|