[技术讨论] 求助大神，剪贴板内图片如何自动保存为1.bmp

67800461

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

happy886rr

回复 1# 67800461
不要用什么剪切板了，图片拖到脚本上直接转化为D盘1.bmp

Set imgFile = CreateObject("WIA.ImageFile")
Set imgProcess = CreateObject("WIA.ImageProcess")
imgFile.LoadFile WScript.arguments(0)
imgProcess.Filters.Add imgProcess.FilterInfos("Convert").FilterID
imgProcess.Filters(1).Properties("FormatID").Value = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
Set imgFile = imgProcess.Apply(imgFile)
imgFile.SaveFile "D:\1.bmp"
复制代码

67800461

回复 2# happy886rr


我只会TC或者   大漠插件   编一些简单的     这是什么脚本编出来的  不明白   最好是VBS 或者大漠 TC     大神 求帮

窄口牛

贴吧有个批处理截图，它肯定有这个，你去看看。

67800461

回复 4# 窄口牛

没找到

happy886rr

回复 5# 67800461
我写的就是vbs，直接保存为test.vbs.把图片拖上去就能转化。就是vbs脚本啊。
C语言的也有，我前天就发布了。链接：http://www.bathome.net/thread-45349-1-1.html
用法：

gifx test.jpg -oD:\1.bmp
复制代码

当然C语言的更加强大，几乎支持各种格式互转，拼接，抠图。

67800461

回复 6# happy886rr


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



  是  右击 复制 到了  剪贴板      然后利用脚本按钮 运行一下      VBS    图片从剪贴板自动保存到     1bmp

happy886rr

回复 7# 67800461
贴到有偿求助区吧。

yu2n

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

已经有人解过了。第一个例子，注释掉第 43 / 44 行即可。

yu2n

VBA 将剪贴板中的图片保存为 jpg 或 png 文件 (VBS同理可得)

    ActiveWindow.View.Type = wdWebView
    Selection.Paste
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Paste
    With ActiveDocument.WebOptions
        .RelyOnCSS = False
        .OptimizeForBrowser = False
        .OrganizeInFolder = False
        .UseLongFileNames = True
        .RelyOnVML = False
        .AllowPNG = True
        .ScreenSize = msoScreenSize1920x1200
        .PixelsPerInch = 96
        .Encoding = 65001
    End With
    With Application.DefaultWebOptions
        .UpdateLinksOnSave = False
        .CheckIfOfficeIsHTMLEditor = False
        .CheckIfWordIsDefaultHTMLEditor = False
        .AlwaysSaveInDefaultEncoding = False
        .SaveNewWebPagesAsWebArchives = False
    End With
复制代码