#0
by Гений 1С
Написал небольшой скрипт: :again rasdial SkyLink goto again Но когда я запускаю окно, даже если оно свернуто, курсор начинает дрожать, очевидно из-за выполнения CMD в цикле. Может быть, переписать на JS-файл, тогда мигать не будет. Можно еще как-то паузу в cmd-файл вставлять? подскажите, как паузу и вызов задания в JS выполнять? просто у меня в типовых настройках соединения ограниченное число попыток, иногда прерывается на ночь работа. А в планировщике неудобно - мне надо не всегда восстанавливать соединение а только когда я запущу пакетник.
#2
by Гений 1С
Сделал так: while(true) { var Myshell = new ActiveXObject("WScript.Shell"); Myshell.Run("rasdial SkyLink",0,1); } Окно запуска не выводится, но курсор мигает... Как избавиться от мигания курсора?
#3
by Гений 1С
Выдает ошибку, что нет такого метода: while(true) { var Myshell = new ActiveXObject("WScript.Shell"); Myshell.Run("rasdial SkyLink",0,1); Myshell.Sleep; }
#6
by Гений 1С
Ах да, задержка работает: WScript.sleep ; 200 - это в чем, в милисекундах? т.е. 1000 - это 1 секунда?
#8
by Гений 1С
а почему окно JS невидимо, только можно убить его в WScript? можно как-то показать окно приложения JS?
#10
by Гений 1С
Просто из тотал командера запускаю файл JS. А как мне его тогда прервать. ПОставил задержку в 5 минут, по идее этого достаточно, чтобы восстанавливать коннект..
#11
by smaharbA
var Myshell = new ActiveXObject("WScript.Shell"); while(true) { rez=Myshell.Run("ping -n 1 www.yandex.ru"); if (rez != 0) { Myshell.Run("rasdial SkyLink",0,1); } Myshell.Sleep(1000); }
#12
by smaharbA
вернее var Myshell = new ActiveXObject("WScript.Shell"); while(true) { rez=Myshell.Run("ping -n 1 www.yandex.ru",0,true); if (rez != 0) { Myshell.Run("rasdial SkyLink",0,true); } Myshell.Sleep(1000); }
#14
by smaharbA
var Myshell = new ActiveXObject("WScript.Shell"); while(true) { rez=Myshell.Run("ping -n 1 www.yandex.ru"); if (rez != 0) { Myshell.Run("rasdial SkyLink",0,1); } else { WScript.Quit; } Myshell.Sleep(1000); }
#16
by Гений 1С
всем пасиба... rasloop.js: var Myshell = new ActiveXObject("WScript.Shell"); while(true) { rez=Myshell.Run("ping -n 1 www.yandex.ru",0,true); if (rez != 0) { Myshell.Run("rasdial SkyLink /DISCONNECT",0,true); Myshell.Run("rasdial SkyLink",0,true); } WScript.sleep (1*60*1000); } rasloop.cmd: cscript rasloop.js Таперича бы еще как нибудь иконку у запущенного приложения rasloop.cmd поменять, чтобы было видно что это коннектор. Подскажите еще один вопрос. JS будет ждать завершения команды, да. 0, true - это невидимое и ждать завершения, так?
#20
by Гений 1С
Окончательно: var Myshell = new ActiveXObject("WScript.Shell"); while(true) { var d = new Date; var nMonth = d.getMonth+1; var nDate = d.getDate; var nHours = d.getHours; var nMinutes = d.getMinutes; var nSeconds = d.getSeconds; var nMilliseconds = d.getMilliseconds; // YYYY-MM-DD (HH.NN.SS); var sTimeStamp = '' +d.getFullYear+'-' +((nMonth<10)?"0"+nMonth: nMonth)+'-' +((nDate<10) ? "0"+nDate : nDate)+' (' +((nHours<10) ? "0"+nHours : nHours)+'.' +((nMinutes<10) ? "0"+nMinutes : nMinutes)+'.' +((nSeconds<10) ? "0"+nSeconds : nSeconds)+')'; rez=Myshell.Run("ping -n 1 www.yandex.ru",0,true); if (rez != 0) { WScript.Echo(sTimeStamp + " offline, try to reconnect"); Myshell.Run("rasdial SkyLink /DISCONNECT",0,true); //Disconnect Myshell.Run("rasdial SkyLink mobile mobile",0,true); //Connect with login & password WScript.Echo("Reconnected"); } else { WScript.Echo(sTimeStamp + " test connection - OK"); WScript.sleep (3*60*1000); //wait a minutes for next try } }
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
- timeout expired при выполнение сложных запросов в SQL через ADO
- Выполнение скрипта при установке соединения
- как програмно прервать выполнение обработки в 1С 7.7? аналог кнопки Esc.
- выполнение скрипта из 1с
- В обработке зациклить табличную часть для каждой строки
- Зациклить вывод печатной М11 на одном макете
- [JavaScript] Как программно приостановить выполнение скрипта при ошибке Chrome?
- А что будет если в получении представления зациклить получение?
В этой группе 1С
- как перейти в конец табличного поля программно?
- Не выгружаются объекты по ссылкам
- выбрать по условию строки из Excel
- Деление на 0
- Проверка почты из командной строки
- Поиск по таблице значений части строки
- УПП: Ограничение прав пользователей по подразделениям
- Расчёты в условных единицах
- Факторинг в УТ
- Как безболезненно подготовиться к сдаче 1с специалист по платформе?
- Как программно скрыть служебные окна: панель состояния и панель окон?
- VBA: дописать в открытый файл из вордовского файла
- конвртация2.0. Получить значение из входящих данных?
- ошибка СУБД: Microsoft OLE DB Provider for SQL Server
- Кто нибудь добавлял (менял) память в ноутбуках, поделитесь опытом.
- v7: Не формируется ОСВ
- ЗиК: табель
- Конвертация данных: Как осуществлять выгрузку ссылок "только по ссылкам" ?
- v7: форма подбора, показывать только товары, где остаток больше 0
- Построение графов на языке dot