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
复制代码