鼠标左键按住拖动 松开自动按ctrl+c复制

ExTra

请问怎么写啊 谢谢大神了 想实现如图这样 选择好了 一松开鼠标左键就自动复制完成  不用在用手按组合键 或者不用在用鼠标右键 点复制按钮  节约时间

凌哥

完美版本：

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
钩子	L_Hook
鼠标_左键按下	整数型
鼠标_是否拖动	整数型
事件	L_事件

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

事件.创建 (假, 假, )
L_线程_启动2 (&线程_等待复制, , , , , , )
钩子.安装鼠标钩子 (&鼠标钩子回调)
L_延时 (, )
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
鼠标钩子回调	整数型		返回1=拦截    必须要有这些参数！
参数名	类 型	参考	可空	数组	备 注
鼠标事件	整数型				#L_鼠标事件_
x	整数型				触发事件的鼠标坐标，如果鼠标事件是移动的话，那么本坐标为将要移动的位置
y	整数型				触发事件的鼠标坐标，如果鼠标事件是移动的话，那么本坐标为将要移动的位置
中键滚动方向	整数型				1=滚轮向上滚动 2=滚轮向下滚动
左侧键标识	整数型				1=XBUTTON1(左侧靠近你的那个键) 2=XBUTTON2 (左侧第二个键)

