本帖最后由 1270697389 于 2014-3-28 15:36 编辑
我写了一个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.Quit
| 
发表于 2014-3-27 11:55
| 