Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "explorer E:\SWFFiles"
WScript.Sleep 3000
WshShell.SendKeys "%(V)"
WshShell.SendKeys "L"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{UP}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 3000
'WScript.Sleep 60000
WshShell.SendKeys "%{F4}"
do while i<30
WScript.Sleep 1000
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 3000
'WScript.Sleep 60000
WshShell.SendKeys "%{F4}"
i=i+1
loop
阅读(812) | 评论(0) | 转发(0) |
