seamorningshine赤贫lv0

这个人很懒,什么都没有留下!

概览

发布的

订单

邀请码

关注

粉丝

收藏

设置

  • 自用一个很久的,算是比较稳定可用的了。唯一问题是只能粘贴纯文本,没有找到解决办法,用clipboardall也没解决,试了下其他剪贴板软件也不能实现批量的带格式文本粘贴,目前来看没有解决办法,敬请各位指点。
    ```ahk

    #NoEnv
    ;~ SendMode Input
    SetWorkingDir %A_ScriptDir%

    global obj:=[]
    global mcopy_num := 1
    global toget = 1
    global lbType
    SetTimer,Tool21,100,On
    OnClipboardChange("GetClipContent")
    return

    GetClipContent(Type) {
    lbType := Type
    if (toget == 1)
    {
    obj[mcopy_num] := Clipboard
    mcopy_num := mcopy_num + 1
    }
    }

    Tool21:
    lb:=mcopy_num - 1
    ToolTip,剪贴板类型:%lbType%`n已拷贝次数:%lb%`n`n使用说明:`n c:复制 x:剪切 v:粘贴`n r:重置 esc:退出
    return

    c:: ;复制
    send,^c
    ClipWait,0.1
    sleep,20
    return

    x:: ;剪切
    send,^x
    ClipWait,0.1
    sleep,20
    return

    v:: ;粘贴纯文本
    mcopy := obj[1]
    loop_num := mcopy_num -2
    i = 2
    loop,%loop_num%
    {
    mcopy := mcopy . "`n" . obj[i]
    i := i + 1
    }
    toget = 0
    Clipboard := mcopy
    sleep 20
    send,^v
    toget = 1
    return

    r:: ;重置
    obj:=[]
    mcopy_num:=1
    return

    esc::ExitApp

    GuiEscape:
    GuiClose:
    ExitApp

    ```

    各位ahkboy,请推荐下复制粘贴工具哟,谢谢了
  • 兄dei,代码呢

    谢芳菲|文本可间断复制神器
个人中心
购物车
优惠劵
有新私信 私信列表
搜索