请问如何将一张图片放入剪贴板，然后可以CTRL+V 复制到QQ里面

80ren · 发表于 2010-7-21 17:02:10

请问如何将一张图片放入剪贴板，然后可以CTRL+V 复制到QQ里面

如：将图片:d:\3.jpg 放到剪贴板，让后可以CTRL+V 到QQ聊天窗口

我现在是将图片通过IE 载入了：

GUICtrlCreateGroup("dd", 5, 160, 300, 150)
Dim $frm_main_oIE = _IECreateEmbedded()
Dim $frm_main_GUIActiveX = GUICtrlCreateObj($frm_main_oIE, 18, 180, 275, 115)
$frm_main_oIE.Navigate ("about:blank")

With $frm_main_oIE
;.Document.open
;.Navigate ("about:blank")
.Document.writeln ("<html><body sytel='border:0px;' ><img id='pic' src='"&@TempDir&"\qqjt.tmp.jpg'></body></html>")
.Refresh
;.Document.close
EndWith

如果能直接通过 IE操作，复制到剪贴板，就更nice了，

给点提示吧

republican · 发表于 2010-7-21 22:53:14

本帖最后由 republican 于 2010-7-21 22:54 编辑

                                        $ScreenSaveToBit= _ScreenCapture_Capture("", $aPos[0], $aPos[1], $aPos[0] + $aPos[2], $aPos[1] + $aPos[3], 0)
                                   _ClipBoard_Open(0)
                                        _ClipBoard_Empty()
                                        _ClipBoard_SetDataEx($ScreenSaveToBit,$CF_BITMAP)
                                        _ClipBoard_Close()
                                        _WinAPI_DeleteObject($ScreenSaveToBit)

ScreenSaveToBit为文件句柄,自己看着办吧。

80ren · 发表于 2010-7-22 15:00:36

回复 2# republican

god job !!

高手隐于市

wyd301 · 发表于 2010-7-30 11:28:40

查看用户自定义UDF

		自动登录	找回密码
密码			加入

[图形处理] 请问如何将一张图片放入剪贴板，然后可以CTRL+V 复制到QQ里面

相关帖子

评分