Последние записи
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
27th
Июн
Как создать vpn-подключение средствами ras?
Posted by Chas under Пост-обзор
MalCer:
Работающий код прилагаю:
#include #include
#include
#pragma comment (lib, "RASAPI32.lib")
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
LPSTR lpCmdLine, int nCmdShow)
{
RASENTRYW re;
DWORD dwFlags;
DWORD dwFlags2;
DWORD dwSize;
DWORD SizeInfo;
dwSize = sizeof(RASENTRY);
RasGetEntryProperties(0, 0, 0, &SizeInfo, 0, 0);
if (SizeInfo < dwSize)
{
dwSize = SizeInfo;
}
memset(&re, 0, dwSize);
dwFlags = RASEO_PreviewUserPw |RASEO_ModemLights |RASEO_ShowDialingProgress |
RASEO_RemoteDefaultGateway |RASEO_RequireEncryptedPw |
RASEO_RequireDataEncryption |RASEO_RequireMsEncryptedPw;
dwFlags2 = RASEO2_DontNegotiateMultilink | RASEO2_ReconnectIfDropped;
re.dwSize = dwSize;
re.dwfOptions =dwFlags;
re.dwfOptions2 = dwFlags2;
re.dwfNetProtocols = RASNP_Ip;
re.dwFramingProtocol = RASFP_Ppp;
re.dwType=RASET_Vpn;
re.dwVpnStrategy = VS_Default;
re.dwEncryptionType = ET_Optional;
re.dwDialMode = RASEDM_DialAll;
re.dwRedialCount = 3;
re.dwRedialPause = 60;
lstrcpyW(re.szDeviceType, _T("vpn"));
lstrcpyW(re.szLocalPhoneNumber, _T("my.vpn.server.ru"));
lstrcpyW(re.szDeviceName, RASDT_Vpn);
if (RasSetEntryPropertiesW(NULL, _T("myVPN"), &re,dwSize, NULL, 0))
{
MessageBox(0,_T("ошибка RasSetEntryProperties"), 0,MB_ICONWARNING);
}
else MessageBox(0,_T("подключение создалось"),_T("Ok"),MB_OK);
return 0;
}[/code]
тема на форуме
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)