为了方便工作，做了一个复制粘贴的软件，分享给大家。

Smr

为了方便工作，做了一个复制粘贴的软件，分享给大家，还有之前分享的软件，都是自己使用方便的，一起也分享给大家看看。（就是为了赚点论坛币）
快捷调整音量v1.3  弥补没有快捷键的键盘
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14730551
(出处: 精易论坛)

快速复制文本.zip (581.14 KB, 下载次数: 34)

2022-5-22 10:43 上传

点击文件名下载附件
下载积分: 精币 -2 枚

#软件说明：
#可以自动保存
#有气泡提示
#配置文件是隐藏的
#就这些了

-------------------------------------------------------------------------------------------------

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文本1	文本型
文本2	文本型
文本3	文本型
文本4	文本型
文本5	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' ### 版本 v1.3
' ### 第一次启动创建配置项
' ### 启动时读取配置项
' ### 隐藏配置文件
' ### 退出时自动保存
' ### 置顶按钮
' ### 禁止运行多个程序
' ### 编辑实时保存
' ### 记忆上次关闭位置
' ### 记忆上次透明度
' ### 添加皮肤
' 快捷键复制
皮肤_加载 ( #皮肤_QQ2011 )
程序_禁止重复运行 (, 假, “程序已运行”, , 真)
_启动窗口.总在最前 ＝ 真
hk条1.位置 ＝ 到数值 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “透明度”, “位置”, “255”))
设置窗口透明度 (取窗口句柄 (), hk条1.位置)
如果 (文件是否存在 (取运行目录2 () ＋ “huashu.ini”) ＝ 真)
读取显示_子程序1 ()  ' 读取文件
_启动窗口.左边 ＝ 到数值 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “窗口位置”, “左边”, ))
_启动窗口.顶边 ＝ 到数值 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “窗口位置”, “顶边”, ))
置文件属性 (取运行目录2 () ＋ “huashu.ini”, #隐藏文件 )
保存_子程序 ()  ' 创建配置文件

' F8 ＝ zc热键 (取窗口句柄 (), 标签2f8.取窗口句柄 (), 0, #F8键)
' F9 ＝ zc热键 (取窗口句柄 (), 标签3f9.取窗口句柄 (), 0, #F9键)
' F10 ＝ zc热键 (取窗口句柄 (), 标签4f10.取窗口句柄 (), 0, #F10键)
' F11 ＝ zc热键 (取窗口句柄 (), 标签5f11.取窗口句柄 (), 0, #F11键)
' F12 ＝ zc热键 (取窗口句柄 (), 标签6F12.取窗口句柄 (), 0, #F12键)

子程序名	返回值类型	公开	备 注
保存_子程序

写配置项 (取运行目录2 () ＋ “huashu.ini”, “A”, “1”, 编辑框1.内容)
写配置项 (取运行目录2 () ＋ “huashu.ini”, “B”, “2”, 编辑框2.内容)
写配置项 (取运行目录2 () ＋ “huashu.ini”, “C”, “3”, 编辑框3.内容)
写配置项 (取运行目录2 () ＋ “huashu.ini”, “D”, “4”, 编辑框4.内容)
写配置项 (取运行目录2 () ＋ “huashu.ini”, “E”, “5”, 编辑框5.内容)

子程序名	返回值类型	公开	备 注
读取显示_子程序1

文本1 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “A”, “1”, “读取失败”))
文本2 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “B”, “2”, “读取失败”))
文本3 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “C”, “3”, “读取失败”))
文本4 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “D”, “4”, “读取失败”))
文本5 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “E”, “5”, “读取失败”))
编辑框1.内容 ＝ 文本1
编辑框2.内容 ＝ 文本2
编辑框3.内容 ＝ 文本3
编辑框4.内容 ＝ 文本4
编辑框5.内容 ＝ 文本5

子程序名	返回值类型	公开	备 注
_选择框1_被单击

如果 (选择框1.选中 ＝ 真)
选择框1.标题 ＝ “已经置顶”
_启动窗口.总在最前 ＝ 真
选择框1.标题 ＝ “取消置顶”
_启动窗口.总在最前 ＝ 假