' 已经封装了鼠标钩子几乎全部的功能...
判断 (鼠标事件 ＝ #L_鼠标事件_移动 )
如果真 (鼠标_左键按下 ＝ 1)
鼠标_是否拖动 ＝ 1

判断 (鼠标事件 ＝ #L_鼠标事件_左键按下 )
鼠标_是否拖动 ＝ 0
鼠标_左键按下 ＝ 1
判断 (鼠标事件 ＝ #L_鼠标事件_左键放开 )
如果真 (鼠标_是否拖动 ＝ 1)
' 在有些程序中，鼠标左键不放开的话不能复制成功，所以需要这样处理
事件.触发 ()
鼠标_左键按下 ＝ 0


返回 (0)

子程序名	返回值类型	公开	备 注
线程_等待复制

判断循环首 (事件.等待进入 (-1))
Sleep (10)
L_键盘_组合按键 ({ #Ctrl键, #C键 }, , 假)
调试输出 (“复制”, 取剪辑板文本 ())
判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 钩子, L_Hook<br /> .程序集变量 鼠标_左键按下, 整数型<br /> .程序集变量 鼠标_是否拖动, 整数型<br /> .程序集变量 事件, L_事件<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 事件.创建 (假, 假, )<br /> L_线程_启动2 (&线程_等待复制, , , , , , )<br /> 钩子.安装鼠标钩子 (&鼠标钩子回调)<br /> L_延时 (, )<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 鼠标钩子回调, 整数型, , 返回1=拦截    必须要有这些参数！<br /> .参数 鼠标事件, 整数型, , #L_鼠标事件_<br /> .参数 x, 整数型, , 触发事件的鼠标坐标，如果鼠标事件是移动的话，那么本坐标为将要移动的位置<br /> .参数 y, 整数型, , 触发事件的鼠标坐标，如果鼠标事件是移动的话，那么本坐标为将要移动的位置<br /> .参数 中键滚动方向, 整数型, , 1=滚轮向上滚动 2=滚轮向下滚动<br /> .参数 左侧键标识, 整数型, , 1=XBUTTON1(左侧靠近你的那个键) 2=XBUTTON2 (左侧第二个键)<br /> <br /> ' 已经封装了鼠标钩子几乎全部的功能...<br /> .判断开始 (鼠标事件 ＝ #L_鼠标事件_移动)<br />     .如果真 (鼠标_左键按下 ＝ 1)<br />         鼠标_是否拖动 ＝ 1<br />     .如果真结束<br /> <br /> .判断 (鼠标事件 ＝ #L_鼠标事件_左键按下)<br />     鼠标_是否拖动 ＝ 0<br />     鼠标_左键按下 ＝ 1<br /> <br /> .判断 (鼠标事件 ＝ #L_鼠标事件_左键放开)<br />     .如果真 (鼠标_是否拖动 ＝ 1)<br />         ' 在有些程序中，鼠标左键不放开的话不能复制成功，所以需要这样处理<br />         事件.触发 ()<br />     .如果真结束<br />     鼠标_左键按下 ＝ 0<br /> .默认<br /> <br /> .判断结束<br /> 返回 (0)<br /> <br /> .子程序 线程_等待复制<br /> <br /> .判断循环首 (事件.等待进入 (-1))<br />     Sleep (10)<br />     L_键盘_组合按键 ({ #Ctrl键, #C键 }, , 假)<br />     调试输出 (“复制”, 取剪辑板文本 ())<br /> .判断循环尾 ()

买股票不用钱

  

子程序名	返回值类型	公开	备 注
_编辑框1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

置剪辑板文本 (编辑框1.被选择文本)
调试输出 (取剪辑板文本 ())

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _编辑框1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 置剪辑板文本 (编辑框1.被选择文本)<br /> 调试输出 (取剪辑板文本 ())

a2844432564

新建 易程序 (3).e (3.51 KB, 下载次数: 41)

2019-5-16 12:20 上传

点击文件名下载附件

a2844432564

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
Hook_Handel	整数型

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

Hook_Handel ＝ SetWindowsHookEx (14, &call, 0, 0)

子程序名	返回值类型	公开	备 注
call	整数型
参数名	类 型	参考	可空	数组	备 注
key	整数型
parameter1	整数型
parameter2	整数型

判断 (parameter1 ＝ 514)
启动线程 (&_get, , )


返回 (CallNextHookEx (Hook_Handel, key, parameter1, parameter2))

子程序名	返回值类型	公开	备 注
_get

延迟 (100)
模拟按键 ( #Ctrl键, #C键, )
延迟 (100)
调试输出 (取剪辑板文本 ())

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

UnhookWindowsHookEx (Hook_Handel)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 Hook_Handel, 整数型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> Hook_Handel ＝ SetWindowsHookEx (14, &call, 0, 0)<br /> <br /> .子程序 call, 整数型<br /> .参数 key, 整数型<br /> .参数 parameter1, 整数型<br /> .参数 parameter2, 整数型<br /> <br /> .判断开始 (parameter1 ＝ 514)<br />     启动线程 (&_get, , )<br /> .默认<br /> <br /> .判断结束<br /> 返回 (CallNextHookEx (Hook_Handel, key, parameter1, parameter2))<br /> <br /> .子程序 _get<br /> <br /> 延迟 (100)<br /> 模拟按键 (#Ctrl键, #C键, )<br /> 延迟 (100)<br /> 调试输出 (取剪辑板文本 ())<br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> UnhookWindowsHookEx (Hook_Handel)

  

DLL命令名	返回值类型	公开	备 注
SetWindowsHookEx	整数型		SetWindowsHookExA
DLL库文件名:
user32
在DLL库中对应命令名:
SetWindowsHookExA
参数名	类 型	传址	数组	备 注
idHook	整数型
lpfn	子程序指针
hmod	整数型
dwThreadId	整数型

DLL命令名	返回值类型	公开	备 注
UnhookWindowsHookEx	整数型		UnhookWindowsHookEx
DLL库文件名:
user32
在DLL库中对应命令名:
UnhookWindowsHookEx
参数名	类 型	传址	数组	备 注
hHook	整数型

DLL命令名	返回值类型	公开	备 注
CallNextHookEx	整数型		CallNextHookEx
DLL库文件名:
user32
在DLL库中对应命令名:
CallNextHookEx
参数名	类 型	传址	数组	备 注
hHook	整数型
ncode	整数型
wParam	整数型
lParam	整数型

.版本 2<br /> <br /> .DLL命令 SetWindowsHookEx, 整数型, "user32", "SetWindowsHookExA", , SetWindowsHookExA<br />     .参数 idHook, 整数型<br />     .参数 lpfn, 子程序指针<br />     .参数 hmod, 整数型<br />     .参数 dwThreadId, 整数型<br /> <br /> .DLL命令 UnhookWindowsHookEx, 整数型, "user32", "UnhookWindowsHookEx", , UnhookWindowsHookEx<br />     .参数 hHook, 整数型<br /> <br /> .DLL命令 CallNextHookEx, 整数型, "user32", "CallNextHookEx", , CallNextHookEx<br />     .参数 hHook, 整数型<br />     .参数 ncode, 整数型<br />     .参数 wParam, 整数型<br />     .参数 lParam, 整数型

凌哥

新建 易程序.e (277.96 KB, 下载次数: 28)

2019-5-16 12:39 上传

点击文件名下载附件