- VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
504 ：時報&目覚まし.vbs 開発メモ[sage]：2015/10/15(木) 23:05:13.44 ID:qwCRdMKI - intro.vbs
----
Set WScoWs = WScript.CreateObject("WScript.Shell")
' skin 有効
Call WScoWs.RegWrite("HKCU\Software\Microsoft\MediaPlayer\Player\Skins\LastViewModeVTen","1","REG_DWORD")
strCmdLine = "C:\PROGRA~1\Windows Media Player\wmplayer.exe"
Set objExecCmd = WScoWs.Exec(strCmdLine)
WScoWs.Popup "アナウンス始動、待機中...",10,"オペレーター info",48
WScoWs.AppActivate (objExecCmd.ProcessID)
snd = "C:\darpa.net\CentralPrime\img\operator.png"
str = "wmplayer /play " & chr(34) & snd & chr(34)
WScoWs.Run str,3,False
WScoWs.AppActivate (objExecCmd.ProcessID)
| - VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
505 ：デフォルトの名無しさん[sage]：2015/10/15(木) 23:14:19.16 ID:qwCRdMKI - z = Array(0,Array("Art",Array(Hour(Time),Minute(Time)),Array("H","M"),1),Array(5,15,30,45,55),0,0)
z(3) = Array("06-05","06-15","06-30","20-45","20-55")
z(4) = Array(2,3,4,0,1)
z(1)(2)(0) = z(1)(1)(0)
If(z(1)(1)(1) > 4)Then
for y = 0 To UBound(z(2))
if(z(1)(1)(1) >= z(2)(y))Then
z(1)(2)(1) = z(2)(y)
End If
Next
Else
z(1)(2)(1) = 0
End If
for y = 0 To UBound(z(1)(2))
If(z(1)(2)(y) < 10)Then
z(1)(2)(y) = "0" & z(1)(2)(y)
End If
Next
z(1)(0) = z(1)(2)(0) & "-" & z(1)(2)(1)
snd = "C:/darpa.net/HOPs-ZERO/WakeUp_Timer/signal/iona-Arpeggio/" & z(1)(2)(0) & "-00.mp3"
for y = 0 To UBound(z(3))
if(z(1)(0) = z(3)(y))Then
snd = "C:/darpa.net/HOPs-ZERO/WakeUp_Timer/phase/" & z(4)(y) & ".wav"
z(1)(3) = 2
End If
Next
| - VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
506 ：デフォルトの名無しさん[sage]：2015/10/15(木) 23:18:02.44 ID:qwCRdMKI - str = "wmplayer /new /play " & chr(34) & snd & chr(34) & " /close"
WScript.Sleep(10000)
WScoWs.Run str,3,False
WScoWs.AppActivate (objExecCmd.ProcessID)
WScoWs.Popup "information_" & z(1)(3) & " " & z(1)(0) & " 起動",12,"オペレーター info",48
WScript.Sleep(18000)
WScoWs.Popup "アナウンスを再起動しています。",3," 強制終了",48
objExecCmd.Terminate
Set objExecCmd = Nothing
Set WScoWs = Nothing
| - VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
507 ：デフォルトの名無しさん[sage]：2015/10/15(木) 23:41:13.30 ID:qwCRdMKI - ①タスクマネージャで
同一ファイルを開く時間でメッセージ変化
②再生し終わったら自動で閉じる
③スキンモードで起動する
④時報と、それ以外のメッセージも再生できる様にする
|
|