[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] vbs 模拟按键

工作中需实现以下功能
一个软件(全屏的)和execl类似,也是表格
我的目的是要复制每一行的内容到 abc.txt
可该软件只能一次复制一行,不能全选
具体手动流程是
鼠标选中第一行,ctr+c 复制,粘贴到 abc.txt
在回到该软件,按 向下键选中第二行,复制、、粘贴。。
。。。。。。。。。。
一共有300多行
于是我想能否用vbs的模拟按键来执行呢?
拼凑了一堆代码,在记事本中测试能行,可在软件中却只是把第一行复制了300次。
继续测试时发现在 任务管理器界面,根本没有按 向下键的动作
我的代码如下,求各位达人帮忙。。。
  1. Dim ws
  2. set ws=createobject("wscript.shell")
  3. WScript.Sleep 10000           '延时10秒
  4. Dim Form, TextBox
  5. Const ForAppending = 8
  6. For i = 1 to 5 step 1
  7. ws.Sendkeys ("^c")            '模拟按键 crtl+c
  8. WScript.Sleep 200
  9. '获取剪贴板内容
  10. 'Dim Form, TextBox
  11. Set Form = CreateObject("Forms.Form.1")
  12. Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
  13. TextBox.MultiLine = True
  14. If TextBox.CanPaste Then
  15. TextBox.Paste
  16. str=TextBox.Text
  17. End If
  18. '追加文本文件一行内容,文件不存在的话会自动创建
  19. 'Const ForAppending = 8
  20. Set var = CreateObject("Scripting.FileSystemObject")
  21. Set num = var.OpenTextFile ("库存报表.txt", ForAppending, True)
  22. num.WriteLine(str)
  23. num.Close
  24. ws.Sendkeys "{DOWN}"          '模拟下箭头
  25. WScript.Sleep 200
  26. Next
  27. Wscript.Echo("复制完成")
复制代码

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

TOP

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

TOP

回复 8# FOR


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

TOP

回复 7# CrLf


    用 cmd 吗?
  求代码

TOP

话说不能用批吗?

TOP

更奇怪的事发生了
我测试是双击 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}"          '模拟下箭头

TOP

真是奇怪了,下面代码在记事本中测试,能顺利的按10下  向下键,但在任务管理器中就是不动,是咋回事呢?
  1. Dim ws
  2. set ws=createobject("wscript.shell")
  3. WScript.Sleep 5000           '延时10秒
  4. For i = 1 to 10 step 1
  5.         ws.Sendkeys "{DOWN}"          '模拟下箭头
  6.         WScript.Sleep 500
  7. Next
  8. Wscript.Echo("复制完成")
复制代码

TOP

回复 3# Batcher


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

TOP

回复 2# FOR
  1. objShell.Appactivate "窗口标题"
复制代码
试试
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

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

TOP

返回列表