GIF到剪贴板_WinClip

WinClip把指定文件放入剪切板、GIF、富文本和链接粘贴等例子.zip

Html剪贴板富文本+Gif示例.ahk

#NoEnv
#SingleInstance Force
SetBatchLines -1
; https://www.autohotkey.com/boards/viewtopic.php?f=6&t=80706

; 在 WinClip.SetHTML 上保留换行符
; Clipboard := StrReplace(Clipboard, "`n", "
")

; 富文本带链接、字体加粗、字体颜色的示例【需在Word中粘贴】
F1::
富文本=
(
AutoHotkey精选资源站

5号字体加粗_紫色

5号字体换行_紫色

3号字第一行_红色

3号字换行_原黑色


)
SetClipboardHTML(富文本)
SendInput ^v
Return

; 将Gif存到剪贴板的示例
F3::
ImageFile := "D:/test.gif"

HtmlGif转换 =
(




)
SetClipboardHTML(HtmlGif转换)
SendInput ^v
Return

; 官方帖子的回复示例【在QQ和Word中都能粘贴】
F4::
SetClipboardHTML("
Welcome to AutoHotkey
",, "Welcome to AutoHotkey")
SendInput ^v
Return


SetClipboardHTML(HtmlBody, HtmlHead:="", AltText:="") {  ; v0.67 by SKAN on D393/D42B
  Local  F, Html, pMem, Bytes, hMemHTM:=0, hMemTXT:=0, Res1:=1, Res2:=1   ; @ tiny.cc/t80706
  Static CF_UNICODETEXT:=13,   CFID:=DllCall("RegisterClipboardFormat", "Str","HTML Format")

  if ! DllCall("OpenClipboard", "Ptr",A_ScriptHwnd)
    Return 0
   else DllCall("EmptyClipboard")

  if (HtmlBody!="")
    Html := "Version:0.9`r`nStartHTML:00000000`r`nEndHTML:00000000`r`nStartFragment"
        . ":00000000`r`nEndFragment:00000000`r`n`r`n`r`n`r`n"
              . HtmlHead . "`r`n`r`n`r`n`r`n"
                . HtmlBody . "`r`n`r`n`r`n"
    , Bytes := StrPut(Html, "utf-8")
    , hMemHTM := DllCall("GlobalAlloc", "Int",0x42, "Ptr",Bytes+4, "Ptr")
    , pMem := DllCall("GlobalLock", "Ptr",hMemHTM, "Ptr")
    , StrPut(Html, pMem, Bytes, "utf-8")

    , F := DllCall("Shlwapi.dll\StrStrA", "Ptr",pMem, "AStr","", "Ptr") - pMem
    , StrPut(Format("{:08}", F), pMem+23, 8, "utf-8")
    , F := DllCall("Shlwapi.dll\StrStrA", "Ptr",pMem, "AStr","", "Ptr") - pMem
    , StrPut(Format("{:08}", F), pMem+41, 8, "utf-8")
    , F := DllCall("Shlwapi.dll\StrStrA", "Ptr",pMem, "AStr","