기 타 VBScript 에 대한 질문입니다.
2019.06.22 19:13
PC로 작업하다보면 가끔 시간을 지나치는 경우가 있어 정시 알람이 필요했는데
윈도우10 기본 알람 기능이 너무 허접해서 vbs로 꼬마 목소리 정시 알람 기능을 만들었습니다.
그냥 윈도우 탐색기에서 실행하면 잘 되는데
작업스케줄러에 등록해서 1시간마다 실행되도록 등록하면 아래처럼 실행이 안되네요.
연결된 파일 경로를 못찾는 것같은데 vbs 파일을 작업스케줄러에 등록할 때는 주의해야 할 점이 따로 있나요?
필요한 파일은 모두 첨부한 압축파일에 포함되어 있습니다.
Dim WSHShell
Path = WScript.ScriptFullName ' 현재 실행하는 전체 파일이름 (경로+이름)
Path = Left(Path, InStrRev(Path, "\")) ' 이름제거후 경로만 추출
strHOUR = hour(now) ' 현재 시간(24시간제)
if strHOUR >12 then strHOUR = strHOUR - 12 '12시간제
Set WSHShell=WScript.CreateObject("WScript.Shell")
Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = Path & "\" & strHOUR & "시.mp3"
Sound.Controls.play
WSHShell.Run "nircmd.exe setsysvolume 65535", 0
do while Sound.currentmedia.duration = 0
wscript.sleep 100
loop
wscript.sleep (int(Sound.currentmedia.duration)+1)*1000
WSHShell.Run "nircmd.exe setsysvolume 39321", 0