每天16:00跟02:00定时播放提醒.wav声音文件(已解决)
本帖最后由 xymc 于 2011-10-14 21:12 编辑如题,每天16:00跟02:00定时播放提醒.wav声音文件,有没有简单一点的代码,不要那些定时器之类的东西
已自己解决
#NoTrayIcon
While 1
Select
Case @HOUR & @MIN= 0230
SoundPlay("login.mp3", 0)
MsgBox(16, "夜深人静了", " " & @CR & "你关广告灯了吗!!!???" & @CR & "" & @CR & "" , 60)
Case @HOUR & @MIN= 1840
SoundPlay("login.mp3", 0)
MsgBox(48, "傍晚时分了", " " & @CR & "你开广告灯了吗????????" & @CR & "" & @CR & "" , 60)
EndSelect
Sleep(60000)
WEnd 最简单就是添加计划任何,在你说的那两个时间允许.wav文件。 干嘛要写代码啊,直接在系统任务计划里添加就行了,很方便又人性化。非要用AU3写的话,请参考如下:
Run(@ComSpec & " /c " & 'schtasks /create /TN dingshi /RU SYSTEM /SC DAILY /ST 16:00:00 /TR "这里添加执行.wav文件的DOS命令"', "", @SW_HIDE)
再弄个凌晨两点的。牛逼,2点闹
if @hour=16 or 02 then
run("abc.wav")
endif
Dim $Flag = 1
While 1
$Hour = @HOUR
If $Hour = "16" Or $Hour = "02" Then
If $Flag = 1 Then
run("abc.wav")
$Flag = 0
EndIf
Else
$Flag = 1
EndIf
Sleep(1000)
WEnd schtasks,这命令还是第一次碰到。 使用Run的都不好,会弹出播放器
已自己解决
#NoTrayIcon
While 1
Select
Case @HOUR & @MIN= 0230
SoundPlay("login.mp3", 0)
MsgBox(16, "夜深人静了", " " & @CR & "你关广告灯了吗!!!???" & @CR & "" & @CR & "" , 60)
Case @HOUR & @MIN= 1840
SoundPlay("login.mp3", 0)
MsgBox(48, "傍晚时分了", " " & @CR & "你开广告灯了吗????????" & @CR & "" & @CR & "" , 60)
EndSelect
Sleep(60000)
WEnd 回复 2# 骗子
计划任务有个限制,知道吗?没有添加系统登录密码的不行。 回复 3# qqgghh1
计划任务有个限制,知道吗?没有添加系统登录密码的不行。 回复 9# xms77
什么意思??什么系统登录密码? 回复 10# 502762378
我曾经试过添加系统的计划任务,但是没有设置系统的登录密码,结果计划任务没有成功运行,一定要有添加系统登录密码才行。 给广告灯装个定时器..用的着这么麻烦吗?百来块钱 支持一下 ~~~ 计划任务最好
页:
[1]