子程序名	返回值类型	公开	备 注
_hk条1_位置被改变

设置窗口透明度 (取窗口句柄 (), hk条1.位置)
写配置项 (取运行目录2 () ＋ “huashu.ini”, “透明度”, “位置”, 到文本 (hk条1.位置))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

置剪辑板文本 (编辑框1.内容)
保存_子程序 ()
按钮1.标题 ＝ “已复制”
气球提示框1.弹出提示框 (左边 ＋ 按钮1.左边 ＋ 40, 顶边 ＋ 按钮1.顶边 ＋ 30, “已复制”, -1, )
延迟 (1000)
按钮1.标题 ＝ “复制文本1”

子程序名	返回值类型	公开	备 注
_按钮2_被单击

置剪辑板文本 (编辑框2.内容)
保存_子程序 ()
按钮2.标题 ＝ “已复制”
气球提示框1.弹出提示框 (左边 ＋ 按钮2.左边 ＋ 40, 顶边 ＋ 按钮2.顶边 ＋ 30, “已复制”, -1, )
延迟 (1000)
按钮2.标题 ＝ “复制文本2”

子程序名	返回值类型	公开	备 注
_按钮3_被单击

置剪辑板文本 (编辑框3.内容)
保存_子程序 ()
按钮3.标题 ＝ “已复制”
气球提示框1.弹出提示框 (左边 ＋ 按钮3.左边 ＋ 40, 顶边 ＋ 按钮3.顶边 ＋ 30, “已复制”, -1, )
延迟 (1000)
按钮3.标题 ＝ “复制文本3”

子程序名	返回值类型	公开	备 注
_按钮4_被单击

置剪辑板文本 (编辑框4.内容)
保存_子程序 ()
按钮4.标题 ＝ “已复制”
气球提示框1.弹出提示框 (左边 ＋ 按钮4.左边 ＋ 40, 顶边 ＋ 按钮4.顶边 ＋ 30, “已复制”, -1, )
延迟 (1000)
按钮4.标题 ＝ “复制文本4”

子程序名	返回值类型	公开	备 注
_按钮5_被单击

置剪辑板文本 (编辑框5.内容)
保存_子程序 ()
按钮5.标题 ＝ “已复制”
气球提示框1.弹出提示框 (左边 ＋ 按钮5.左边 ＋ 40, 顶边 ＋ 按钮5.顶边 ＋ 30, “已复制”, -1, )
延迟 (1000)
按钮5.标题 ＝ “复制文本5”

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

保存_子程序 ()

子程序名	返回值类型	公开	备 注
_编辑框2_内容被改变

保存_子程序 ()

子程序名	返回值类型	公开	备 注
_编辑框3_内容被改变

保存_子程序 ()

子程序名	返回值类型	公开	备 注
_编辑框4_内容被改变

保存_子程序 ()

子程序名	返回值类型	公开	备 注
_编辑框5_内容被改变

保存_子程序 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

保存_子程序 ()
写配置项 (取运行目录2 () ＋ “huashu.ini”, “窗口位置”, “左边”, 到文本 (_启动窗口.左边))
写配置项 (取运行目录2 () ＋ “huashu.ini”, “窗口位置”, “顶边”, 到文本 (_启动窗口.顶边))

