| |
这是一个定时播放音乐的按键程序
//定时插放音乐的脚本，手动交互输入预定时间，由于按键里调用INPUTBOX函数时不能赋值给变量，
//不知是按键的问题还是我函数用得不当，所以只能用记事本来输入时间，再利用剪贴版将输入信
//息返回给程序变量，看起来不是很方便，高手指点一下。
VBS Dim StartTime,TempTime
VBSCall call messagebox("按确定后在弹开的记事本中输入启动时间，格式:时（24）:分:秒")
VBSCall call messagebox("输完后请不要操作,请耐心等待系统自动操作......")
VBSCall RunApp("Notepad.exe")
Delay 10000
KeyDown 17 1
KeyPress 65 1
KeyUp 17 1
Delay 200
KeyDown 17 1
KeyPress 67 1
KeyUp 17 1
Delay 200
KeyDown 18 1
KeyPress 115 1
KeyUp 18 1
Delay 200
KeyPress 78 1
Delay 200
VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Navigate("about:blank")
VBS StartTime=objIE.document.parentwindow.clipboardData.GetData("text")
VBS objIE.Quit
VBSCall call messagebox("你要"&StartTime&"播放吗?不是请重新运行脚本")
VBS StrartTime=CDate(StartTime)
Rem 检测
VBS TempTime=DateDiff("s",Time,Starttime)
VBS TempTime=cint(TempTime)
If TempTime<60
VBSCall RunApp("C:\Program Files\Winamp\winamp.exe")
KeyPress 76 1
Delay 200
KeyDown 18 1
KeyPress 78 1
KeyUp 18 1
Delay 200
SayString "e:\mp3\BS011.mp3"
Delay 200
KeyPress 13 1
Delay 200
KeyPress 88 1
Delay 200
Else
Delay 50000
Goto 检测
EndIf |
|
