Board logo

标题: [技术讨论] 求助大神，剪贴板内图片如何自动保存为1.bmp [打印本页]
作者: 67800461    时间: 2017-9-10 09:03     标题: 求助大神，剪贴板内图片如何自动保存为1.bmp

本帖最后由 67800461 于 2017-9-10 09:17 编辑

求助大神，右击图片复制    然后 剪贴板内图片如何利用VBS    自动保存为D:\\1.bmp      网上百度搜的那些 复制生成 都不对   求助大神   电脑自带的画图
作者: happy886rr    时间: 2017-9-10 10:23

回复 1# 67800461
不要用什么剪切板了，图片拖到脚本上直接转化为D盘1.bmp
  1. Set imgFile = CreateObject("WIA.ImageFile")

  2. Set imgProcess = CreateObject("WIA.ImageProcess")

  3. imgFile.LoadFile WScript.arguments(0)

  4. imgProcess.Filters.Add imgProcess.FilterInfos("Convert").FilterID

  5. imgProcess.Filters(1).Properties("FormatID").Value = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"

  6. Set imgFile = imgProcess.Apply(imgFile)

  7. imgFile.SaveFile "D:\1.bmp"
复制代码
作者: 67800461    时间: 2017-9-10 10:53

本帖最后由 67800461 于 2017-9-10 11:03 编辑

回复 2# happy886rr


我只会TC或者   大漠插件   编一些简单的     这是什么脚本编出来的  不明白   最好是VBS 或者大漠 TC     大神 求帮
作者: 窄口牛    时间: 2017-9-10 11:03

贴吧有个批处理截图，它肯定有这个，你去看看。
作者: 67800461    时间: 2017-9-10 11:09

回复 4# 窄口牛

没找到
作者: happy886rr    时间: 2017-9-10 11:37

本帖最后由 happy886rr 于 2017-9-10 11:40 编辑

回复 5# 67800461
我写的就是vbs，直接保存为test.vbs.把图片拖上去就能转化。就是vbs脚本啊。
C语言的也有，我前天就发布了。链接：http://www.bathome.net/thread-45349-1-1.html
用法：
  1. gifx test.jpg -oD:\1.bmp
复制代码
当然C语言的更加强大，几乎支持各种格式互转，拼接，抠图。
作者: 67800461    时间: 2017-9-10 13:00

本帖最后由 67800461 于 2017-9-10 13:16 编辑

回复 6# happy886rr


你给我的 VBS 用记事本 转换VBS保存 运行起来 出错    ，不是要拖图片  QQ聊天里面的 图片 拖不了      



  是  右击 复制 到了  剪贴板      然后利用脚本按钮 运行一下      VBS    图片从剪贴板自动保存到     1bmp
作者: happy886rr    时间: 2017-9-10 16:11

回复 7# 67800461
贴到有偿求助区吧。
作者: yu2n    时间: 2017-9-14 19:22

VBS调用第三方程序实现截屏/屏幕截图
http://www.bathome.net/thread-37404-1-4.html#pid175157

已经有人解过了。第一个例子，注释掉第 43 / 44 行即可。
作者: yu2n    时间: 2017-9-14 19:36

VBA 将剪贴板中的图片保存为 jpg 或 png 文件 (VBS同理可得)
  1.     ActiveWindow.View.Type = wdWebView

  2.     Selection.Paste

  3.     Selection.HomeKey Unit:=wdLine, Extend:=wdExtend

  4.     Selection.Delete Unit:=wdCharacter, Count:=1

  5.     Selection.Paste

  6.     With ActiveDocument.WebOptions

  7.         .RelyOnCSS = False

  8.         .OptimizeForBrowser = False

  9.         .OrganizeInFolder = False

  10.         .UseLongFileNames = True

  11.         .RelyOnVML = False

  12.         .AllowPNG = True

  13.         .ScreenSize = msoScreenSize1920x1200

  14.         .PixelsPerInch = 96

  15.         .Encoding = 65001

  16.     End With

  17.     With Application.DefaultWebOptions

  18.         .UpdateLinksOnSave = False

  19.         .CheckIfOfficeIsHTMLEditor = False

  20.         .CheckIfWordIsDefaultHTMLEditor = False

  21.         .AlwaysSaveInDefaultEncoding = False

  22.         .SaveNewWebPagesAsWebArchives = False

  23.     End With
复制代码




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2