Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.041 c
3-1119611318
jiny
2005-06-24 15:08
2005.07.31
Как перестроить таблицу индексов при запуске программы ?


4-1117796672
webpauk
2005-06-03 15:04
2005.07.31
Указатели и DirectDraw


4-1116811498
boalse
2005-05-23 05:24
2005.07.31
Узнать серийный номер винта (не тома)....


11-1103720327
ECM
2004-12-22 15:58
2005.07.31
FAQ от Gandalf-a (KOL.MASTAK.RU)


4-1117809351
iskatel
2005-06-03 18:35
2005.07.31
пульт avermedia





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский