forum.boolean.name - Ras API Create VPN на PB

forum.boolean.name (http://forum.boolean.name/index.php)

- PureBasic (http://forum.boolean.name/forumdisplay.php?f=90)

- - Ras API Create VPN на PB (http://forum.boolean.name/showthread.php?t=16564)

Ras API Create VPN на PB

Всем привет!
Помогите пожалуйста создать подключение VPN средствами PB
Задавал вопрос уже на одном форуме но пока там ноль...
Вот ссылка вопроса на форуме, переписывать сюда не стану
CreateVPN на PB
Отвечайте здесь если кто нибудь сможет помочь по этому вопросу...
На Delphi делал, но вот на PB не могу, а надо именно на PB

Ответ: Ras API Create VPN на PB

Тут вроде как все получилось. http://pbasic.spb.ru/phpBB2/viewtopic.php?p=35116#35116

Ответ: Ras API Create VPN на PB

Пробовал! Ни чего там не работает, видать автор код рабочий не выложил!!!

Re: Ответ: Ras API Create VPN на PB

Цитата:

Сообщение от L-ee-X (Сообщение 224366)

Пробовал! Ни чего там не работает, видать автор код рабочий не выложил!!!

Если Ты и maxturbo это разные люди, тогда странно, что вас в Иркутской области эпидемия на один и тот же вопрос?
Он тоже зареган на этом форуме и понтуется, что уже всё написал. Вот и спроси у него в личку.
Мы все зареганы на одних и тех же форумах, и если не помогли там, то не поможем и тут.
Правда, есть ещё английский форум, там другие спецы.

Ответ: Ras API Create VPN на PB

Нет, я не один и тот же :D :D :D в личку писал уже, и тому и другому еще с этого форума, только ни кто не отвечает!

Ответ: Re: Ответ: Ras API Create VPN на PB

Ответ: Ras API Create VPN на PB

Ни че не знаю я че у кого там совподало )) Но вроде сделал!
Вот код:

PHP код:




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

Всем спасибо, все свободны :) :-D :-D :-D

Проверил пока, что только на XP, как с работы приду, проверю на Win 7 )))Ну думаю там тоже работать будет :)

Ответ: Re: Ответ: Ras API Create VPN на PB

Цитата:

Сообщение от kvitaliy (Сообщение 224369)

что вас в Иркутской области эпидемия на один и тот же вопрос?