平淡如茶

dim str1set objTTS  = createobject("sapi.spvoice")while true    if Minute(Time)=0 then        str1 = "现在时间是" & Time        objTTS.speak str1    end ifwend

 引用于https://www.cnblogs.com/jinjiangongzuoshi/p/3821375.htmlSet mouse=New SetMouse'mouse.getpos x,y ''获得鼠标当前位置坐标'MsgBox x & "," & ymouse.move 148,154 '把鼠标移动到坐标WScript.Sleep 200mou...