i=16
for j = 8 to 23
saystring "6."+CStr(i)+" "+CStr(j)+":00"
KeyPress 13,1
SayString "6." + CStr(i) + " " + CStr(j) + ":30"
KeyPress 13,1
next
for i = 17 to 30
for j = 0 to 23
saystring "6."+CStr(i)+" "+CStr(j)+":00"
KeyPress 13,1
SayString "6." + CStr(i) + " " + CStr(j) + ":30"
KeyPress 13,1
next
next
没有好好排版抱歉了