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

[问题求助] [已解决]]VBS在网页下用ctrl+a键全选失效

本帖最后由 1270697389 于 2014-3-28 15:36 编辑

我写了一个vbs,是用来复制网页的,但是昨天把系统还原了后,不能因ctrl+a全选了,复制不了,怎么办?谢谢大家!
  1. Dim WshShell
  2. Set WshShell = CreateObject("wscript.Shell")
  3. Dim objShell
  4. Set objShell = CreateObject("WScript.Shell")
  5. objshell.run "http://www.19lou.com/forum-26-thread-28295787-filter-1-1.html"
  6. Wscript.Sleep 7000
  7. WshShell.SendKeys "^{a}"
  8. WshShell.SendKeys "^{c}"
  9. Wscript.Sleep 1000
  10. objShell.Run "C:\Users\pc\Desktop\123.txt"
  11. Wscript.Sleep 3000
  12. WshShell.SendKeys "----1----"
  13. WshShell.SendKeys "^{v}"
  14. WshShell.SendKeys "^{s}"
  15. objshell.run "http://www.19lou.com/forum-26-thread-28295787-filter-2-1.html"
  16. Wscript.Sleep 5000
  17. WshShell.SendKeys "^{1}"
  18. Wscript.Sleep 3000
  19. WshShell.SendKeys "^{w}"
  20. Wscript.Sleep 3000
  21. WshShell.SendKeys "^{a}"
  22. WshShell.SendKeys "^{c}"
  23. objShell.Run "C:\Users\pc\Desktop\123.txt"
  24. Wscript.Sleep 1000
  25. WshShell.SendKeys "----2----"
  26. WshShell.SendKeys "^{v}"
  27. WshShell.SendKeys "^{s}"
  28. WScript.Echo "全部执行完毕!OK"
  29. wscript.Quit
复制代码
初九的冬天

不懂,咋看没问题

TOP

回复 2# DAIC


    手工没问题,
现在没问题了,是系统没有补丁。谢谢你
初九的冬天

TOP

手工按ctrl+a也不能全选了吗?

TOP

返回列表