Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Как изменить соединение с интернотм по умолчанию ?   Найти похожие ветки 

 
Alpine   (2005-04-19 17:11) [0]

Подскажите плизз как программно изменить соединение с интернотм по умолчанию ?

ВСЕМ СПАСИБО ЗАРАНЕЕ !


 
Digitman ©   (2005-04-19 17:37) [1]


> соединение с интернотм

дурь.
несусветная.


 
Alpine   (2005-04-19 17:44) [2]

Объясняю для тех кто не совсем понял ...
У меня несколько соединений с интернетом. С помощью нижеприведённого кода я соединяюсь с соединением по умолчанию :

Подключаюсь так

procedure TForm1.Button1Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if not InternetGetConnectedState(@dwConnectionTypes, 0) then
    // not connected
   if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
      INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
    begin
      // error
   end;
end;

Отключаюсь так

// hangup the default Internet connection.
procedure TForm1.Button2Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
    // connected
   InternetAutodialHangup(0);
end;

Мне нужно изменять в процессе соединение по умолчанию !


 
Digitman ©   (2005-04-20 08:56) [3]


> У меня несколько соединений с интернетом


нет у тебя никаких "соединений с интернетом"

есть просто ярлыки удаленных соединений, настроенных на дозвон к тем или иным провайдерам

соединение же с провайдером - это просто вход в сеть провайдера, и не более того

провайдер же волен вообще не маршрутизировать твои запросы к хостам за пределами его, провайдера, сети, так что успешное подключение к сети провайдера совершенно не означает "соединение с интернетом" ... да и "соединиться с интернетом" - это нонсенс, можно лишь соединиться с конкретным компьютером в той или иной подсети, если же конечно твой провайдер будет к тебе "благосклонен")


 
Alpine   (2005-04-20 14:31) [4]

> 2 Digitman

Уважаемы Digitman извините за не правильное изъяснение.
Среди ярлыков удалённого соединения у меня один ярлык с галочкой и это означает что он используется по умолчанию. Мне нужно программно сделать чтоб эта галочка появилась на одном из других ярлыков !


 
Digitman ©   (2005-04-20 15:21) [5]

загляни в реестр в ветку

HKEY_CURRENT_USER\RemoteAccess\Profile

ее подверки ссылаются на ярлыки удал.доступа
каждая из этих веток имеет dword-параметр AutoConnect, он д.б. равен 1, если по дифолту, и 0 в противном случае


 
Alpine   (2005-04-20 15:58) [6]

У меня ХР и в HKEY_CURRENT_USER\RemoteAccess\Profile только одна подветка ROL хотя у меня 4 ярлыка (Comstar, Matrix, Comnet, ROL). Как раз ROL у меня по умолчанию и его dword-параметр AutoConnect=0. Делал поиск по реестру других ярлыков(нипример Comstar) ничего не находит ( . Может есть другой способ ? Может какая нидь АПИ функция есть ?


 
Digitman ©   (2005-04-20 16:07) [7]

загляни в msdn.microsoft.com и поищи все касаемое RasApi, в частности RasEnumConnections() .. решение крутится вокруг ф-ции RasEnumConnections()


 
Alpine   (2005-04-20 17:18) [8]

Мне нужно через WinInet это реализовать ( ... Я не хочу подключать RasUnit. Ну неужели нет такой функции ?! ((


 
Alpine   (2005-04-21 15:05) [9]

НАШЁЛ ! Вот здесь HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\RAS AutoDial\Default есть строковый параметр DefaultInternet который и решил мою проблемму !
ВСЕМ СПАСИБО !



Страницы: 1 вся ветка

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.04 c
14-1121185633
БарЛог
2005-07-12 20:27
2005.07.31
Можно ли поднимать руку на противоположный пол?


3-1118302398
Lenik
2005-06-09 11:33
2005.07.31
Как из программы на делфи запустить встроенную процедуру SQL серв


10-1098365364
Квэнди
2004-10-21 17:29
2005.07.31
Excel и объединенные ячейки


14-1120643087
Seg
2005-07-06 13:44
2005.07.31
HouseWife


1-1121159937
Goorus
2005-07-12 13:18
2005.07.31
Несколько вопросов по работе с вещественными числами