定时播放问题
本帖最后由 nathan2008 于 2010-5-19 11:46 编辑#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)请各位高手帮小弟看看这段代码，有个问题不能解决，谢谢！
假如这个程序运行到一半突然断电了，重新启动电脑程序就无法再执行下去
先谢谢了！！！ 怎么没人回答呢？是我写得不够清想还是？？？？ 这个..........把他放到启动里 谢谢你的回答！！！我知道放到启动里啊，但是一过我设定的时间，就无法再运行下去 不过我还是推荐你 每一个时间要做的事情分别做成一个exe
然后用windows的计划任务来指定运行时间 循环语句和时间条件的判断语句运用得不是十分恰当
建议一个while里面套所有的if
这样应该可以避免重启再执行失败
页:
[1]