Форум АНТИЧАТ - Как программно подключить соединение типа мост?

вот тебе VPN, а как то чо тебе сделать надо думаю сообразишь(;

Код:

var

RE: TRasEntry;

DEV: array[1..100] of TRASDEVINFO;

i, j,cnt: integer;



begin

 j := sizeof(DEV)*100;

 DEV[1].dwSize := sizeof(TRASDEVINFO);

 i := RasEnumDevicesA(@DEV[1], j, cnt); 

 Memo1.Lines.Add('j ='+IntToStr(j)+' i='+IntToStr(i)+' cnt='+IntToStr(cnt));

 if i <> 0 then Memo1.Lines.Add('ошибка!');

 For i := 1 to cnt do Memo1.Lines.Add(DEV[i].szDeviceType+' = '+DEV[i].szDeviceName);



 RasCreatePhoneBookEntry(Form1.Handle,'111');

 Fillchar(RE, sizeof(TRasEntry), 0);

 RE.dwSize := sizeof(TRasEntry);

 RE.dwfOptions := 66832;

 //RASEO_RemoteDefaultGateway + RASEO_Custom + RASEO_RequireCHAP +   RASEO_ShowDialingProgress;

 RE.dwCountryID := 7;

 RE.dwCountryCode := 7;

 RE.szAreaCode := '';

 RE.szLocalPhoneNumber := '1241241';

 RE.dwfNetProtocols := RASNP_Ip;

 RE.dwFramingProtocol := RASFP_Ppp;

 RE.szDeviceType := 'vpn';

 RE.szDeviceName := 'WAN Miniport (L2PTP)';

 RE.szDeviceType := RASDT_Isdn;



 try

  i := RasSetEntryPropertiesA(nil, 'Имя соединения', @RE, sizeof(TRasEntry), nil, 0);

  if i = ERROR_BUFFER_INVALID then Memo1.Lines.Add('The address or buffer specified by lpRasEntry is invalid');

  if i = ERROR_CANNOT_OPEN_PHONEBOOK then Memo1.Lines.Add('The phone book is corrupted or missing components');

 except end

end;