|
PureBasic Мощный кросс-платформенный язык среднего уровня на основе BASIC. Подходит для решения широкого круга задач. |
31.03.2012, 15:15
|
#1
|
Разработчик
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений (для 220 пользователей)
|
Ras API Create VPN на PB
Всем привет!
Помогите пожалуйста создать подключение VPN средствами PB
Задавал вопрос уже на одном форуме но пока там ноль...
Вот ссылка вопроса на форуме, переписывать сюда не стану
CreateVPN на PB
Отвечайте здесь если кто нибудь сможет помочь по этому вопросу...
На Delphi делал, но вот на PB не могу, а надо именно на PB
|
(Offline)
|
|
02.04.2012, 10:56
|
#2
|
Нуждающийся
Регистрация: 23.05.2007
Сообщений: 95
Написано 34 полезных сообщений (для 53 пользователей)
|
Ответ: Ras API Create VPN на PB
|
(Offline)
|
|
03.04.2012, 05:43
|
#3
|
Разработчик
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений (для 220 пользователей)
|
Ответ: Ras API Create VPN на PB
Пробовал! Ни чего там не работает, видать автор код рабочий не выложил!!!
|
(Offline)
|
|
03.04.2012, 07:06
|
#4
|
Оператор ЭВМ
Регистрация: 10.01.2007
Сообщений: 37
Написано 6 полезных сообщений (для 5 пользователей)
|
Re: Ответ: Ras API Create VPN на PB
Сообщение от L-ee-X
Пробовал! Ни чего там не работает, видать автор код рабочий не выложил!!!
|
Если Ты и maxturbo это разные люди, тогда странно, что вас в Иркутской области эпидемия на один и тот же вопрос?
Он тоже зареган на этом форуме и понтуется, что уже всё написал. Вот и спроси у него в личку.
Мы все зареганы на одних и тех же форумах, и если не помогли там, то не поможем и тут.
Правда, есть ещё английский форум, там другие спецы.
|
(Offline)
|
|
03.04.2012, 10:58
|
#5
|
Разработчик
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений (для 220 пользователей)
|
Ответ: Ras API Create VPN на PB
Нет, я не один и тот же :D :D :D в личку писал уже, и тому и другому еще с этого форума, только ни кто не отвечает!
|
(Offline)
|
|
03.04.2012, 11:22
|
#6
|
Злобный Админ
Регистрация: 04.09.2005
Сообщений: 5,926
Написано 3,415 полезных сообщений (для 9,330 пользователей)
|
Ответ: Re: Ответ: Ras API Create VPN на PB
Сообщение от kvitaliy
Если Ты и maxturbo это разные люди, тогда странно, что вас в Иркутской области эпидемия на один и тот же вопрос?
|
А ip-адреса у них совпадали однажды.
__________________
|
(Offline)
|
|
03.04.2012, 11:34
|
#7
|
Разработчик
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений (для 220 пользователей)
|
Ответ: Ras API Create VPN на PB
Ни че не знаю я че у кого там совподало )) Но вроде сделал!
Вот код:
CompilerIf Defined(RASIPADDR,#PB_Structure) = 0 Structure RASIPADDR a.b b.b c.b d.b EndStructure CompilerEndIf CompilerIf Defined(RASENTRY,#PB_Structure) = 0 Structure RASENTRY dwSize.l dwfOptions.l dwCountryID.l dwCountryCode.l szAreaCode.c[#RAS_MaxAreaCode + 1] szLocalPhoneNumber.c[#RAS_MaxPhoneNumber + 1] dwAlternateOffset.l ipaddr.RASIPADDR ipaddrDns.RASIPADDR ipaddrDnsAlt.RASIPADDR ipaddrWins.RASIPADDR ipaddrWinsAlt.RASIPADDR dwFrameSize.l dwfNetProtocols.l dwFramingProtocol.l szScript.c[#MAX_PATH] szAutodialDll.c[#MAX_PATH] szAutodialFunc.c[#MAX_PATH] szDeviceType.c[#RAS_MaxDeviceType + 1] szDeviceName.c[#RAS_MaxDeviceName + 1] szX25PadType.c[#RAS_MaxPadType + 1] szX25Address.c[#RAS_MaxX25Address + 1] szX25Facilities.c[#RAS_MaxFacilities + 1] szX25UserData.c[#RAS_MaxUserData + 1] dwChannels.l dwReserved1.l dwReserved2.l dwSubEntries.l dwDialMode.l dwDialExtraPercent.l dwDialExtraSampleSeconds.l dwHangUpExtraPercent.l dwHangUpExtraSampleSeconds.l dwIdleDisconnectSeconds.l dwType.l dwEncryptionType.l dwCustomAuthKey.l guidId.GUID szCustomDialDll.c[#MAX_PATH] dwVpnStrategy.l dwfOptions2.l dwfOptions3.l szDnsSuffix.c[#RAS_MaxDnsSuffix] dwTcpWindowSize.l szPrerequisitePbk.c[#MAX_PATH] szPrerequisiteEntry.c[#RAS_MaxEntryName + 1] dwRedialCount.l dwRedialPause.l CompilerIf #WIN > $0501 ipv6addrDns.RASIPV6ADDR ipv6addrDnsAlt.RASIPV6ADDR CompilerEndIf dwIPv4InterfaceMetric.l dwIPv6InterfaceMetric.l CompilerIf #WIN > $0501 ipv6addr.RASIPV6ADDR CompilerEndIf dwIPv6PrefixLength.l dwNetworkOutageTime.l EndStructure CompilerEndIf VPNpar.RASENTRY cb.l = 0 RasGetEntryProperties_(#Null, #Null, #Null, @cb.l, #Null, #Null) Debug cb.l dwSize.l = cb.l dwFlags.l = 1023411984 dwFlags2.l = 17039360; VPNpar\dwSize = dwSize.l VPNpar\dwfOptions = dwFlags VPNpar\dwfOptions2 = dwFlags2 VPNpar\dwfNetProtocols = #RASNP_Ip VPNpar\dwFramingProtocol = #RASFP_Ppp VPNpar\dwType = 2 VPNpar\dwVpnStrategy = 1 VPNpar\dwEncryptionType = 1 VPNpar\dwDialMode = 1 VPNpar\dwRedialCount = 3 VPNpar\dwRedialPause = 60 PokeS(@VPNpar\szDeviceType,"VPN") PokeS(@VPNpar\szLocalPhoneNumber,"server.vpn") PokeS(@VPNpar\szDeviceName,"vpn") result = RasSetEntryProperties_(#Null, "VPN", @VPNpar, SizeOf(RASENTRY), #Null, 0) Debug result; // Возвращает 0
Всем спасибо, все свободны
Проверил пока, что только на XP, как с работы приду, проверю на Win 7 )))Ну думаю там тоже работать будет
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
03.04.2012, 11:44
|
#8
|
Разработчик
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений (для 220 пользователей)
|
Ответ: Re: Ответ: Ras API Create VPN на PB
Сообщение от kvitaliy
что вас в Иркутской области эпидемия на один и тот же вопрос?
|
А в твоей области нет эпидемии случаем на один и тот же вопрос??????
Вот понадобилось мне создать программно VPN и че дальше?
В сети уйма таких вопросов и че, они теперь все с Ирк. области, что ли или это везде я ????
Логика у тебя отсутствует, а вроде 26 лет
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 18:11.
|