Homeseer 3 Notification SMS Free

homeseer-3_freesms

02 mar Homeseer 3 Notification SMS Free

FreeMobile permet de s’envoyer des SMS gratuitement.
Le script suivant permet d’utiliser cette API à partir d’un script ou d’un event HomeSeer 3.

Ce dont vous avez besoin pour envoyer un sms depuis HomeSeer 3

Pour envoyer un sms, vous avez besoin de :

  • votre identifiant : identifiant vous permettant de vous connecter au site freemobile
  • votre clé unique : la clé est indiquée sur votre compte FreeMobile « Gérer mon compte » / « Mes options » dans le pavé « Notification par SMS »

Télécharger le script FREESMS pour HomeSeer 3 et le fichier de configuration.
FREESMS HomeSeer 3 (307)

Le fichier FREESMS.vb est à déposer dans le répertoire scripts.
Le fichier FREESMS.inc est à déposer dans le répertoire Config de Homeseer.

Configuration du script FreeSMS pour Homeseer 3

Le fichier est composé d’un bloc par utilisateur (téléphone)
Le nom de l’utilisateur est à mettre entre crochet.
Indiquer l’identifiant dans la variable FreeSMSIdent.
Indiquer la clé dans la variable FreeSMSCle
L’exemple ci-dessous montre le fichier ini pour deux utilisateurs.

[PIERRE]
FreeSMSIdent="12345678"
FreeSMSCle="ApLtYQisdDGAab"

[MARTINE]
FreeSMSIdent="12456738"
FreeSMSCle="ApLdDGAtYQisab"

Utilisation de la notification Free SMS dans un Event Homeseer 3

Dans un event, faire appel au script FREESMS.vb
Dans la zone de texte parameters, indiquer le nom de l’utilisateur suivi d’un « ; », suivi de votre message.
homeseer-3_freesms_event
Votre message ne doit pas contenir de « ; »

Utilisation de la notification Free SMS dans un script vb.net Homeseer 3

Coller le code ci-dessous dans votre script.
Puis appelez-le via la fonction FreeSMSEnvoi(« PIERRE;Vous avez du courrier »)

Sub FreeSMSEnvoi(ByVal parm As Object)
	Dim parms() As String
	
	parms = Split(parm.ToString,";")

	hs.GetURL("https://smsapi.free-mobile.fr/sendmsg?user=" & hs.GetINISetting(parms(0), "FreeSMSIdent", "", "FREESMS.ini") & "&pass=" & hs.GetINISetting(parms(0), "FreeSMSCle", "", "FREESMS.ini") & "&msg=" & parms(1),"",TRUE,80)
End Sub
Be Sociable, Share!
Tags:
,
No Comments

Sorry, the comment form is closed at this time.