批处理之家 - Powered by Discuz! Board

标题: [问题求助] vbs 模拟按键 [打印本页]

作者: FOR 时间: 2014-5-13 10:59 标题: vbs 模拟按键

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

Dim ws
set ws=createobject("wscript.shell")
WScript.Sleep 10000           '延时10秒

Dim Form, TextBox
Const ForAppending = 8 
For i = 1 to 5 step 1
	ws.Sendkeys ("^c")            '模拟按键 crtl＋c
	WScript.Sleep 200 
	'获取剪贴板内容
	'Dim Form, TextBox
	Set Form = CreateObject("Forms.Form.1")
	Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
	TextBox.MultiLine = True
	If TextBox.CanPaste Then
 		TextBox.Paste
 		str=TextBox.Text
	End If

	'追加文本文件一行内容,文件不存在的话会自动创建
	'Const ForAppending = 8 
	Set var = CreateObject("Scripting.FileSystemObject")
	Set num = var.OpenTextFile ("库存报表.txt", ForAppending, True)
	num.WriteLine(str)
	num.Close

	ws.Sendkeys "{DOWN}"          '模拟下箭头
	WScript.Sleep 200 
Next
Wscript.Echo("复制完成")
复制代码

作者: FOR 时间: 2014-5-13 11:40

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

作者: Batcher 时间: 2014-5-13 13:23

回复 2# FOR

objShell.Appactivate "窗口标题"
复制代码

试试

作者: FOR 时间: 2014-5-13 13:35

回复 3# Batcher

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

作者: FOR 时间: 2014-5-13 19:54

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

Dim ws
set ws=createobject("wscript.shell")
WScript.Sleep 5000           '延时10秒

For i = 1 to 10 step 1
        ws.Sendkeys "{DOWN}"          '模拟下箭头
        WScript.Sleep 500 
Next
Wscript.Echo("复制完成")
复制代码

作者: FOR 时间: 2014-5-13 20:20

更奇怪的事发生了
我测试是双击 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 时间: 2014-5-13 20:33

话说不能用批吗？

作者: FOR 时间: 2014-5-13 20:59

回复 7# CrLf

用 cmd 吗？
求代码

作者: CrLf 时间: 2014-5-13 21:02

回复 8# FOR

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

作者: FOR 时间: 2014-5-14 14:31

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

作者: 9zhmke 时间: 2014-6-14 12:04

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

欢迎光临批处理之家 (http://bathome.net./)