Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для компьютеров > PureBasic

PureBasic Мощный кросс-платформенный язык среднего уровня на основе BASIC. Подходит для решения широкого круга задач.

Ответ
 
Опции темы
Старый 31.03.2012, 15:15   #1
L-ee-X
Разработчик
 
Аватар для L-ee-X
 
Регистрация: 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

Тут вроде как все получилось. http://pbasic.spb.ru/phpBB2/viewtopic.php?p=35116#35116
(Offline)
 
Ответить с цитированием
Старый 03.04.2012, 05:43   #3
L-ee-X
Разработчик
 
Аватар для L-ee-X
 
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений
(для 220 пользователей)
Ответ: Ras API Create VPN на PB

Пробовал! Ни чего там не работает, видать автор код рабочий не выложил!!!
(Offline)
 
Ответить с цитированием
Старый 03.04.2012, 07:06   #4
kvitaliy
Оператор ЭВМ
 
Регистрация: 10.01.2007
Сообщений: 37
Написано 6 полезных сообщений
(для 5 пользователей)
Re: Ответ: Ras API Create VPN на PB

Сообщение от L-ee-X Посмотреть сообщение
Пробовал! Ни чего там не работает, видать автор код рабочий не выложил!!!
Если Ты и maxturbo это разные люди, тогда странно, что вас в Иркутской области эпидемия на один и тот же вопрос?
Он тоже зареган на этом форуме и понтуется, что уже всё написал. Вот и спроси у него в личку.
Мы все зареганы на одних и тех же форумах, и если не помогли там, то не поможем и тут.
Правда, есть ещё английский форум, там другие спецы.
(Offline)
 
Ответить с цитированием
Старый 03.04.2012, 10:58   #5
L-ee-X
Разработчик
 
Аватар для L-ee-X
 
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений
(для 220 пользователей)
Ответ: Ras API Create VPN на PB

Нет, я не один и тот же :D :D :D в личку писал уже, и тому и другому еще с этого форума, только ни кто не отвечает!
(Offline)
 
Ответить с цитированием
Старый 03.04.2012, 11:22   #6
SBJoker
Злобный Админ
 
Аватар для SBJoker
 
Регистрация: 04.09.2005
Сообщений: 5,925
Написано 3,414 полезных сообщений
(для 9,328 пользователей)
Ответ: Re: Ответ: Ras API Create VPN на PB


Сообщение от kvitaliy Посмотреть сообщение
Если Ты и maxturbo это разные люди, тогда странно, что вас в Иркутской области эпидемия на один и тот же вопрос?
А ip-адреса у них совпадали однажды.
__________________
(Offline)
 
Ответить с цитированием
Старый 03.04.2012, 11:34   #7
L-ee-X
Разработчик
 
Аватар для L-ee-X
 
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений
(для 220 пользователей)
Ответ: Ras API Create VPN на PB

Ни че не знаю я че у кого там совподало )) Но вроде сделал!
Вот код:
CompilerIf Defined(RASIPADDR,#PB_Structure) = 0 
  
Structure RASIPADDR
    a
.
    b
.
    c
.
    d
.
  EndStructure 
CompilerEndIf

CompilerIf Defined
(RASENTRY,#PB_Structure) = 0
  
Structure RASENTRY 
    dwSize
.
    dwfOptions
.
    dwCountryID
.
    dwCountryCode
.
    szAreaCode
.c[#RAS_MaxAreaCode + 1] 
    
szLocalPhoneNumber.c[#RAS_MaxPhoneNumber + 1] 
    
dwAlternateOffset.
    ipaddr
.RASIPADDR 
    ipaddrDns
.RASIPADDR 
    ipaddrDnsAlt
.RASIPADDR 
    ipaddrWins
.RASIPADDR 
    ipaddrWinsAlt
.RASIPADDR 
    dwFrameSize
.
    dwfNetProtocols
.
    dwFramingProtocol
.
    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.
    dwReserved1
.
    dwReserved2
.
    dwSubEntries
.
    dwDialMode
.
    dwDialExtraPercent
.
    dwDialExtraSampleSeconds
.
    dwHangUpExtraPercent
.
    dwHangUpExtraSampleSeconds
.
    dwIdleDisconnectSeconds
.
    dwType
.
    dwEncryptionType
.
    dwCustomAuthKey
.
    guidId
.GUID 
    szCustomDialDll
.c[#MAX_PATH] 
    
dwVpnStrategy.
    dwfOptions2
.
    dwfOptions3
.
    szDnsSuffix
.c[#RAS_MaxDnsSuffix] 
    
dwTcpWindowSize.
    szPrerequisitePbk
.c[#MAX_PATH] 
    
szPrerequisiteEntry.c[#RAS_MaxEntryName + 1] 
    
dwRedialCount.
    dwRedialPause
.l
    CompilerIf 
#WIN > $0501
      
ipv6addrDns.RASIPV6ADDR
      ipv6addrDnsAlt
.RASIPV6ADDR
    CompilerEndIf
    dwIPv4InterfaceMetric
.
    dwIPv6InterfaceMetric
.
    CompilerIf 
#WIN > $0501
      
ipv6addr.RASIPV6ADDR
    CompilerEndIf
    dwIPv6PrefixLength
.
    dwNetworkOutageTime
.
  EndStructure 
CompilerEndIf

VPNpar
.RASENTRY 
cb
.0
RasGetEntryProperties_
(#Null, #Null, #Null, @cb.l, #Null, #Null)
Debug cb.l
 dwSize
.cb.l
 dwFlags
.1023411984
 dwFlags2
.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 
 VPNpar
\dwDialMode 
 VPNpar
\dwRedialCount 
 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)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
ant0N (08.04.2012)
Старый 03.04.2012, 11:44   #8
L-ee-X
Разработчик
 
Аватар для L-ee-X
 
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений
(для 220 пользователей)
Ответ: Re: Ответ: Ras API Create VPN на PB

Сообщение от kvitaliy Посмотреть сообщение
что вас в Иркутской области эпидемия на один и тот же вопрос?
А в твоей области нет эпидемии случаем на один и тот же вопрос??????
Вот понадобилось мне создать программно VPN и че дальше?
В сети уйма таких вопросов и че, они теперь все с Ирк. области, что ли или это везде я ????
Логика у тебя отсутствует, а вроде 26 лет
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 07:52.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com