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

显示全部楼层 · 发表于 2021-12-31 09:47:00

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

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

显示全部楼层 · 发表于 2021-12-31 10:27:09

你创建一个 D:\记事本Notepad3\Notepad3.exe 的快捷方式不就可以了。

显示全部楼层 · 发表于 2021-12-31 10:33:25

本帖最后由 yyz219 于 2021-12-31 10:34 编辑

yfdyh000 发表于 2021-12-31 10:27
你创建一个 D:\记事本Notepad3\Notepad3.exe 的快捷方式不就可以了。

我还有其它需求的（打开以后还有其它动作）

显示全部楼层 · 发表于 2021-12-31 12:34:43

参考 https://www.cnblogs.com/huangsitao/p/10284307.html 。

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

复制代码

显示全部楼层 · 发表于 2021-12-31 13:14:51

yfdyh000 发表于 2021-12-31 12:34
参考 https://www.cnblogs.com/huangsitao/p/10284307.html 。

我去试一试先。谢谢！

显示全部楼层 · 发表于 2021-12-31 13:26:27

yfdyh000 发表于 2021-12-31 12:34
参考 https://www.cnblogs.com/huangsitao/p/10284307.html 。

我想打开后在模拟快捷键，怎么弄？

wscript.createobject("wscript.shell").sendkeys "%{F}"    '%【按Alt+F】%
wscript.createobject("wscript.shell").sendkeys "{E}"       '%【按 E 】%
wscript.createobject("wscript.shell").sendkeys "{S}"       '%【按 S 】%

显示全部楼层 · 发表于 2021-12-31 13:29:10

yfdyh000 发表于 2021-12-31 12:34
参考 https://www.cnblogs.com/huangsitao/p/10284307.html 。

问题解决了非常感谢

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

本帖子中包含更多资源

评分

评分