vbs 模拟按键

FOR

工作中需实现以下功能
一个软件（全屏的）和execl类似，也是表格
我的目的是要复制每一行的内容到 abc.txt
可该软件只能一次复制一行，不能全选
具体手动流程是
鼠标选中第一行，ctr+c 复制，粘贴到 abc.txt
在回到该软件，按 向下键选中第二行，复制、、粘贴。。
。。。。。。。。。。
一共有300多行
于是我想能否用vbs的模拟按键来执行呢？
拼凑了一堆代码，在记事本中测试能行，可在软件中却只是把第一行复制了300次。
继续测试时发现在 任务管理器界面，根本没有按 向下键的动作
我的代码如下，求各位达人帮忙。。。

1. 
   
2. Dim ws
   
3. set ws=createobject("wscript.shell")
   
4. WScript.Sleep 10000           '延时10秒
   
5. 
   
6. Dim Form, TextBox
   
7. Const ForAppending = 8
   
8. For i = 1 to 5 step 1
   
9.         ws.Sendkeys ("^c")            '模拟按键 crtl＋c
   
10.         WScript.Sleep 200
    
11.         '获取剪贴板内容
    
12.         'Dim Form, TextBox
    
13.         Set Form = CreateObject("Forms.Form.1")
    
14.         Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
    
15.         TextBox.MultiLine = True
    
16.         If TextBox.CanPaste Then
    
17.                 TextBox.Paste
    
18.                 str=TextBox.Text
    
19.         End If
    
20. 
    
21.         '追加文本文件一行内容,文件不存在的话会自动创建
    
22.         'Const ForAppending = 8
    
23.         Set var = CreateObject("Scripting.FileSystemObject")
    
24.         Set num = var.OpenTextFile ("库存报表.txt", ForAppending, True)
    
25.         num.WriteLine(str)
    
26.         num.Close
    
27. 
    
28.         ws.Sendkeys "{DOWN}"          '模拟下箭头
    
29.         WScript.Sleep 200
    
30. Next
    
31. Wscript.Echo("复制完成")
    

复制代码

FOR

我猜想是不是因为写入文本后焦点到了记事本上，按向下键的时候焦点不在软件上面，有什么办法控制焦点吗？

Batcher

回复 2# FOR

1. objShell.Appactivate "窗口标题"

复制代码

试试

FOR

回复 3# Batcher


    之前在网上找过这个，试了还是不行
我是加在这个位置
ws.appactivate "windows 任务管理器"     
ws.Sendkeys "{DOWN}"          '模拟下箭头
WScript.Sleep 200

FOR

真是奇怪了，下面代码在记事本中测试，能顺利的按10下  向下键，但在任务管理器中就是不动，是咋回事呢？

1. 
   
2. Dim ws
   
3. set ws=createobject("wscript.shell")
   
4. WScript.Sleep 5000           '延时10秒
   
5. 
   
6. For i = 1 to 10 step 1
   
7.         ws.Sendkeys "{DOWN}"          '模拟下箭头
   
8.         WScript.Sleep 500
   
9. Next
   
10. Wscript.Echo("复制完成")
    

复制代码

FOR

更奇怪的事发生了
我测试是双击 a.vbs ，然后用鼠标切换当前窗口任务管理器，结果没任何反应
可我如果用 bat 来启动 a.vbs 则一切正常了
Dim ws
set ws=createobject("wscript.shell")
WScript.Sleep 5000           '延时10秒
ws.Sendkeys "{DOWN}"          '模拟下箭头
ws.Sendkeys "{DOWN}"          '模拟下箭头
ws.Sendkeys "{DOWN}"          '模拟下箭头
ws.Sendkeys "{DOWN}"          '模拟下箭头
ws.Sendkeys "{DOWN}"          '模拟下箭头
ws.Sendkeys "{DOWN}"          '模拟下箭头
ws.Sendkeys "{DOWN}"          '模拟下箭头

CrLf

话说不能用批吗？

FOR

回复 7# CrLf


    用 cmd 吗？
  求代码

CrLf

回复 8# FOR


    好吧，当我没说，没看到 “不能全选”

FOR

用 按键精灵 搞定了，谢谢各位。

9zhmke

VBS的按键功能的确很弱，比按键差远了，不过可以直接调用按键精灵的大漠插件，效果还可以。