Гyдвин, волшебник (02.10.2013 04:43, просмотров: 102) ответил rezident на Вопрос знатокам марушрутизации в Windows. Хочется автоматизировать сценарий подключения VPN-соединения.
Например так. Или вот эдак... http://forum.script-coding.com/viewtopic.php?id=692
unit Unit1;
interface
uses
WinSock,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellApi;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var s: string;
begin
s:= 'add 10.0.0.0 mask 255.255.255.0 '+ GetLocalIP;
ShellExecute(Handle, 'open', 'route.exe', PChar(s) , nil, SW_SHOWNORMAL);
end;
end.