Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Интернет из фокса  [new]
Yras
Member

Откуда: Краснодар
Сообщений: 36
Как из VFP5 или VFP8 проверить подключен ли интернет?
Если не подключен, подключить, а после совершения определенных манипуляций отключить.
Спасибо.
8 окт 04, 09:03    [1017694]     Ответить | Цитировать Сообщить модератору
 Re: Интернет из фокса  [new]
Дмитрий Петров
Member

Откуда: Пермь
Сообщений: 43
Вот ответ AnatolyS на фоксклубе

local lnFlag

declare integer InternetAutodial in wininet.dll ;
integer dwFlag, integer hWnd
declare integer InternetGetConnectedState in wininet.dll ;
integer@ dwFlag, integer ReservedMustBe0

lnFlag = 0
if InternetGetConnectedState(@lnFlag, 0) == 0
if InternetAutodial(0, Thisform.Handle) # 0
=MessageBox("Соединение установлено!")
endif
endif
8 окт 04, 09:35    [1017769]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить