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

1270697389

我写了一个vbs，是用来复制网页的，但是昨天把系统还原了后，不能因ctrl+a全选了，复制不了，怎么办？谢谢大家！

1. 
   
2. 
   
3. Dim WshShell
   
4. Set WshShell = CreateObject("wscript.Shell")
   
5. Dim objShell
   
6. Set objShell = CreateObject("WScript.Shell")
   
7. objshell.run "http://www.19lou.com/forum-26-thread-28295787-filter-1-1.html"
   
8. Wscript.Sleep 7000
   
9. WshShell.SendKeys "^{a}"
   
10. WshShell.SendKeys "^{c}"
    
11. Wscript.Sleep 1000
    
12. objShell.Run "C:\Users\pc\Desktop\123.txt"
    
13. Wscript.Sleep 3000
    
14. WshShell.SendKeys "----1----"
    
15. WshShell.SendKeys "^{v}"
    
16. WshShell.SendKeys "^{s}"
    
17. objshell.run "http://www.19lou.com/forum-26-thread-28295787-filter-2-1.html"
    
18. Wscript.Sleep 5000
    
19. WshShell.SendKeys "^{1}"
    
20. Wscript.Sleep 3000
    
21. WshShell.SendKeys "^{w}"
    
22. Wscript.Sleep 3000
    
23. WshShell.SendKeys "^{a}"
    
24. WshShell.SendKeys "^{c}"
    
25. objShell.Run "C:\Users\pc\Desktop\123.txt"
    
26. Wscript.Sleep 1000
    
27. WshShell.SendKeys "----2----"
    
28. WshShell.SendKeys "^{v}"
    
29. WshShell.SendKeys "^{s}"
    
30. WScript.Echo "全部执行完毕！OK"
    
31. wscript.Quit
    

复制代码

DAIC

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

1270697389

回复 2# DAIC


    手工没问题，
现在没问题了，是系统没有补丁。谢谢你

lanpor

不懂，咋看没问题