Интеграция JS и VB скриптов с программой Call Office

Программный продукт Call Office разрабатывался с расчётом на то, чтобы его возможности могли использовать как большие компании в коммерческих целях, так и отдельные пользователи для своих ежедневных нужд. По сути, любой человек, обладающий элементарными навыками программирования и знаниями JavaScript или VB скриптов, на основе нашей программы-автоинформатора, может создавать свои приложения для компьютера, оповещающие его (или любого другого человека или группы людей) о чем угодно.

Рассмотрим на наглядных примерах, как это работает для четырех основных функций программы.

Допустим, у вас есть компьютер и ребенок, чей доступ к компьютеру строго лимитирован. Ситуация, разумеется, требует контроля, но когда взрослые на работе, контролировать её проблематично. Выходом из положения может стать скрипт, взаимодействующий с Call Office, и отсылающий sms-сообщение на ваш мобильный каждый раз, как, к примеру, определенный пользователь входит в систему, или когда время работы системы превышает определенный лимит. Получив такое сообщение, вы уже сможете принять воспитательные меры.

Пример на JavaScript

if (Условие отправки сообщения == true) {
   var Device = new ActiveXObject ("CallOffice.Device");
   Device.Open ();
   var Result = Device.SendSMS ('8987654321 - номер вашего телефона', "Тестовое сообщение");
   if (Result == 0){
      alert("Сообщение отправлено!");
   }
   Device.Close ();
}

Пример на VBscript

if Условие отправки сообщения = true then
   Dim Device
   Set Device = CreateObject ("CallOffice.Device")

   Device.Open

   Result = Device.SendSMS ("8987654321 - номер вашего телефона", "Тестовое сообщение")

   if Result = 0 then
      MsgBox "Сообщение отправлено!"
   end if
   Device.Close
end if

Функция sms-автоответчика может быть использована в написании скрипта для забывчивых пользователей. Разумеется, выключить плиту или свет в коридоре, удаленно вы не сможете, но имея нужный скрипт и отправив sms с телефона на компьютер, можно удаленно его выключить, если вы забыли это сделать, уходя из дома.

Пример на JavaScript

var Device = new ActiveXObject ("CallOffice.Device");

Device.Open ();
var Result = Device.WaitForSMS (-1);
if (Result == 0) {
   какое-либо действие на компьютере
}
Device.Close ();

Пример на VBscript

Dim Device
Set Device = CreateObject ("CallOffice.Device")
Device.Open
Result = Device.WaitForSMS (-1)
if Result = 0 then
   какое-либо действие на компьютере
end if
Device.Close

Для функции автоматического обзвона есть множество вариантов использования. Фактически это может быть напоминание о чем угодно на телефон. Например, скрипт может ближе к концу месяца звонком ежедневно напоминать вам о том, что неплохо было бы заплатить за интернет.

Пример на JavaScript

if (дата звонка == дата сегодняшнего дня) {
   var Device = new ActiveXObject ("CallOffice.Device");

   Device.Open ();
   var Result = Device.Dial ('8987654321 - номер вашего телефона', 40);
   if (Result == 0){
      Device.Say ("Нужно заплатить за интернет.wav");
   }
   Device.HangUp ();
   Device.Close ();
}

Пример на VBscript

if дата звонка = дата сегодняшнего дня then
   Dim Device
   Set Device = CreateObject ("CallOffice.Device")

   Device.Open

   Result = Device.Dial ("8987654321 - номер вашего телефона", 40)

   if Result = 0 then
      Device.Say "Нужно заплатить за интернет.wav"
   end if

   Device.HangUp
   Device.Close
end if

Программный голосовой автоответчик тоже может быть полезен в быту. Эта функция довольно актуальна, опять же, для удаленного контроля за работой системы – временем работы, работающими пользователями, или чем-то еще. То есть, оставляя такой скрипт запущенным, вы сможете проконтролировать его работу, позвонив по телефону и прослушав сообщение программы.

Пример на JavaScript

var Device = new ActiveXObject ("CallOffice.Device");
Device.Open ();
var Result = Device.WaitForCall (-1);
if (Result == 0) {
   Device.Say ("Пользователь --- работает в системе -- часов и -- минут");
}
Device.HangUp ();
Device.Close ();

Пример на VBscript

Dim Device
Set Device = CreateObject ("CallOffice.Device")
Device.Open

Result = Device.WaitForCall (-1)

if Result = 0 then
   Device.Say "Пользователь --- работает в системе -- часов и -- минут"
end if

Device.HangUp
Device.Close

Таким образом, зная основы, подобные скрипты вы можете создавать для оповещения по телефону (путем звонка или отсылки sms) о практически любом событии на вашем ПК. Программа довольна гибкая в работе и вместе с вашими скриптами способна автоматизировать и сделать удобнее домашний быт.

Узнайте больше о функциях программы Call Office и возможности её приобретения здесь.