Script:Lib VDR

Un article de MacodaWiki.

lib_vdr.vbs : Permet de piloter *VDR

'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*

'* LIBRAIRIE                                                                                             *
'*      LIB_VDR                                                                                          *
'*   Voir l'entete de lib_log !!!                                                 *
'*                                                                                                       *
'*                                                                                                       *
'*  2006/08/01                                                                                           *
'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*

'*****************************************************************************
' gFCT_VDR_Message
Function gFCT_Is_VDR_Allume 

	If (gDEVICE_Get_etat_device(DEVICE_PC_VDR) = DEVICE_ON) Then
		gFCT_Is_VDR_Allume = TRUE
		gFct_Log_LIB LOG_BAVARD,"VDR est allumé"
	Else
		gFCT_Is_VDR_Allume = FALSE
		gFct_Log_LIB LOG_BAVARD,"VDR est éteind"
	End If 
End Function
 



'*****************************************************************************
' gFCT_VDR_Message
Sub gFCT_VDR_Message(sTexte)
Dim sCmd	
	gFct_Log_LIB LOG_BAVARD,"Fonction gFct_Mess_VDR sTexte=>"&sTexte&"<"
	sTexte =replace(sTexte,")"," ")
	sTexte =replace(sTexte,"("," ") 

 	If gFCT_Is_VDR_Allume Then
		gFct_Log_LIB LOG_BAVARD,"VDR allumé ==> envoie du message"
		sCmd = "192.168.0.10 /usr/local/src/VDR/svdrpsend.pl MESG "&sTexte
		gFct_Log_LIB LOG_SANS,"sCmd = >"&sCmd&"<"
		hs.launch "rsh",sCmd
	Else
		gFct_Log_LIB LOG_BAVARD,"VDR éteint ==> message pas envoyé"
 	
	End If 
End Sub


'*****************************************************************************
' gFCT_VDR_Grab_IMG
Sub gFCT_VDR_Grab_IMG
Dim sCmd	
	gFct_Log_LIB LOG_BAVARD,"Fonction gFCT_VDR_Grab_IMG"
 
 	If gFCT_Is_VDR_Allume Then
		gFct_Log_LIB LOG_BAVARD,"VDR allumé ==> Grab de l'image"
		sCmd = "192.168.0.10 /usr/local/src/VDR/svdrpsend.pl GRAB /video/divx/copie_ecran.jpg"
		gFct_Log_LIB LOG_SANS,"sCmd = >"&sCmd&"<"
		hs.launch "rsh",sCmd
	Else
		gFct_Log_LIB LOG_BAVARD,"VDR éteint ==> Grab de l'image non réalisé"
 	
	End If 
End Sub

'*****************************************************************************
' gFCT_VDR_Arret_Film
Sub gFCT_VDR_Arret_Film
Dim sCmd	
	gFct_Log_LIB LOG_BAVARD,"Fonction gFCT_VDR_Arret"
 
 
 
 	If gFCT_Is_VDR_Allume Then
		gFct_Log_LIB LOG_BAVARD,"VDR allumé ==> Arrêt du film VDR"
		sCmd = "192.168.0.10 /usr/local/src/VDR/svdrpsend.pl HITK Blue"
		gFct_Log_LIB LOG_SANS,"sCmd = >"&sCmd&"<"
		hs.launch "rsh",sCmd
	Else
		gFct_Log_LIB LOG_BAVARD,"VDR éteint ==> Arrêt du film inutile"
 	
	End If 
End Sub


'*****************************************************************************
' gFCT_VDR_Arret
Sub gFCT_VDR_Arret
Dim sCmd	
	gFct_Log_LIB LOG_BAVARD,"Fonction gFCT_VDR_Arret_Film"
 
 
 
 	If gFCT_Is_VDR_Allume Then
		gFct_Log_LIB LOG_BAVARD,"VDR allumé ==> Arrêt de VDR"
		sCmd = "192.168.0.10 /usr/local/src/VDR/svdrpsend.pl HITK POWER"
		gFct_Log_LIB LOG_SANS,"sCmd = >"&sCmd&"<"
		hs.launch "rsh",sCmd
	Else
		gFct_Log_LIB LOG_BAVARD,"VDR éteint ==> Arrêt inutile"
 	
	End If 
End Sub

'*****************************************************************************
' gFCT_VDR_Met_Musique
Sub gFCT_VDR_Met_Musique
Dim sCmd	
	gFct_Log_LIB LOG_BAVARD,"Fonction gFCT_VDR_Met_Musique"
 
 
 
 	If gFCT_Is_VDR_Allume Then
		gFct_Log_LIB LOG_BAVARD,"VDR allumé ==> Changement de chaine (chaine musique)"
		sCmd = "192.168.0.10 /usr/local/src/VDR/svdrpsend.pl CHAN 100"
		gFct_Log_LIB LOG_SANS,"sCmd = >"&sCmd&"<"
		hs.launch "rsh",sCmd
	Else
		gFct_Log_LIB LOG_BAVARD,"VDR éteint ==> Changement de chaine inutile"
 	
	End If 
End Sub



	
'*****************************************************************************
' gFCT_VDR_Coupe_Remet_Son
Sub gFCT_VDR_Coupe_Remet_Son
Dim sCmd	
	gFct_Log_LIB LOG_BAVARD,"Fonction gFCT_VDR_Coupe_Remet_Son"
 
 
 
 	If gFCT_Is_VDR_Allume Then
		gFct_Log_LIB LOG_BAVARD,"VDR allumé ==> Coupe ou remet le son (booléen)"
		sCmd = "192.168.0.10 /usr/local/src/VDR/svdrpsend.pl HITK MUTE"
		gFct_Log_LIB LOG_SANS,"sCmd = >"&sCmd&"<"
		hs.launch "rsh",sCmd
	Else
		gFct_Log_LIB LOG_BAVARD,"VDR éteint ==> Inutile de couper ou de remettre le son"
 	
	End If 
End Sub