E语言文字粘贴

六安小朱

怎么写个按下F1  自动将文字"11111" 粘贴到我鼠标定位的位置,F2取消粘贴

是可可吖

11111.e (1 MB, 下载次数: 4)

2025-4-25 12:44 上传

点击文件名下载附件

拿去看看是不是你要的

Ruang

C-V-Z 组合

补充内容 (2025-4-25 10:27):
Ctrl+C -复制
Ctrl+V -粘贴
Ctrl+Z -撤销

最后鼠标动一动

花辞

.版本 2 .支持库 spec  .程序集 窗口程序集_启动窗口 .程序集变量 原剪辑板内容, 文本型  .子程序 __启动窗口_创建完毕 窗口_注册热键 (取窗口句柄 (), &处理热键, 0, #F1键, 1) 窗口_注册热键 (取窗口句柄 (), &处理热键, 0, #F2键, 2)  .子程序 处理热键 .参数 功能键, 整数型 .参数 键代码, 整数型 .参数 热键ID, 整数型 .局部变量 鼠标位置, 精易_坐标 .局部变量 窗口句柄, 整数型  .判断开始 (热键ID ＝ 1)     ' 保存原剪贴板内容     原剪辑板内容 ＝ 剪辑板_取文本 ()          ' 获取鼠标位置并激活窗口     鼠标_取位置 (鼠标位置)     窗口句柄 ＝ 窗口_取鼠标处窗口句柄 ()     窗口_激活 (窗口句柄)     延时 (100)  ' 等待窗口激活          ' 设置剪贴板并粘贴     剪辑板_置文本 (“11111”)     键盘_组合按键 (#V键, #Ctrl键)          ' 恢复剪贴板内容     延时 (100)     剪辑板_置文本 (原剪辑板内容)  .判断 (热键ID ＝ 2)     ' 撤销热键并退出程序     窗口_撤销热键 (取窗口句柄 (), 1)     窗口_撤销热键 (取窗口句柄 (), 2)     结束 () .默认 .判断结束  .子程序 __启动窗口_将被销毁 窗口_撤销热键 (取窗口句柄 (), 1) 窗口_撤销热键 (取窗口句柄 (), 2)

花辞

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 原剪辑板内容, 文本型

.子程序 __启动窗口_创建完毕
窗口_注册热键 (取窗口句柄 (), &处理热键, 0, #F1键, 1)
窗口_注册热键 (取窗口句柄 (), &处理热键, 0, #F2键, 2)

.子程序 处理热键
.参数 功能键, 整数型
.参数 键代码, 整数型
.参数 热键ID, 整数型
.局部变量 鼠标位置, 精易_坐标
.局部变量 窗口句柄, 整数型

.判断开始 (热键ID ＝ 1)
    ' 保存原剪贴板内容
    原剪辑板内容 ＝ 剪辑板_取文本 ()
   
    ' 获取鼠标位置并激活窗口
    鼠标_取位置 (鼠标位置)
    窗口句柄 ＝ 窗口_取鼠标处窗口句柄 ()
    窗口_激活 (窗口句柄)
    延时 (100)  ' 等待窗口激活
   
    ' 设置剪贴板并粘贴
    剪辑板_置文本 (“11111”)
    键盘_组合按键 (#V键, #Ctrl键)
   
    ' 恢复剪贴板内容
    延时 (100)
    剪辑板_置文本 (原剪辑板内容)

.判断 (热键ID ＝ 2)
    ' 撤销热键并退出程序
    窗口_撤销热键 (取窗口句柄 (), 1)
    窗口_撤销热键 (取窗口句柄 (), 2)
    结束 ()
.默认
.判断结束

.子程序 __启动窗口_将被销毁
窗口_撤销热键 (取窗口句柄 (), 1)
窗口_撤销热键 (取窗口句柄 (), 2)