定时播放问题

nathan2008

#include <File.au3>

;锁定键盘鼠标
BlockInput(1)  ; 1表示锁定，0表示不锁定


while 1
;开始早播
sleep (1000)
;判断时和分
if @HOUR = 4 AND @MIN=49 THEN 
Send("{F5}")
Sleep(5000)
Send("{F5}")
Sleep(5000)
ExitLoop
endif
wend
Sleep(1000)
; 1、
$file1 = FileOpen("D:\播放记录\123.txt",0)
ClipPut(FileReadLine($file1))
FileClose($file1)

; 开启影音先锋播放软件
Run("C:\Program Files\yyxfplayer\yyxfplayer.exe")
Sleep(1000)
Send("{space}")
Sleep(1000)
Send("^v")
Send("{enter}")
Send("{F8}")

while 1
sleep (1000)
;判断时和分
if @HOUR = 5 AND @MIN=0 THEN 
ProcessClose("yyxfplayer.exe")
ExitLoop
endif
wend
Sleep(1000)

; 2、
$file1 = FileOpen("D:\播放记录\2、222.txt",0)
ClipPut(FileReadLine($file1))
FileClose($file1)

Run("C:\Program Files\yyxfplayer\yyxfplayer.exe")
Sleep(500)
Send("{space}")
Sleep(500)
Send("^v")
Send("{enter}")
Send("{F8}")

;等待退出
ProcessWaitClose("yyxfplayer.exe")
Sleep(1000)

; 中午停播时间 打开屏幕保护
Run("ssmypics.scr /s")

; 开始晚播
while 1
sleep (1000)
;判断时和分，未对秒进行判断,貌似没有必要
if @HOUR = 18 AND @MIN=30 THEN 
        ProcessClose("yyxfplayer.exe")
MSGBOX (0,"启动晚播","5秒后启动晚播！！",5)
ExitLoop
endif
wend
Sleep(1000)

; 3、
$file1 = FileOpen("D:\播放记录\1、123.txt",0)
ClipPut(FileReadLine($file1))
FileClose($file1)

Run("C:\Program Files\yyxfplayer\yyxfplayer.exe")
Sleep(500)
Send("{space}")
Sleep(500)
Send("^v")
Send("{enter}")
Send("{F8}")

; 暂停30分钟
Sleep(1803000)
;结束退出
ProcessClose("yyxfplayer.exe")
Sleep(1000)

;4、
$file1 = FileOpen("D:\播放记录\333.txt",0)
ClipPut(FileReadLine($file1))
FileClose($file1)

Run("C:\Program Files\yyxfplayer\yyxfplayer.exe")
Sleep(500)
Send("{space}")
Sleep(500)
Send("^v")
Send("{enter}")
Send("{F8}")

;等待影音先锋退出
ProcessWaitClose("yyxfplayer.exe")
Sleep(1000)

; 强行关机
Shutdown(5)

BlockInput(0)

请各位高手帮小弟看看这段代码，有个问题不能解决，谢谢！
假如这个程序运行到一半突然断电了，重新启动电脑程序就无法再执行下去

先谢谢了！！！

nathan2008

怎么没人回答呢？是我写得不够清想还是？？？？

sxd

这个..........把他放到启动里

nathan2008

谢谢你的回答！！！我知道放到启动里啊，但是一过我设定的时间，就无法再运行下去

sxd

不过我还是推荐你 每一个时间要做的事情分别做成一个exe
然后用windows的计划任务来指定运行时间

lynfr8

循环语句和时间条件的判断语句运用得不是十分恰当
建议一个while里面套所有的if
这样应该可以避免重启再执行失败