• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 新闻
  • 卖脚本
  • 用户中心
加入收藏  返回官网
你的位置:按键精灵资源站 >> 知识库
音乐定时自动播放器

 

公司每天要定时广播音乐, 如果用人工的话好累..
所以我装了一台电脑24小时开机来实现播放音乐..
实现了准时放音乐,准时停音乐.. 利用  千千静听
写的不好让大家见笑了..

//========================================
UserVar time1="07:00" "早上起床播放时间"
UserVar time11="07:30" "早上起床关闭广播时间"
UserVar time2="12:00" "中午下班时间"
UserVar time22="12:10" "中午关闭广播时间"
UserVar time3="14:15" "下午上班时间"
UserVar time33="14:25" "下午上班关闭广播时间"
UserVar time4="18:00" "下午下班时间"
UserVar time44="18:30" "下午下班半闭广播时间"
//========================================
Rem 开始
Call 检测
Delay 10000
Goto 开始
//========================================
Sub 检测
    Dim h,m,C
    h=Hour(time):m=Minute(time)
    If h<=9
        h="0"&h
    End If
    If m<=9
        m="0"&m
    End If
    c=h&":"&m
    If c =time1
        Call 早上起床
    Else
    End If
    If c =time2
        Call 中午下班
    Else
    End If
    If c =time3
        Call 下午上班
    Else
    End If
    If c =time4
        Call 下午下班
    Else
    End If
End Sub
//========================================
Sub 早上起床
    KeyPress 91,1
    Delay 1000
    KeyPress 82,1
    Delay 1000
    SayString TTPlayer.exe
//上面就是千千静听
    Delay 1000
    KeyPress 13,1
    Delay 60000
    Rem 起床2
    Delay 3000
    Call 二次检测
    Delay 500
    If cc=time11
        Delay 2000
        Call 关闭音乐
    Else
        Delay 500
        Goto 起床2
    End If
End Sub
Sub 中午下班
    KeyPress 91,1
    Delay 1000
    KeyPress 82,1
    Delay 1000
    SayString TTPlayer.exe
    Delay 1000
    KeyPress 13,1
    Delay 3000
    Rem 下班2
    Delay 6000
    Call 二次检测
    If cc=time22
        Delay 2000
        Call 关闭音乐
    Else
        Delay 500
        Goto 下班2
    End If
End Sub
Sub 下午上班
    KeyPress 91,1
    Delay 1000
    KeyPress 82,1
    Delay 1000
    SayString TTPlayer.exe
    Delay 1000
    KeyPress 13,1
    Delay 6000
    Rem 上班
    Delay 6000
    Call 二次检测
    If cc=time33
        Delay 2000
        Call 关闭音乐
    Else
        Delay 500
        Goto 上班
    End If
End Sub
Sub 下午下班
    KeyPress 91,1
    Delay 1000
    KeyPress 82,1
    Delay 1000
    SayString TTPlayer.exe
    Delay 1000
    KeyPress 13,1
    Delay 6000
    Rem 下午下班1
    Delay 3000
    Call 二次检测
    If cc=time44
        Delay 500
        Call 关闭音乐
    Else
        Delay 500
        Goto 下午下班1
    End If
End Sub
Sub 二次检测
    Dim h,m,cc
    h=Hour(time):m=Minute(time)
    If h<=9
        h="0"&h
    End If
    If m<=9
        m="0"&m
    End If
    cc=h&":"&m
End Sub
Sub 关闭音乐
    Delay 1000
    KeyDown 18,1
    Delay 500
    KeyPress 115,1
    Delay 30
    KeyUp 18,1
    Delay 10000
End Sub