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

1270697389

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

Dim WshShell 
Set WshShell = CreateObject("wscript.Shell") 
Dim objShell 
Set objShell = CreateObject("WScript.Shell")
objshell.run "http://www.19lou.com/forum-26-thread-28295787-filter-1-1.html"
Wscript.Sleep 7000
WshShell.SendKeys "^{a}"
WshShell.SendKeys "^{c}"
Wscript.Sleep 1000
objShell.Run "C:\Users\pc\Desktop\123.txt"
Wscript.Sleep 3000
WshShell.SendKeys "----1----"
WshShell.SendKeys "^{v}"
WshShell.SendKeys "^{s}"
objshell.run "http://www.19lou.com/forum-26-thread-28295787-filter-2-1.html"
Wscript.Sleep 5000
WshShell.SendKeys "^{1}"
Wscript.Sleep 3000
WshShell.SendKeys "^{w}"
Wscript.Sleep 3000
WshShell.SendKeys "^{a}"
WshShell.SendKeys "^{c}"
objShell.Run "C:\Users\pc\Desktop\123.txt"
Wscript.Sleep 1000
WshShell.SendKeys "----2----"
WshShell.SendKeys "^{v}"
WshShell.SendKeys "^{s}"
WScript.Echo "全部执行完毕！OK"
wscript.QuitCOPY

DAIC

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

1270697389

回复 2# DAIC


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

lanpor

不懂，咋看没问题