yjwdjfqb 当前离线
列兵
评分人数
g495326 当前离线
一级士官
TOP
sz1121 当前离线
上等兵
Dim t Dim ws Set ws = CreateObject("wscript.shell") Do t = Time() If StrComp(t,"10:00:00") = 0 Or StrComp(t,"15:00:00")= 0 Then ws.Run("D:\测试.xls") WScript.Sleep(1000) loop复制代码