求助大神，剪贴板内图片如何自动保存为1.bmp

67800461

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

happy886rr

回复 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

回复 2# happy886rr


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

窄口牛

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

67800461

回复 4# 窄口牛

没找到

happy886rr

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

1. 
   
2. 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同理可得)

1. 
   
2.     ActiveWindow.View.Type = wdWebView
   
3.     Selection.Paste
   
4.     Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
   
5.     Selection.Delete Unit:=wdCharacter, Count:=1
   
6.     Selection.Paste
   
7.     With ActiveDocument.WebOptions
   
8.         .RelyOnCSS = False
   
9.         .OptimizeForBrowser = False
   
10.         .OrganizeInFolder = False
    
11.         .UseLongFileNames = True
    
12.         .RelyOnVML = False
    
13.         .AllowPNG = True
    
14.         .ScreenSize = msoScreenSize1920x1200
    
15.         .PixelsPerInch = 96
    
16.         .Encoding = 65001
    
17.     End With
    
18.     With Application.DefaultWebOptions
    
19.         .UpdateLinksOnSave = False
    
20.         .CheckIfOfficeIsHTMLEditor = False
    
21.         .CheckIfWordIsDefaultHTMLEditor = False
    
22.         .AlwaysSaveInDefaultEncoding = False
    
23.         .SaveNewWebPagesAsWebArchives = False
    
24.     End With
    

复制代码