Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код:
Const cMainSleep = 10
Const cPath = "E:\temp\33\"
Const cExtension = "jpg"
Set FSO = CreateObject("scripting.FileSystemObject")
Set oVoice = CreateObject("SAPI.SpVoice")
Set oSpFileStream = CreateObject("SAPI.SpFileStream")
Set WshShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\CIMv2")
Set colItems = GetObject("winmgmts:\\.\root\cimv2").ExecQuery ("Select * From Win32_Process Where CommandLine Like '%" & Replace(Wscript.ScriptFullName,"\","\\") & "%'")
If colItems.Count > 1 Then
MsgBox "Watch Finished " & cPath & "*." & cExtension
For Each Process in colItems
Process.Terminate
Next
End If
vDrive = Left(cPath,2)
vDir = Mid(cPath,3)
vSoundFile = WshShell.ExpandEnvironmentStrings("%WinDir%\Media\tada.wav")
Set objEvents = objWMIService.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent WITHIN " & cMainSleep & "WHERE " & "TargetInstance ISA 'CIM_DataFile'" & " AND TargetInstance.Drive = '" & vDrive & "'" & " AND TargetInstance.Path = '" & replace(vDir,"\","\\") & "' AND TargetInstance.Extension = '" & cExtension & "'")
MsgBox "Watch begin " & cPath & "*." & cExtension
Do While(True)
Set objReceivedEvent = objEvents.NextEvent
oSpFileStream.Open(vSoundFile)
oVoice.SpeakStream oSpFileStream
oSpFileStream.Close
Loop
|
|
