Use VoipBuster to send an (free) SMS if an alarm condition occurs in the RFXCOM plug-in.
You need to have an account at www.voipbuster.com
Edit the script below with your parameters,
Remove the spaces from this string "< / B R >".
Create an Event that triggers on an alarm condition and execute this script.
You need to have an account at www.voipbuster.com
Edit the script below with your parameters,
Remove the spaces from this string "< / B R >".
Create an Event that triggers on an alarm condition and execute this script.
Code:
Sub Main(Optional ByVal pParms As String = "") Dim strUserName As String = "enter between these quotes your VoipBuster user name" Dim strPassword As String = "enter between these quotes your VoipBuster password" Dim strPhoneNumber As String = "enter between these quotes the phone number that should receive the SMS" 'the phonenumber should be in international format for example "+31653123456" Dim strMessage As String Dim chrSecCode As Char Dim intCharPos As Integer chrSecCode = hs.GetINISetting("Startup", "SecDevHC", "", "hspi_RFXCOM.ini") If chrSecCode <> "" Then strMessage = hs.DeviceString(chrSecCode & "3") intCharPos = Instr(strMessage, "border=0>") If intCharPos <> 0 Then strMessage = Mid(strMessage, intCharPos + 9, Len(strMessage) - intCharPos - 15) strMessage = Left(Replace(strMessage, "< / B R >", " / "), 160) Else strMessage = Left(strMessage, 160) End If hs.launch("iexplore.exe", "https://myaccount.voipbuster.com/clx/sendsms.php?username=" & strUserName _ & "&password=" & strPassword & "&from=" & strUserName & "&to=" & strPhoneNumber & "&text=" & strMessage) Else hs.WriteLog("RFXCOM", "RFXCOM_alarm_sms.vb ERROR: No house code found for security devices") End If End Sub
Comment