左键选中复制打开另一程序自动粘贴

~LButton::
	cos_mousedrag_treshold := 50 ; pixels
	MouseGetPos, cos_mousedrag_x, cos_mousedrag_y
	win1 := WinActive("A")
	KeyWait LButton
	MouseGetPos, cos_mousedrag_x2, cos_mousedrag_y2
	win2 := WinActive("A")
	WinGetClass cos_class, A
	WinGetActiveTitle, Title
	If Title contains firefox{
		if(((abs(cos_mousedrag_x2 - cos_mousedrag_x) > cos_mousedrag_treshold
		  or abs(cos_mousedrag_y2 - cos_mousedrag_y) > cos_mousedrag_treshold)) and win1 = win2 
		  and cos_class != "ConsoleWindowClass")
		{
                clipboard := "" 
		sleep,500
		SendInput ^c
		Send LButton
		;msgbox,%clipboard%
		ClipWait, 2
		;激活notepad++ 
		WinActivate, ahk_exe EXCEL.EXE
		;这个命令是检索目标窗口有输入焦点的控件
		;ControlGetFocus, OutputVar, notepad++
		SendInput ^v
		SendInput {Down 27}
		}
	
return 

给TA捐赠
共{{data.count}}人
人已捐赠
其他

左键选中复制2

2021-12-2 16:19:29

其他案例

异步执行来防止线程阻塞的示例方法

2021-12-3 13:32:24

3 条回复 A文章作者 M管理员
  1. Rookkkkie

    零基础小白 想用这个偷懒 不知道能不能行?

  2. xcgrehxc

    这个我怎么弄不成?

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索