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

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

请问如何将一张图片放入剪贴板，然后可以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了，{:face (197):}

给点提示吧{:face (113):}

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

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

                                        $ScreenSaveToBit= _ScreenCapture_Capture("", $aPos, $aPos, $aPos + $aPos, $aPos + $aPos, 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
页: [1]
查看完整版本: 请问如何将一张图片放入剪贴板，然后可以CTRL+V 复制到QQ里面