i支持库列表	支持库注释
eAPI	应用接口支持库
iext5	扩展界面支持库五
spec	特殊功能支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 iext5<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文本1, 文本型<br /> .程序集变量 文本2, 文本型<br /> .程序集变量 文本3, 文本型<br /> .程序集变量 文本4, 文本型<br /> .程序集变量 文本5, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' ### 版本 v1.3<br /> ' ### 第一次启动创建配置项<br /> ' ### 启动时读取配置项<br /> ' ### 隐藏配置文件<br /> ' ### 退出时自动保存<br /> ' ### 置顶按钮<br /> ' ### 禁止运行多个程序<br /> ' ### 编辑实时保存<br /> ' ### 记忆上次关闭位置<br /> ' ### 记忆上次透明度<br /> ' ### 添加皮肤<br /> ' 快捷键复制<br /> <br /> <br /> 皮肤_加载 (#皮肤_QQ2011)<br /> 程序_禁止重复运行 (, 假, “程序已运行”, , 真)<br /> _启动窗口.总在最前 ＝ 真<br /> <br /> hk条1.位置 ＝ 到数值 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “透明度”, “位置”, “255”))<br /> 设置窗口透明度 (取窗口句柄 (), hk条1.位置)<br /> <br /> .如果 (文件是否存在 (取运行目录2 () ＋ “huashu.ini”) ＝ 真)<br />     读取显示_子程序1 ()  ' 读取文件<br />     _启动窗口.左边 ＝ 到数值 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “窗口位置”, “左边”, ))<br />     _启动窗口.顶边 ＝ 到数值 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “窗口位置”, “顶边”, ))<br />     置文件属性 (取运行目录2 () ＋ “huashu.ini”, #隐藏文件)<br /> .否则<br />     保存_子程序 ()  ' 创建配置文件<br /> .如果结束<br /> <br /> ' F8 ＝ zc热键 (取窗口句柄 (), 标签2f8.取窗口句柄 (), 0, #F8键)<br /> ' F9 ＝ zc热键 (取窗口句柄 (), 标签3f9.取窗口句柄 (), 0, #F9键)<br /> ' F10 ＝ zc热键 (取窗口句柄 (), 标签4f10.取窗口句柄 (), 0, #F10键)<br /> ' F11 ＝ zc热键 (取窗口句柄 (), 标签5f11.取窗口句柄 (), 0, #F11键)<br /> ' F12 ＝ zc热键 (取窗口句柄 (), 标签6F12.取窗口句柄 (), 0, #F12键)<br /> <br /> <br /> .子程序 保存_子程序<br /> <br /> 写配置项 (取运行目录2 () ＋ “huashu.ini”, “A”, “1”, 编辑框1.内容)<br /> 写配置项 (取运行目录2 () ＋ “huashu.ini”, “B”, “2”, 编辑框2.内容)<br /> 写配置项 (取运行目录2 () ＋ “huashu.ini”, “C”, “3”, 编辑框3.内容)<br /> 写配置项 (取运行目录2 () ＋ “huashu.ini”, “D”, “4”, 编辑框4.内容)<br /> 写配置项 (取运行目录2 () ＋ “huashu.ini”, “E”, “5”, 编辑框5.内容)<br /> <br /> .子程序 读取显示_子程序1<br /> <br /> 文本1 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “A”, “1”, “读取失败”))<br /> 文本2 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “B”, “2”, “读取失败”))<br /> 文本3 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “C”, “3”, “读取失败”))<br /> 文本4 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “D”, “4”, “读取失败”))<br /> 文本5 ＝ 到文本 (读配置项 (取运行目录2 () ＋ “huashu.ini”, “E”, “5”, “读取失败”))<br /> 编辑框1.内容 ＝ 文本1<br /> 编辑框2.内容 ＝ 文本2<br /> 编辑框3.内容 ＝ 文本3<br /> 编辑框4.内容 ＝ 文本4<br /> 编辑框5.内容 ＝ 文本5<br /> <br /> .子程序 _选择框1_被单击<br /> <br /> .如果 (选择框1.选中 ＝ 真)<br />     选择框1.标题 ＝ “已经置顶”<br />     _启动窗口.总在最前 ＝ 真<br /> .否则<br />     选择框1.标题 ＝ “取消置顶”<br />     _启动窗口.总在最前 ＝ 假<br /> .如果结束<br /> <br /> <br /> .子程序 _hk条1_位置被改变<br /> <br /> 设置窗口透明度 (取窗口句柄 (), hk条1.位置)<br /> 写配置项 (取运行目录2 () ＋ “huashu.ini”, “透明度”, “位置”, 到文本 (hk条1.位置))<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 置剪辑板文本 (编辑框1.内容)<br /> 保存_子程序 ()<br /> 按钮1.标题 ＝ “已复制”<br /> 气球提示框1.弹出提示框 (左边 ＋ 按钮1.左边 ＋ 40, 顶边 ＋ 按钮1.顶边 ＋ 30, “已复制”, -1, )<br /> 延迟 (1000)<br /> 按钮1.标题 ＝ “复制文本1”<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 置剪辑板文本 (编辑框2.内容)<br /> 保存_子程序 ()<br /> 按钮2.标题 ＝ “已复制”<br /> 气球提示框1.弹出提示框 (左边 ＋ 按钮2.左边 ＋ 40, 顶边 ＋ 按钮2.顶边 ＋ 30, “已复制”, -1, )<br /> 延迟 (1000)<br /> 按钮2.标题 ＝ “复制文本2”<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 置剪辑板文本 (编辑框3.内容)<br /> 保存_子程序 ()<br /> 按钮3.标题 ＝ “已复制”<br /> 气球提示框1.弹出提示框 (左边 ＋ 按钮3.左边 ＋ 40, 顶边 ＋ 按钮3.顶边 ＋ 30, “已复制”, -1, )<br /> 延迟 (1000)<br /> 按钮3.标题 ＝ “复制文本3”<br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 置剪辑板文本 (编辑框4.内容)<br /> 保存_子程序 ()<br /> 按钮4.标题 ＝ “已复制”<br /> 气球提示框1.弹出提示框 (左边 ＋ 按钮4.左边 ＋ 40, 顶边 ＋ 按钮4.顶边 ＋ 30, “已复制”, -1, )<br /> 延迟 (1000)<br /> 按钮4.标题 ＝ “复制文本4”<br /> <br /> .子程序 _按钮5_被单击<br /> <br /> 置剪辑板文本 (编辑框5.内容)<br /> 保存_子程序 ()<br /> 按钮5.标题 ＝ “已复制”<br /> 气球提示框1.弹出提示框 (左边 ＋ 按钮5.左边 ＋ 40, 顶边 ＋ 按钮5.顶边 ＋ 30, “已复制”, -1, )<br /> 延迟 (1000)<br /> 按钮5.标题 ＝ “复制文本5”<br /> <br /> .子程序 _编辑框1_内容被改变<br /> <br /> 保存_子程序 ()<br /> <br /> .子程序 _编辑框2_内容被改变<br /> <br /> 保存_子程序 ()<br /> <br /> .子程序 _编辑框3_内容被改变<br /> <br /> 保存_子程序 ()<br /> <br /> .子程序 _编辑框4_内容被改变<br /> <br /> 保存_子程序 ()<br /> <br /> .子程序 _编辑框5_内容被改变<br /> <br /> 保存_子程序 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 保存_子程序 ()<br /> 写配置项 (取运行目录2 () ＋ “huashu.ini”, “窗口位置”, “左边”, 到文本 (_启动窗口.左边))<br /> 写配置项 (取运行目录2 () ＋ “huashu.ini”, “窗口位置”, “顶边”, 到文本 (_启动窗口.顶边))

补充内容 (2022-5-25 09:03):
我确实不是高手，我是做影视后期的，闲着没事，才zc了这个账号，发一些东西，我知道win+v ，但不适合我使用，不要硬杠！ 硬杠只会显得你短视！

Smr

不要杠，个人有个人的需求！没求你用，不喜欢看，就滚蛋，别来恶心我

kjsun

感谢分享，不错的源码

year1970

感谢分享

樱桃丸子

支持开源~！感谢分享

luyuanli

支持开源~！感谢分享

luyuanli

学无止境。

licya

emmmmm  学无止境。

yuzuhui

感谢大佬  这个可以有

sampo

加上热键是不是更好用

电速极光

Smr 发表于 2022-5-24 11:38
不要杠，个人有个人的需求！没求你用，不喜欢看，就滚蛋，别来恶心我

虽然你不喜欢听，但首先确实没技术含量，其次，也确实没什么卵用。