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

[问题求助] 帮我修改一下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    '关闭图片窗口
我是小白,希望老师多多帮助

返回列表