- 帖子
- 758
- 积分
- 977
- 技术
- 4
- 捐助
- 0
- 注册时间
- 2021-8-30
|
[问题求助] 帮我修改一下vbs文件(由前台打开图片,改为后台打开【最小化打开也行】)
本帖最后由 yyz219 于 2021-10-6 10:10 编辑
帮我修改一下vbs文件(由前台打开图片,改为后台打开【最小化打开也行】):
'把拖到这里的 “图片” 打开
If wscript.Arguments.count=0 then
msgbox "拖拽图片文件到此vbs文件",0,"提示"
WScript.Quit
End if
for jb=0 to wscript.Arguments.count-1
strPath=wscript.Arguments(jb)
Set Shell = CreateObject("Wscript.Shell")
select case lcase(right(strPath,4))
'后缀名为4位的图片类型
case "jpeg"
Shell.Run chr(34)&strPath&chr(34)
end select
select case lcase(right(strPath,3))
'后缀名为3位的图片类型
case "jpg","png","bmp","gif"
Shell.Run chr(34)&strPath&chr(34)
end select
next
'把打开 “图片”复制到剪切板【实际就是按 “Ctrl+C”】
Dim objws
Set objws=WScript.CreateObject("wscript.shell")
WScript.Sleep 300 '表示延时300毫秒
objws.SendKeys "^{C}" '【"^{C}"="Ctrl+C"】
createobject("wscript.shell").run "cmd /c taskkill /f /im ACDSeeQV.exe",0 '关闭图片窗口 |
|