Questione : VBscript per il rumore metallico - t

ho bisogno di uno scritto che può darmi un allarme audable quando il rumore metallico risponde, io sto tentando di essere comunicato quando i ritorni di potere al luogo e cose caric il sistemaare e risponderà al rumore metallico e voglio essere svegliato.  Grazie! class= del

Risposta : VBscript per il rumore metallico - t

Ciao, potete provare questo codice.

Se avete un'audio lima nella disposizione MP3 (o in qualcosa Windows Media Player può giocare), questo giocherà quella lima quando una macchina risponde al rumore metallico.  Quando il calcolatore è ancora fuori linea, Windows Media Player sarà chiuso e quando è ancora in linea, la lima giocherà.

Riguardi,

Rob.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Regolare il objWMP = niente

strComputer = “REMOTEPCNAME„
strMediaFile = “C:\temp\AlarmFile.mp3„

Mentre allineare
	Se il rumore metallico (strComputer) = allora allinea
		Se il objWMP è niente objWMP allora regolato = CreateObject (“WMPlayer.OCX„)
		objWMP.openPlayer strMediaFile
	Altrimenti
		Regolare il objShell = CreateObject (“WScript.Shell„)
		objShell.Run “taskkill /F /IM wmplayer.exe„, 0, allineare
	Concluder se
	'Attendere 30 secondi
	WScript.Sleep 30000
Wend

Rumore metallico di funzione (strComputer)
	objShell fioco, boolCode
	Regolare il objShell = CreateObject (“WScript.Shell„)
	boolCode = objShell.Run (“rumore metallico - n 1 - w 300„ & strComputer, 0, allineare)
	Se boolCode = 0 allora
		Il rumore metallico = allinea
	Altrimenti
		Rumore metallico = falso
	Concluder se
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us