Как программно подключить соединение типа мост?

[Juda]

Собственно как программно подключить соединение типа мост?
хотя бы в какую сторону копать?
какие апи? :)

[DeaD_MoroZ]

вот тебе 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;

[Juda]

спасибо. буду копать.

если у кого есть еще варианты. кидайте все сюда.