Подключение удаленного доступа к сети / отключение

← →
iskatel © (2005-08-15 09:55) [0]

как програмно подключить Подключение удаленного доступа к сети, причем какоето определенное? и как можно его потом отключить? это нужно для следующего: подключение по жопорезу не всегда проходит удачно, тоесть соединение появляется, а инета нет...
хочу сделать прогу, которая автоматически будет выполнять:

подключение
ping ya.ru
отключение
подключение
.....
и т.д.

← →
Winni (2005-10-20 20:35) [1]

.......
implementation uses IdTCPClient, IdGlobal, WinInet;
........

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var PBuf: array[0..600] of Char ; PP: PChar; Tex: String;
begin Tex := "ping "+ edHost.Text;
PP:= StrPCopy(PBuf,Tex);
WinExec(PP,SW_SHOWNA);
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
If not (InternetAttemptConnect(0) = ERROR_SUCCESS) then
memStatus.Lines.Append("InternetAttemptConnect - Error") else
memStatus.Lines.Append("InternetAttemptConnect - succesful ");
end;

← →
$hade (2005-10-21 09:14) [2]

через RAS
FCurrentEntryName - название подключения (существующего,например "GPRS")
hCurrentConnection - handle текущего соединенияж

function Dial: integer;
var
Stat : TRasConnStatus;
R : Integer;
C : Array[0..100] of Char;
ErrS : String;
DialParams : TRasDialParams;
begin
FillChar(DialParams, SizeOf(TRasDialParams), 0);
with DialParams do
begin
dwSize:=Sizeof(TRasDialParams);
StrPCopy(szEntryName, FCurrentEntryName);
end;

R:=RasGetEntryDialParams(nil, DialParams, Fp);
if R<>0 then
begin
Result:=R;
Exit;
end;

hCurrentConnection:=0;
// Sunc dial
R:=RasDial(nil, nil, DialParams, 0, nil, hCurrentConnection);
if R<>0 then
begin
RasGetErrorString(R,C,100);
ShowMessage(C);
end;

Result:=R;
end;

для "отключить" - RasHangUp(hCurrentConnection);
код "после сборки обработать напильником" =)

Посмотри на torry.net в разделе RAS файлик d_ras.zip

Подключение удаленного доступа к сети / отключение Найти похожие ветки