Имя: Пароль:
1C
1C 7.7
v7: Проверка на существование интернет соединения средствами 1С
,
0 OlesyaBelochka
 
24.11.11
10:51
Добрый день господа! Может быть кто-нить сможет помочь. Необходимо написать функцию которая проверяла бы есть ли интернет на данном компе.
1 Heckfy
 
24.11.11
10:53
Стукнись куда нибудь на ftp
ЗЫ: Как вариант.....
2 OlesyaBelochka
 
24.11.11
10:56
Легко сказать, куда-нить..для это нужно знать как минимум параметры ftp..а еще варианты есть?
3 Heckfy
 
24.11.11
11:01
Блин, в семерке не помню..... в 8.2 что то типа:

ИнтернетСоединение = Новый ИнтернетСоединение;
ИнтернетСоединение .Установить();
Если ИнтернетСоединение Установлено=Истина Тогда

Как то так.....
4 Heckfy
 
24.11.11
11:02
ИнтернетСоединение Установлено=ИнтернетСоединение.Установлено
5 vinogradъ
 
24.11.11
11:04
запускать батник, который бы писал результаты пинга ya.ru в файл и потом читать этот файл
6 Морозов Александр
 
24.11.11
11:06
Повырывав строчки из обработки получения обновлений, вот что получилось:

Попытка
   Соединение = СоздатьОбъект("Addin.V7HttpReader");
   Соединение.КоличествоПопытокАвторизации = 3;
Исключение
   Сообщить("Не удалось создать объект Addin.V7HttpReader!");
   Возврат 0;
КонецПопытки;

Попытка
Соединение.ПолучитьКакСтроку("http://www.1c.ru/buhplace/lastnewstime.asp", Стр);
Исключение
Сообщить("Либо нету инета... либо сайт 1С опять лежит!!!");
КонецПопытки;
7 Heckfy
 
24.11.11
11:08
(5) ping ya.ru >C:\123.txt
Только там кодировка DOS-овская будет.
8 Морозов Александр
 
24.11.11
11:09
(+6) еще компаненту В7плюс надо загрузить
9 Heckfy
 
24.11.11
11:27
(8) А если домен и права у простых смертных порезаны??? Проще пингануть
10 Морозов Александр
 
24.11.11
11:31
(9) ну.. вопрос был как проверить... все остальное частности :-))
11 Heckfy
 
24.11.11
11:31
(10) Ну да :):):
12 smaharbA
 
24.11.11
11:33
а что такое Интернет ?
13 Heckfy
 
24.11.11
11:35
(12) Блин, не пали. Мы, типа, знаем что это такое.
14 trad
 
24.11.11
12:15
(12)
все что не
10.0.0.0 - 10.255.255.255
172.16.0.0 - 172.31.255.255
192.168.0.0 - 192.168.255.255
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс