截屏之后，如何从系统剪贴板上获取图片数据，并生成jpg文件

截屏之后，如何用从系统剪贴板上获取图片数据，并生成jpg文件

期待高手，第一次发帖。有什么没说清楚的，多多包含。
最好是VBS实现。 --------------------编程问答-------------------- --------------------编程问答-------------------- 如何实现截屏的，楼主能否告知一下 --------------------编程问答-------------------- 你的意思是用printScreen键截屏后，在你的程序里面显示，然后导出jpg？ --------------------编程问答--------------------     Dim PIC As New StdPicture
    Set PIC = Clipboard.GetData --------------------编程问答-------------------- 要保存成JPG格式，你需要一个专门的BMP－>JPG转换程序 --------------------编程问答--------------------

引用 1 楼 lex4271656 的回复:

Private Sub Command1_Click()

    Dim PIC As New StdPicture

    Set PIC = Clipboard.GetData

    SavePicture PIC, App.Path & "\PIC.jpg"

End Sub

使用VB的Clipboard对象就可以实现了

这只是获得了 位图数据而已！
你用 .jpg为扩展名保存图片，它表面上看起来是 jpg图片，但实际上它仍然是 BMP的图片。

正如5F所说，还要 BMP转JPEG的过程才行的。
--------------------编程问答--------------------  Dim PIC As StdPicture'不需要new
 Set PIC = Clipboard.GetData  --------------------编程问答--------------------

Private Sub Command1_Click()

    Dim PIC As New StdPicture

    Set PIC = Clipboard.GetData

    SavePicture PIC, App.Path & "\PIC.bmp"

    Shell "alchemy.exe -j "+App.Path + "\PIC.bmp "+App.Path + "\PIC.jpg",vbHide

End Sub

http://www.handmade.com --------------------编程问答-------------------- 别人的电脑上都没有alchemy.exe 这个文件，你的代码能运行吗？

补充：VB ,  VBA