返回列表 发帖
ruoru376

Rank: 1

帖子
48 
积分
74 
技术
0  
捐助
0  
注册时间
2015-1-22 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-8-18 15:13 | 只看该作者

[问题求助] vbs 模拟发送按键，为什么会无效？

想模拟一下复制 “CTRL+C”，但是不知道为什么就无效。在xp系统下复制成功，但是到win7上面就没有用了！
希望好心的大侠，帮我看看！或者如何实现复制功能！谢谢了！

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^C"
收藏 分享

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2015-8-18 18:56 | 只看该作者
窗口失焦，要先聚焦到所要复制的某个窗口，比如要复制test.txt文档的某些文字，那么先选中文字
set ws = CreateObject("Wscript.Shell")
do while ws.appactivate("test.txt - 记事本")=false '聚焦到当前记事本窗口
WScript.Sleep 200
loop
ws.SendKeys "^C"COPY

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
3楼
发表于 2015-8-18 18:58 | 只看该作者
本帖最后由 pcl_test 于 2015-8-18 19:00 编辑

发个ahk，实现鼠标左键拖选复制
~LButton::
mousedrag := 1 ; pixels
MouseGetPos, mousedrag_x1, mousedrag_y1
win1 := WinActive("A")
KeyWait LButton
MouseGetPos, mousedrag_x2, mousedrag_y2
win2 := WinActive("A")
WinGetClass cos_class, A
if(((abs(mousedrag_x2 - mousedrag_x1) > mousedrag
  or abs(mousedrag_y2 - mousedrag_y1) > mousedrag)) and win1 = win2 
  and cos_class != "ConsoleWindowClass")
{
    SendInput ^c
}
returnCOPY

TOP

ruoru376

Rank: 1

帖子
48 
积分
74 
技术
0  
捐助
0  
注册时间
2015-1-22 
4楼
发表于 2015-8-19 16:27 | 只看该作者
回复 2# pcl_test
这个不能任意地方 复制吧！我想实现的是，任意位置，比如：浏览器、qq、word …………等等；用vbs或者bat ，点击一下自动复制【自己设置一下快捷键，比如设置f4键，按下f4自动复制】。已选中的文字……

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
5楼
发表于 2015-8-19 17:43 | 只看该作者
回复 4# ruoru376
嗯，说了vbs需要聚焦，一直是个不靠谱的方法，所以推荐用ahk

TOP

ruoru376

Rank: 1

帖子
48 
积分
74 
技术
0  
捐助
0  
注册时间
2015-1-22 
6楼
发表于 2015-8-20 00:15 | 只看该作者
回复 5# pcl_test
没有用过ahk 不知道怎么用！应该如何运行呢！见笑了

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
7楼
发表于 2015-8-20 08:57 | 只看该作者
回复 6# ruoru376

百度是让人“上”的

TOP

返回列表