Sub 播放警告音乐   
    i = 0
    Do While i<evenSound
        If alarmLnight = 1 Then
            If time > beSoundTime and time < noSoundTime Then
                VBS strSoundFile = progPath & "穿越时空.wav"
                //randomPath = Lib.算法.随机字符串(10)
                //putPath="c:\windows\" & randomPath
                //PutAttachment putPath,"穿越时空.wav"
                //VBS strSoundFile = putPath & "\穿越时空.wav"
                //VBS Set WSHShell = CreateObject("Wscript.Shell")
                VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
                WSHShell.Run strCommand, 0, True
                If noDebug = 2 Then
                    intMsg = WSHShell.Popup("正在播放《穿越时空》", 5, "音箱没开时候的测试", vbOKOnly)
                    i=evenSound+1
                End If
                i = i + 1
            Else
                Exit Do
            End If
        End If
    loop
End Sub

这两天　　为了一项任务　　正在弄按键精灵　　。。。　　编个小外挂　　呵呵。。。

不过　　有一段逻辑判断　　搞晕了　　。。。　　类假VBS的语句　　不知道去哪里请教VBS　　而且　　语法和VFP差不太多　

所以到这里请教一下，

我想达到的目的是这样的：
evenSound　　是播放音乐的次数　　假设为3
alarmLnight　　是夜间防扰模式开关　　由于按键能接收的程序运行时变量　　只有数值型　　这里就是1表示始终播放　　2表示指定时间内播放
beSoundTime　　是允许播放的时间　　假设为早上七点　
noSoundTime　　是禁止播放的时间　　假设为晚上十点

。。。。。。　　
打完了上面的字　　好像有点理清逻辑了　　。。。

去试一下　　。。。

另外　　。。。一选给分的数字　　就让我复制　　　什么情况？　　浏览器升级了？还是论坛升级了？如下图　　鼠标都跑去上面复制文字了　　框还没消失呢

再加个关键的开关noDebug，当为1时，为非调试状态
　　此时，始终播放为1时，不管什么时间，都播放指定次数
　　　　　如果始终播放为2，允许播放时间内，播放指定次数

如果noDebug为2时，为调试状态
　　此时，即使　始终播放设置为2，也播放一次
　　　　　为调试状态时，在允许时间内，也只播放一次
。。。

这逻辑，真绕啊。。。绕死我了。。。脑汁洒了一地。。。

看楼主的帖子也跟着乱了，眼花潦乱。

你弄这些乱七八糟的代码 有啥用  就捞干的说  你想实现神马

雾里看花

一个播放音乐的Sub子程序

当条件满足时触发播放音乐Ｎ次

关键设置一第一状态：深夜禁播
播放时，晚十点到早八点，不播放

设置一　的另一状态：如果设置为始终播放
任何时间都播放

另一设置：调试状态
无论设置一是否深夜禁播，都播放一次

。。。。。。

既然使用了 VBS，为什么还要用 VFP 包装？
而且 VBS 处理中文会有乱码的，像你这么多的中文歌曲文件名，在 VFP 中使用要转换的。

如果你要在 VFP 中使用播放器，示例一大把的。

类似闹钟

[此贴子已经被作者于2016-1-15 15:17编辑过]

可以用计划任务调用脚本：

1. 先做播放脚本：
把下面的代码另存为：hanye.vbs
strSoundFile = "C:\apps\穿越时空.wav"
Set objShell = CreateObject("Wscript.Shell")
strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, True

2. 再做计划任务 P 命令：
schtasks /create /tn "播放音乐" /tr C:\apps\hanye.vbs /sc daily /st 07:00:00 /et 22:00 /mo 3
 
:: 说明；
:: /tn - 指定任务的名称
:: /tr - 指定任务运行的程序或命令
:: /sc - 指定计划类型为每天
:: /st - 开始时间
:: /et - 结束时间
:: /mo - 循环次数，假设为 3
:: ONEVENT - 触发某个事件启动

也可以用 AT 命令，AT 最早是来自于 UNIX 的，微软移植到了 DOS 下， 而 schtasks 是改良版的 AT。
其参数我记得不是很清楚了，自己百度一下。